Efek Animasi ToolTip
Setelah sebelumnya anda membuat efek tooltip pada kontrol, sekarang coba tambahkan animasi kedalamnya.
jika anda berminat ikuti cara berikut :
buka project, tempelkan form anda dengan Label, CoomandButton, Optiongroup, ComboBox dan Timmer.
Setelah Form siap, ketiklah rumus/syntax berikut ini .
Private Sub Form_Load ()
Label1.ToolTipText = "Ini Label"
Command1.ToolTipText = "Ini Komen"
Option1.ToolTipText = "Ini Option"
Combo1.ToolTipText = "Ini Kombo"
End Sub
Private Sub Timer1_Timer ()
If Label1.ToolTipText = "Ini Label" Then
Label1.ToolTipText = "Label"
Else
If Label1.ToolTipText = "Label" Then
Label1.ToolTipText = "Ini"
Else
Label1.ToolTipText = "Ini Label"
If Command1.ToolTipText = "Ini Komen" Then
Command1.ToolTipText = "Komen"
Else
Command1. ToolTipText = “Ini Komen”
If Option1. ToolTipText = “Ini Option”
If Option1. ToolTipText = “Ini Option”
Option1. ToolTipText = “Option”
Else
If Option1. ToolTipText “Option”
Then
Option1.ToolTipText = Ini”
Else
Option1. ToolTipText = “Ini Option”
If Combo1. ToolTipText = “Ini Kombo” Then
Combo1. ToolTipText = “Kombo”
else
else
If Combo1. ToolTipText = “Kombo” Then
Combo1. ToolTipText = “Ini”
Else
Combo1. ToolTipText = “Ini Kombo”
End If
End If
End If
End If
End If
End If
End If
End If
kemudian jalankan, dan lihat pada kursor anda.
Tidak ada komentar:
Posting Komentar