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

الصفحات : 1 2

يعطيك العافية أخي شادو

رجاء خاص لإدارة المنتدى بمعاجلة مشكلة عدم ظهور زري (شكراً لهذا) و (أعجبني هذا) في بعض المشاركات !!!!

كود :
Dim gh As New Label

    Dim newtext As New TextBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For Each c As Control In Me.Controls

            If TypeOf c Is TextBox Then

                If c.Name = "TextBox1" Then

                    Dim color1 As New Color

                    color1 = c.BackColor

                    Dim color2 As New Color

                    color2 = c.ForeColor

                    Dim size1 As New Size

                    size1 = c.Size

                    Dim size2 As New Size

                    size2 = c.Location

                    '\\\\\\\\\\\\\\\\\\\

                    gh.Text = "بحث"

                    gh.ForeColor = Color.Red

                    gh.BackColor = c.BackColor

                    gh.Location = c.Location

                    gh.Size = c.Size

                    Me.Controls.Add(gh)

                    AddHandler gh.MouseEnter, AddressOf gh_mouseenter

                    '\\\\\\\\\\\\\\\\\\\\

                    Me.Controls.Remove(c)

                    newtext.BackColor = color1

                    newtext.ForeColor = color2

                    newtext.Size = size1

                    newtext.Location = size2

                    Me.Controls.Add(newtext)

                    AddHandler newtext.MouseLeave, AddressOf newtext_mouseLeave

                    Exit For

                End If

            End If

        Next

    End Sub

    Private Sub newtext_mouseLeave(ByVal sender As Object, ByVal e As System.EventArgs)

        If newtext.Text = Nothing Then

            gh.Visible = True

        End If

    End Sub

    Private Sub gh_mouseenter(ByVal sender As Object, ByVal e As System.EventArgs)

        gh.Visible = False

    End Sub

شكرا اخي [b]just.coder[/b] بارك الله فيك

السلام عليكم ورحمة الله وبركاته

وهذه طريقة أخرى، فقط أضف الأداة إلى الفورم، ثم اكتب في الخاصية Tip لكل TextBox التلميح الذي تريد، (مشابهه للأداة ToolTip)
[صورة مرفقة: m5zn_c588b9bdcddc1ae.png]

السلام عليكم ورحمة الله وبركاته

دئما متألق اخي ابو رائد Smile

رجاء خاص لإدارة المنتدى بمعاجلة مشكلة عدم ظهور زري (شكراً لهذا) و (أعجبني هذا) في بعض المشاركات !!!!

(20-03-13, 04:02 AM)shado1796 كتب : [ -> ]
تفضل اخي الكريم هذي صورة للمثال المرفق
http://im37.gulfup.com/vkpLY.png

والمثال مرفق في المرفقات Vb.Net 2010

بالتوفيق

أخي لو سمحت المرفق غير موجود

(20-03-13, 06:14 PM)@@أبورائد@@ كتب : [ -> ]
السلام عليكم ورحمة الله وبركاته

وهذه طريقة أخرى، فقط أضف الأداة إلى الفورم، ثم اكتب في الخاصية Tip لكل TextBox التلميح الذي تريد، (مشابهه للأداة ToolTip)

السلام عليكم ورحمة الله وبركاته

أخي لو سمحت المرفق غير موجود

الصفحات : 1 2

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

kslawy

just.coder

VBMaged

@@أبورائد@@

VBMaged

waelmohd