Scribd
Upload
83 views2 pages

Tambah Tool Tip & Button Methode Mause Hover

The document discusses adding tooltips and buttons to a form in Visual Basic. It includes code to add buttons and tooltips, start and pause a timer when buttons are clicked, and save log data to a file.

Uploaded by

winnashen
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
83 views2 pages

Tambah Tool Tip & Button Methode Mause Hover

The document discusses adding tooltips and buttons to a form in Visual Basic. It includes code to add buttons and tooltips, start and pause a timer when buttons are clicked, and save log data to a file.

Uploaded by

winnashen
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Tambah tool tip & button methode mause hover

[Link] = "aaa" & [Link](Me.Button1)

Tambahkan tool tip dan sebuah button lalu pada property atur tooltip on tool tip satu
(isi nama nya)

Public Class Form1


Dim xxx As New Stopwatch
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
[Link] = False
[Link] = True
[Link] = True
[Link]()

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles [Link]


[Link] = False
[Link] = False
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]

If [Link] = "pause" Then


[Link]()
[Link] = "con"
ElseIf [Link] = "con" Then
[Link]()
[Link] = "pause"

End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]


Dim elapsed As TimeSpan = [Link]
[Link] = [Link]("{0 : 00} :{1:00}:{2:00}",
[Link]([Link]), [Link], [Link])

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]


If [Link] = "stop" Then
[Link]()
[Link] = True
End If

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles [Link]


[Link]([Link])
End Sub
End Class
Private Sub open_Click(sender As Object, e As EventArgs) Handles [Link]
If [Link] = [Link] Then
[Link]([Link])
End If
End Sub
Pada bagian property open file dialog 1 filter bisa d tambah |*txt

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles [Link]


If [Link] = [Link] Then
[Link]([Link],
[Link], True)
End If
End Sub
Pada bgian property
Defaut ext = rtf
Filter |*rtf

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles [Link]


[Link]([Link], 10, 10, 20, 50)
[Link]([Link], 30, 60, 20, 50)
[Link]([Link], 51, 10, 20, 50)
End Sub

Dim g as graphics = [Link]

Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles


[Link]
[Link]()
[Link] = [Link]
End Sub

Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles [Link]


[Link](1000, "aa", "aaaa", [Link])
[Link]()
End Sub

Ingad atur gambar dan notifnya

You might also like