kali ini saya akan mengajarkannya menggunakan balon tips. kalo bagi saya sih ini sebagai pemanis buatan dalam program vb.
penting ga penting, yang penting sesuka kita berkreasi. betulkan?
cara kerjanya sih sederhana banget. ketika kita hendak menyorot listbox atau filebox, maka akan muncul balon tips yang menjelaskan tulisan yang kita sorot dengan mouse.
desain terlebih dahulu form seperti disamping ini.
sebelum saya kasih listing codenya, saya akan beritahu terlebih dahulu isi formnya ada apa aja.
- listbox dengan name "list1"
- filelistbox dengan name "file1"
kalo sudah selesai, berikut ini adalah listing code dan penjelsannya:
Option Explicit
'--------------------------------------------------------------------------------------------
Private Sub Form_Load()
'--------------------------------------------------------------------------------------------
List1.AddItem "armada, yoyoy"
List1.AddItem "AVA, Joe"
List1.AddItem "Titan, andika"
List1.AddItem "peterpan, airel"
List1.AddItem "kangen band, monyet"
List1.AddItem "tangga, sapa ya"
List1.AddItem "radja, moldy"
List1.AddItem "T2, tiwi."
List1.AddItem "blink182, RIP."
List1.AddItem "siip deuh, sapa ajah booleh"
End Sub
'--------------------------------------------------------------------------------------------
'digunakan dalm proses pergerakan mouse. agar lebih sensitif ketika kita melakukan penyorotan listbox
Private Sub List1_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
'--------------------------------------------------------------------------------------------
ListBoxToolTip List1, Y, "(empty)"
End Sub
'--------------------------------------------------------------------------------------------
'digunakan dalm proses pergerakan mouse. agar lebih sensitif ketika kita melakukan penyorotan filelist
Private Sub File1_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
'--------------------------------------------------------------------------------------------
ListBoxToolTip File1, Y, "(empty)"
End Sub
'--------------------------------------------------------------------------------------------
'ini digunakan untuk sub dalam program yang akan dipanggil dalam pemrosesannya
Private Sub ListBoxToolTip(ByRef objList As Object, _
ByVal Y As Single, _
Optional ByRef strDefaultToolTip As String = "")
'--------------------------------------------------------------------------------------------
Dim lngIndex As Long
Dim objParentFont As StdFont
With objList
' mengadaptasian penulisan & index yang didapatkan:
With .Parent
Set objParentFont = .Font
Set .Font = objList.Font
lngIndex = Y \ .TextHeight("")
Set .Font = objParentFont
End With
' evaluasi index:
lngIndex = lngIndex + .TopIndex
If lngIndex < .ListCount Then
.ToolTipText = .List(lngIndex)
Else
.ToolTipText = strDefaultToolTip
End If
End With
End Sub
