+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip (/showthread.php?tid=7132)
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - aftfm - 26-11-12
السلام عليكم ورحمة الله وبركاته
كيف اغير لون الخط والخلفية للنص الذي اريده ان ايظهر في اي اداة من خلال
الاداة ToolTip
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - kslawy - 26-11-12
كود :
Dim tp As New ToolTip
tp.BackColor = Color.Green
tp.ForeColor = Color.Whiteتغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - sooriaty03 - 26-11-12
يعطيك العافية
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - aftfm - 26-11-12
الف شكر اخي العزيز لكن لم يتغيير لون الخط ولا الخلفية
من خلال النص الذي يظهر بعد وضح الماوس على الادوات
مثلا لدي اداة Button واريد عند وضع الماوس علية يظهر نص كدليل الذي تقوم به الاداة ToolTip جميل
اريد النص الذي يظهر هو ما يتغير به لون الخط ولون خلفيته
ودمتم
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - sooriaty03 - 26-11-12
جرب هذا الكود
ضعه في حدث Form_Load
هذا الكود سيجعل الرسالة للزر باللون البيج والخلفية سوداء - أي عكس الألوان
كود :
Dim toolTip1 As New ToolTip()
toolTip1.ForeColor = Color.Beige
toolTip1.BackColor = Color.Black
toolTip1.SetToolTip(Me.Button1, "My button1")تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - aftfm - 26-11-12
لم يتغيير شي معي
انا بعمل على فيجوال 2008
ووندوز 7
قمت بأنشاء مشروع جديد ووضعت به Button1 and ToolTip1
ووضعت الكود الذي بالمشاركة 5
في حدث Form_Load
ولم يتغيير شي معي
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - sooriaty03 - 26-11-12
كلامك صحيح قمت بتجربة الكود على ويندوز 7 وفعلا لم يعمل وقمت بإلغاء سمات ويندوز Xp من خيارات البرنامج فعمل الكود لكن منظر البرنامج كان سيئا
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - kslawy - 26-11-12
أيضاً جربته علي ويندوز xp ويعمل جيداً ... يبدوا أن المشكلة في ويندوز 7
علي العموم جرب هذا الحل من منتديات مايكروسوفت :
http://social.msdn.microsoft.com/Forums/en/vblanguage/thread/f0d8c5d0-1340-4f94-be64-3e9f8ce200a8
تغيير لون الخط في النص الذي يظهر كتعليمة من الاداة ToolTip - sooriaty03 - 26-11-12
أخي الكريم وجدت الحل
اتبع هذه الخطوات
أولا
من حصائص الأداة 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