Admin
Admin
عدد المساهمات : 333
نقاط : 5598
تاريخ التسجيل : 08/10/2011
 |  موضوع: مشروع مربع النص  الجمعة ديسمبر 23, 2011 6:31 am | |
| هذا المشروع سنتعلم فيه كيفية عمل مربع نص والتحكم فيه بالنص واللون والخط والإطار .
سنتعلم ذلك في vb.net 2003 و vb.net 2005 وسنتعرف على الإختلافات البسيطة بينهما في هذا المشروع .
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نضيف أربعة Buttons وواحد TextBox و أداة FontDialog و أداة ColorDialog في form
سيكون أسماء الأدوات السابقة كالتالي :
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
أولاً : للتحكم بنوع خط النص وحجمه وشكله الموجود في TextBox نضغط على زر التحكم بالنص ونضيف الكود التالي :
في vb.net 2003 :
رمز برمجي:
FD.ShowColor = True
FD.ShowDialog()
Txt1.Font = FD.Font
Txt1.ForeColor = FD.Color
في vb.net 2005 :
رمز برمجي:
FD.ShowColor = True
FD.ShowDialog()
With Txt1
.Font = FD.Font
.ForeColor = FD.Color
End With
ثانياً: للتحكم بإطار TextBox نضغط على زر التحكم بالإطار ونضيف الكود التالي :
في vb.net 2003 :
رمز برمجي:
Static m As Integer
Select Case m
Case 0
Txt1.BorderStyle = BorderStyle.Fixed3D
m += 1
Case 1
Txt1.BorderStyle = BorderStyle.FixedSingle
m += 1
Case 2
Txt1.BorderStyle = BorderStyle.None
m = 0
End Select
في vb.net 2005 :
رمز برمجي:
نفس كود vb 2003
ثالثاً : للتحكم في لون خلفية TextBox نضغط على زر التحكم بلون الخلفية ونضيف الكود التالي :
في vb.net 2003 :
رمز برمجي:
CD.ShowDialog()
Txt1.BackColor = CD.Color
في vb.net 2005 :
رمز برمجي:
نفس كود vb 2003
رابعاً : لتغيير النص الموجود في TextBox نضغط على زر تغيير النص ونضيف الكود التالي :
في vb.net 2003 :
رمز برمجي:
Dim m As String
m = InputBox("أدخل النص الجديد", "النص الجديد", Txt1.Text)
If Trim(m) = "" Then Exit Sub
Txt1.Text = m
في vb.net 2005 :
رمز برمجي:
نفس كود vb 2003
| |
|
