Efek Shadow pada VB 6.0

pertama - tama buat prosedur seperti di bawah ini :

Public Sub shadow(kontrol As Control)

Dim X As Integer

Dim Y As Integer

Const warna = &H404040

Const lebar = 3

X = Me.DrawWidth

Y = ScaleMode

Me.ScaleMode = 3

Me.DrawWidth = 1

Me.Line (kontrol.Left + lebar, kontrol.Top + _

lebar)-Step(kontrol.Width, _

kontrol.Height), warna, BF

Me.DrawWidth = X

Me.ScaleMode = Y

End Sub

setelah itu, pada prosedur Form_Paint inisilisasi kontrol yang anda ingin berikan efek shadow, contoh :

Private Sub Form_Paint()

shadow Command1

shadow Text1

End Sub

maafkan saya jika tips ini kurang memuaskan

jika ada pertayaan kunjungi saya di dimensi-id.org