Minggu, 20 Februari 2011

Teks Tembus Pandang Menggunakan VB 6.0

Teks Berjalan dan Kerlap Kerlip pada Visual Basic 6.0

langkah pertama yang harus rekan-rekan lakukan adalah

Buatlah sebuah project dengan standartd EXE.
kemudian buatlah satu buah picture terserah mo dinamai apa.... yang penting pake picture. ok.

kalau sudah copy pastekan koding dibawah ini ke menu editor rekan2:

[Script Code] :


Private Sub Form_Load()

bisa diganti dengan keinginan anda
Dim i As Long
Dim hRgn As Long
Picture1.AutoRedraw = True

'huruf Sesuaikan dengan keinginan Anda...
Picture1.Font.Name = "Times new roman"
Picture1.Font.Bold = True
Picture1.Font.Size = 50

'Buat ukuran Picture1 cukup besar
Picture1.Width = Picture1.TextWidth(TXT)
Picture1.Height = Picture1.TextHeight(TXT)

'Untuk letak Picture1
BeginPath Picture1.hdc
Picture1.CurrentX = 0
Picture1.CurrentY = 0
Picture1.Print TXT
EndPath Picture1.hdc

'Gambar teks...
StrokePath Picture1.hdc
End Sub


Mudah bukan?????? nah, kalau mau manthaffff lagi cari lagi deh kreasi lain lagi. Gak menutup kemungkinan coding diatas bisa lebih dikreasikan lagi.

Keep Smile n' Happy Blogging

Tidak ada komentar:

Poskan Komentar