تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip
#1
السلام عليكم ورحمة الله وبركاته

كيف اغير لون الخط والخلفية للنص الذي اريده ان ايظهر في اي اداة من خلال

الاداة ToolTip
الرد }}}}
تم الشكر بواسطة:
#2
كود :
Dim tp As New ToolTip


        tp.BackColor = Color.Green
        tp.ForeColor = Color.White
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
يعطيك العافية
الرد }}}}
تم الشكر بواسطة:
#4
الف شكر اخي العزيز لكن لم يتغيير لون الخط ولا الخلفية

من خلال النص الذي يظهر بعد وضح الماوس على الادوات

مثلا لدي اداة Button واريد عند وضع الماوس علية يظهر نص كدليل الذي تقوم به الاداة ToolTip جميل
اريد النص الذي يظهر هو ما يتغير به لون الخط ولون خلفيته

ودمتم
الرد }}}}
تم الشكر بواسطة:
#5
جرب هذا الكود
ضعه في حدث Form_Load
هذا الكود سيجعل الرسالة للزر باللون البيج والخلفية سوداء - أي عكس الألوان
كود :
Dim toolTip1 As New ToolTip()
        toolTip1.ForeColor = Color.Beige
        toolTip1.BackColor = Color.Black
        toolTip1.SetToolTip(Me.Button1, "My button1")
الرد }}}}
تم الشكر بواسطة:
#6
لم يتغيير شي معي
انا بعمل على فيجوال 2008

ووندوز 7

قمت بأنشاء مشروع جديد ووضعت به Button1 and ToolTip1

ووضعت الكود الذي بالمشاركة 5
في حدث Form_Load

ولم يتغيير شي معي
الرد }}}}
تم الشكر بواسطة:
#7
كلامك صحيح قمت بتجربة الكود على ويندوز 7 وفعلا لم يعمل وقمت بإلغاء سمات ويندوز Xp من خيارات البرنامج فعمل الكود لكن منظر البرنامج كان سيئا
الرد }}}}
تم الشكر بواسطة:
#8
أيضاً جربته علي ويندوز xp ويعمل جيداً ... يبدوا أن المشكلة في ويندوز 7

علي العموم جرب هذا الحل من منتديات مايكروسوفت :

http://social.msdn.microsoft.com/Forums/...9f8ce200a8
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#9
أخي الكريم وجدت الحل
اتبع هذه الخطوات
أولا
من حصائص الأداة ToolTip1
قم بتغيير القيمة للخاصية OwnerDraw إلى True
ثانيا قم بإضافة هذا الكود

كود :
Private Sub ToolTip1_Draw(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip1.Draw
        Dim t As ToolTip = CType(sender, ToolTip)
        Using backBrush As Brush = New SolidBrush(t.BackColor)
            e.Graphics.FillRectangle(backBrush, e.Bounds)
        End Using
        Using textBrush As Brush = New SolidBrush(t.ForeColor)
            Using sf As StringFormat = New StringFormat
                sf.Alignment = StringAlignment.Center
                sf.LineAlignment = StringAlignment.Center
                e.Graphics.DrawString(e.ToolTipText, Me.Font, textBrush, e.Bounds, sf)
            End Using
        End Using
    End Sub

وإذا أردت أن تختصر الكود

كود :
Private Sub ToolTip1_Draw(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawToolTipEventArgs) Handles ToolTip1.Draw
        Dim backBrush As Brush = New SolidBrush(sender.BackColor)
        e.Graphics.FillRectangle(backBrush, e.Bounds)
        Dim textBrush As Brush = New SolidBrush(sender.ForeColor)
        Dim sf As StringFormat = New StringFormat
        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center
        e.Graphics.DrawString(e.ToolTipText, Me.Font, textBrush, e.Bounds, sf)
    End Sub
الآن قم بتغيير الألوان كما يحلو لك من خلال خصائص الأداة وسيعمل بإذن الله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 55 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 53 03-12-16, 09:41 AM
آخر رد: ابراهيم النعيمي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 108 26-11-16, 03:03 AM
آخر رد: hglogtd
  كيفيه تشغيل الفورم بالتاريخ الذي يحدده المستخدم ddemed 5 130 23-11-16, 10:12 PM
آخر رد: السرور
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 120 15-11-16, 04:00 AM
آخر رد: LoveVb
  [سؤال] التعامل مع الزر الموجود في DataGrideView هل يستطيع حذف الصف الذي به البتن thevirus 1 105 10-11-16, 09:20 PM
آخر رد: ابراهيم النعيمي
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 8 204 07-11-16, 01:14 PM
آخر رد: zinom
  [سؤال] هل يلزم تثبيت SQL Server في جهاز الزبون الذي ستبيع له برنامجك ام هناك طريقة اخرى؟ thevirus 3 149 06-11-16, 07:51 PM
آخر رد: العواد الصغير
  [سؤال] جعل المستخدم يحدد عنوان اي بي السيرفر الذي عليه قاعدة البيانات thevirus 0 58 04-11-16, 10:38 AM
آخر رد: thevirus
  طريقة تغيير الباك كلر للتكست بوكس thevirus 8 211 29-10-16, 05:57 PM
آخر رد: thevirus

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم