Membuat Sebuah Tool Tips Bisa Berjalan

Membuat Sebuah Tool Tips Bisa Berjalan.  Pernahkah anda melihat sebuah tool tip yang dapat berjalan pada sebuah aplikasi atau program.? Jika pernah bagimana Cara Membuat Sebuah Tool Tips Bisa Berjalan ?
Pada kesempatan kali ini saya akan berbagi tips dan trik membuat sebuah tool tip yang bisa berjalan, pada setingan defaultnya sebuah tool tip itu tidak bisa berjalan alias diam dengan sedikit trik sebuah tool tips dapat berjalan sehingga aplikasi yang kita buat tambah menarik dan tidak membosankan.

Sebernarnya caranya sangat mudah dan tidak begitu rumit kodingnya. Sebagai contoh kita akan membuat sebuah tool tip pada sebuah commandbutton. Siapkan sebuah form dan tambahkan sebuah commandbutton jika sudah klik commandbutton nya lalu cari di properties pada bagian bagian ToolTipText nya silahkan anda isi tool tipnya sesuai keinginan anda seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah selanjutnya yaitu membuat koding. Buatlah sebuah Function Scrolling seperti berikut ini pada bagian general declarations

Public Function Scrolling(ByVal obj As Object)
    Dim strText As String
    strText = obj.ToolTipText
    If Len(Trim$(strText)) <> 0 Then
        strText = (Right$(strText, _
        Len(strText) - 1)) & _
        Left$(strText, 1)
        obj.ToolTipText = strText
    End If
End Function

kemudian double klik lah commandbutton nya lalu tulislah koding berikut ini pada event mouse_move seperti berikut ini

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call Scrolling(Me.Command1)
End Sub

Untuk lebih jelasnya lihatlah gambar di bawah ini

Tampilkan Gambar

Jika sudah silahkan di running. jika berhasil maka jika kita menaruh cursor pada commandbutton maka muncul tool tipnya dan tool tipnya dapat berjalan atau bergerak dari kanan ke kiri. Seperti gambar berikut ini

Trik ini dapat di terapkan pada komponen lain tidak hanya commandbutton misalnya kita terapkan pada datagrid,textbox, listbox dan lain sebaginnya. Semoga tutorial ini bermanfaat.





Tags:
Cara Membuat Sebuah Tool Tips Bisa Berjalan,Trik Tool Tip,cara mempercantik form dengan tool tip,tool tip bisa bergerak