برنامه نویسی ویژوال بیسیک

فرض کنيد بخواهيم فرمی شامل يک Text Box و دو Check Box با عنوانهای Bold و Italic داشته باشيم که اگر Bold، مارک خورده بود، متن داخل Text Box به صورت Bold درآيد و اگر Italic مارک خورده بود به صورت Italic  فرم نهايی آن را در شکل 6 می توانيد ببينيد.

Private Sub chkBold_Click ()

           IF chkBold.Value = VBchecked Then

          txtDisplay.FontBold = True

     Else

          txtDisplay.FontBold = False

     End IF

End Sub

Private Sub chkItalic_Click ()

     IF chkItalic.Value = VBchecked Then

          txtDisplay.FontItalic = True

     Else

          txtDisplay.FontItalic = False

     End IF

End Sub

 توجه داشته باشيم که هرگاه کاربر بر روی يک Check Box و يا يک Option Button کليک کند و يا بوسيله کليد Tab ، فوکوس را به آن دهد و روی آن کليد Space bar را بزند، رويداد Click از اين دو کنترل روی خواهد داد.