Page 137 - Open Soource Technologies 304.indd
P. 137
Unit 6: VB Control Structure
Object Property Setting
frmQuotation Text Quotation
LblQuestion Text Do you know what the game of skittles is (Y/N)?
mtxtAnswer Mask L
BtnDisplay Text Display Quotation
TxtQuote ReadOnly True
Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
Dim message As String
message = “Skittles is an old form of bowling in which a wooden “ & _
“disk is used to knock down nine pins arranged in a
square.”
If mtxtAnswer.Text.ToUpper = “N” Then
MsgBox(message, 0, “”)
End If
txtQuote.Text = “Life ain’t all beer and skittles.” & _
“ - Du Maurier (1894)”
End Sub
[Run, type “N” into the masked text box, and press the button.]
[Press OK.]
LOVELY PROFESSIONAL UNIVERSITY 131
