03-10-12, 11:16 AM
كاتب الموضوع : !!! BoriS !!!
كثيرا من المنتقلين من VB6 الى VB.NET يعانون من عدم وجود خاصية التلميحة على ما أذكر كانت تسمى فى Vb6 الــ Tip أو ال Tag والله أعلى وأعلم ..هذه طريقة وضعها ....
كود :
[color=#000000][COLOR=#0000bb] Dim [/color][color=#007700][[/color][color=#0000bb]Tip[/color][color=#007700]] As New [/color][COLOR=#0000bb]ToolTip
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Form1_Load[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles MyBase[/color][color=#007700].[/color][COLOR=#0000bb]Load
[/COLOR][color=#007700][[/color][color=#0000bb]Tip[/color][color=#007700]].[/color][color=#0000bb]AutomaticDelay [/color][color=#007700]= [/color][COLOR=#0000bb]1000
[/COLOR][color=#007700][[/color][color=#0000bb]Tip[/color][color=#007700]].[/color][color=#0000bb]InitialDelay [/color][color=#007700]= [/color][COLOR=#0000bb]1000
[/COLOR][color=#007700][[/color][color=#0000bb]Tip[/color][color=#007700]].[/color][color=#0000bb]ReshowDelay [/color][color=#007700]= [/color][COLOR=#0000bb]500
[/COLOR][color=#007700][[/color][color=#0000bb]Tip[/color][color=#007700]].[/color][color=#0000bb]ShowAlways [/color][color=#007700]= [/color][COLOR=#0000bb]True
End Sub
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub PictureBox1_MouseMove[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles PictureBox1[/color][color=#007700].[/color][COLOR=#0000bb]MouseMove
[/COLOR][color=#007700][[/color][color=#0000bb]Tip[/color][color=#007700]].[/color][color=#0000bb]SetToolTip[/color][color=#007700]([/color][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]PictureBox1[/color][color=#007700], [/color][color=#dd0000]"ESSAM - Hack_88@hotmail.com"[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]
تحياتى