15-12-12, 10:37 PM
16-12-12, 01:07 AM
وعليكم السلام ورحمة الله وبركاته
تفضل أخي هذين المثالين
بالتوفيق
تفضل أخي هذين المثالين
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim toolTip1 As New ToolTip()
toolTip1.SetToolTip(Me.Button1, "My button1")
End Subكود :
Dim Tooltip1 As New ToolTip
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Tooltip1.ToolTipIcon = ToolTipIcon.Info
Tooltip1.Show("My Button1", Button1, Button1.Width, Button1.Height)
End Sub
Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
Tooltip1.Hide(Button1)
End Sub16-12-12, 12:56 PM
السلام عليكم ورحمة الله وبركاته
بارك الله فيك وزادك من علمهجزاك الله عنا كل خير