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

التطبيق ( 3 ) :
الهدف : تطبيق أمر If Statement .




الوصف : برنامج محرر نصوص مبسط يحتوي على أزرار ( Bold ، Italic ، Underline ) وزر للخروج ( Exit ) يقوم بتغيير تنسيق الخط لمربع النص حسب الزر المستخدم من قبل مستخدم البرنامج .

Private Sub cmdBold_Click()
If txtMain.FontBold = False Then
txtMain.FontBold = True
Else
txtMain.FontBold = False
End If
End Sub
---------------------------------------------------------------
Private Sub cmdItalic_Click()
If txtMain.FontItalic = False Then
txtMain.FontItalic = True
Else
txtMain.FontItalic = False
End If
End Sub
---------------------------------------------------------------
Private Sub cmdUline_Click()
If txtMain.FontUnderline = False Then
txtMain.FontUnderline = True
Else
txtMain.FontUnderline = False
End If
End Sub
---------------------------------------------------------------
Private Sub cmdExit_Click()
End
End Sub