Teks Tembus Pandang Menggunakan VB 6.0

Oleh gfgf

Monday, May 4, 2009

Bagikan :

Tweet

Kalau sebelumnya manusia biasa pernah membuat artikel tentang Teks Berjalan dan Kerlap Kerlip pada Visual Basic 6.0.
Nah, sekarang manusia biasa akan membawa rekan-rekan sekalian untuk sedikit berkreasi dengan menggunakan visual basic lagi tentunya masih menggunakan visual basic 6.0
sekarang manusia biasa akan bagikan sedikit tips lagi kini kita akan membuat teks tersebut menjadi tembus pandang singkatnya teksnya akan transparant.

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:


Private Sub Form_Load()

Const TXT = "Manusia Biasa"----->>> 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.

Sekian artikel dari manusia biasa.

Keep Smile n' Happy Blogging

Tag : Tutorial Visual Basic