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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كيف اجعل الكلمة في Textbox شفافة
نسخة كاملة : كيف اجعل الكلمة في Textbox شفافة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

kslawy

20-03-13, 11:10 AM
يعطيك العافية أخي شادو

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

just.coder

20-03-13, 01:15 PM
كود :
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

VBMaged

20-03-13, 05:53 PM
شكرا اخي [b]just.coder[/b] بارك الله فيك

@@أبورائد@@

20-03-13, 06:14 PM

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





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






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

VBMaged

20-03-13, 08:48 PM
دئما متألق اخي ابو رائد Smile
رجاء خاص لإدارة المنتدى بمعاجلة مشكلة عدم ظهور زري (شكراً لهذا) و (أعجبني هذا) في بعض المشاركات !!!!

waelmohd

07-04-20, 05:23 PM
(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
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كيف اجعل الكلمة في Textbox شفافة