منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : !!! 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]

تحياتى

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech