فيجيوال بيسك - التطبيق ( 4 )

التطبيق ( 4 ) :
الهدف : استخدام الأمر Select case بالإضافة إلى استخدام أدوات ( ComboBox ، CheckBox ) .





الوصف: برنامج محرر نصوص مبسط يحتوي على ثلاث قوائم تشمل تغيير حجم ونمط الخط وعمل محاذاة وتوسيط للنص المكتوب بالاضافة إلى اختيار check box لتفعيل خاصية underline للنص .
Private Sub Form_Load( )
cmbSize.AddItem " 10"
cmbSize.AddItem " 15"
cmbSize.AddItem " 20"
cmbSize.AddItem " 25"

cmbAlig.AddItem " left"
cmbAlig.AddItem " right"
cmbAlig.AddItem " center"

cmbstyle.AddItem " Regular"
cmbstyle.AddItem " Bold "
cmbstyle.AddItem " Italic "
End Sub
-------------------------------------------------------------------
Private Sub Check1_Click()
If Check1.Value = False Then
Text1.FontUnderline = False
Else
Text1.FontUnderline = True
End If
End Sub
-------------------------------------------------------------------
Private Sub cmbAlig_Click()
Select Case cmbAlig.ListIndex
Case 0
Text1.Alignment = 0
Case 1
Text1.Alignment = 1
Case 2
Text1.Alignment = 2
End Select
End Sub
-------------------------------------------------------------------
Private Sub cmbSize_Click()
Select Case cmbSize.ListIndex
Case 0
Text1.FontSize = 10
Case 1
Text1.FontSize = 15
Case 2
Text1.FontSize = 20
Case 3
Text1.FontSize = 25
End Select
End Sub
-------------------------------------------------------------------
Private Sub cmbstyle_Click()
Select Case cmbstyle.ListIndex
Case 0
Text1.FontBold = False
Text1.FontItalic = False
Case 1
Text1.FontBold = True
Case 2
Text1.FontItalic = True
End Select
End Sub