Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If Asc(e.KeyChar) < 65 Or Asc(e.KeyChar) > 90 AndAlso Asc(e.KeyChar) < 97 Or Asc(e.KeyChar) > 122 Then
MessageBox.Show("Only Letters")
e.Handled = True
ElseIf Asc(e.KeyChar) = 8 Then
e.Handled = False
End If
End Sub
this is based on visual basic 2005 tricks and tips to improve your program.
Thursday, December 15, 2011
Allow only LETTERS and Backspace in a textbox
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If (e.KeyChar >= "a" And e.KeyChar = "A" And e.KeyChar
e.Handled = False
Else
e.Handled = True
MessageBox.Show("Only Letters")
End If
End Sub
If (e.KeyChar >= "a" And e.KeyChar = "A" And e.KeyChar
e.Handled = False
Else
e.Handled = True
MessageBox.Show("Only Letters")
End If
End Sub
Allow NUMBERS, BACKSPACE and a DOT in a textbox
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox1.KeyPress
'There are a couple scenerios this code is looking for. One is checking for the Decimal period "."
'and whether it exists in the textbox already. The other is seeing if the keypress was a Number and
'Control based key.
If e.KeyChar = "." Then
'If a value higher than -1 is returned, it means there IS a existing decimal point’
If TextBox1.Text.IndexOf(".") > -1 Then
'This says that I already dealt with the _KeyPress event so do not do anything else with this event.
e.Handled = True
End If
'Remember you want numbers to get through and the Control keys like “Backspace”
ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
'This says that I already dealt with the _KeyPress event so do not do anything else with this event.
e.Handled = True
End If
End Sub
Handles TextBox1.KeyPress
'There are a couple scenerios this code is looking for. One is checking for the Decimal period "."
'and whether it exists in the textbox already. The other is seeing if the keypress was a Number and
'Control based key.
If e.KeyChar = "." Then
'If a value higher than -1 is returned, it means there IS a existing decimal point’
If TextBox1.Text.IndexOf(".") > -1 Then
'This says that I already dealt with the _KeyPress event so do not do anything else with this event.
e.Handled = True
End If
'Remember you want numbers to get through and the Control keys like “Backspace”
ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
'This says that I already dealt with the _KeyPress event so do not do anything else with this event.
e.Handled = True
End If
End Sub
Date and Time Difference user interface:
here is the CODE:
Public Class frmDateandTimeDifference
Private Sub btnGettheDifference_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGettheDifference.Click
Dim Diff1, Diff2, Diff3 As Long
Select Case cboSelect.SelectedIndex
Case 0
Diff1 = DateDiff(DateInterval.Year, dtpStartDate.Value, dtpEndDate.Value)
Diff2 = DateDiff(DateInterval.Month, dtpStartDate.Value, dtpEndDate.Value)
Diff3 = DateDiff(DateInterval.Day, dtpStartDate.Value, dtpEndDate.Value)
lblOutput.Text = Diff1 & " Year/s " & Diff2 & " Month/s " & Diff3 & " Day/s "
Case 1
Diff1 = DateDiff(DateInterval.Hour, dtpStartTime.Value, dtpEndTime.Value)
Diff2 = DateDiff(DateInterval.Minute, dtpStartTime.Value, dtpEndTime.Value)
Diff3 = DateDiff(DateInterval.Second, dtpStartTime.Value, dtpEndTime.Value)
lblOutput.Text = Diff1 & " Hour/s " & Diff2 & " Minute/s " & Diff3 & " Second /s "
End Select
End Sub
Private Sub frmDateandTimeDifference_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cboSelect.Items.Add("Year, Month, Day")
cboSelect.Items.Add("Hour, Minute, Second")
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
Me.Close()
End Sub
End Class
**Run and Save the program.....
Proper Case
1. Proper Case user interface:
![](//1.bp.blogspot.com/-jRoFjvl0STs/TurI_Q0DO3I/AAAAAAAAANU/vl6NL14fD8g/s320/b.JPG)
2. Code....
Public Class frmProperCase
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
txtProperCase.Text = Microsoft.VisualBasic.StrConv(txtInput.Text, VbStrConv.ProperCase)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Me.Close()
End Sub
End Class
3. Save and RUN the program...
2. Code....
Public Class frmProperCase
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
txtProperCase.Text = Microsoft.VisualBasic.StrConv(txtInput.Text, VbStrConv.ProperCase)
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Me.Close()
End Sub
End Class
3. Save and RUN the program...
Character Count
1. Character Count user interface:
![](//4.bp.blogspot.com/-4Si6uJ4nKWw/TurGlbxOaBI/AAAAAAAAANI/UiiMg6J8UHQ/s320/b.JPG)
2. The Code....
Public Class frmCharacterCount
Private Sub btnClickHereToCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClickHereToCount.Click
Dim length, x, count As Integer
Dim letter As String
length = Microsoft.VisualBasic.Len(txtPhrase.Text)
For x = 1 To length
letter = Microsoft.VisualBasic.Mid(txtPhrase.Text, x, 1)
If Microsoft.VisualBasic.StrComp(letter, txtcharacter.Text, CompareMethod.Text) = 0 Then
count = count + 1
End If
Next
lblOutput.Text = "There are " & count & " " & txtcharacter.Text & " in the Phrase."
End Sub
Private Sub exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit.Click
Me.Close()
End Sub
End Class
3. Save and RUN the program...
2. The Code....
Public Class frmCharacterCount
Private Sub btnClickHereToCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClickHereToCount.Click
Dim length, x, count As Integer
Dim letter As String
length = Microsoft.VisualBasic.Len(txtPhrase.Text)
For x = 1 To length
letter = Microsoft.VisualBasic.Mid(txtPhrase.Text, x, 1)
If Microsoft.VisualBasic.StrComp(letter, txtcharacter.Text, CompareMethod.Text) = 0 Then
count = count + 1
End If
Next
lblOutput.Text = "There are " & count & " " & txtcharacter.Text & " in the Phrase."
End Sub
Private Sub exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit.Click
Me.Close()
End Sub
End Class
3. Save and RUN the program...
Button Play
1.A program that will initially display two buttons, the first is enabled and the other is disabled. The behavior will be, once you click the Enabled button, it will be disabled, while the other button (which is disabled) will be enabled.
![](//2.bp.blogspot.com/-QIRV29hl8Ds/TurE5yTCd7I/AAAAAAAAAM8/bFdSTYKkHN4/s320/b.JPG)
2. CODE:
Public Class frmButtonPlay
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
btn1.Enabled = False
btn2.Enabled = True
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
btn2.Enabled = False
btn1.Enabled = True
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
Private Sub frm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn1.Enabled = True
btn2.Enabled = False
End Sub
End Class
3. Save & Run...
2. CODE:
Public Class frmButtonPlay
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
btn1.Enabled = False
btn2.Enabled = True
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
btn2.Enabled = False
btn1.Enabled = True
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
Private Sub frm2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn1.Enabled = True
btn2.Enabled = False
End Sub
End Class
3. Save & Run...
Got Focus
1. A program that will illustrate the GotFocus event with four text box and a label. As you move the focus from one text box to another, the label will tell you which of them has the focus.
![](//3.bp.blogspot.com/-OoeVxkZ5rlQ/TurChs7oJoI/AAAAAAAAAMw/GZQPmi8GqLY/s320/b.JPG)
2. The CODE:
Public Class frm3
Private Sub GotFocus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MultipleEvents(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter
ShowInfo.Text = "Text " & Microsoft.VisualBasic.Right(ActiveControl.Name, 1) & " is in Focus"
End Sub
Private Sub Label1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Leave
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Me.Close()
End Sub
End Class
3. Save & Run your program.
2. The CODE:
Public Class frm3
Private Sub GotFocus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MultipleEvents(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter
ShowInfo.Text = "Text " & Microsoft.VisualBasic.Right(ActiveControl.Name, 1) & " is in Focus"
End Sub
Private Sub Label1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Leave
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Me.Close()
End Sub
End Class
3. Save & Run your program.
Visible Enabled
1. Make an interface like this ti notice the trick.
![](//4.bp.blogspot.com/-emX5W4EliYY/TurAHueBFVI/AAAAAAAAAMk/uFkR0GN1F5M/s320/b.JPG)
2. The code..
Public Class frm2
Private Sub VisibleEnabled_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
TextBox.Visible = False
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
TextBox.Visible = True
TextBox.Text = "I am here."
TextBox.Enabled = True
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
TextBox.Visible = True
TextBox.Text = "I am enabled."
TextBox.Enabled = True
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
TextBox.Enabled = False
TextBox.Text = "I am disabled."
End Sub
Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox.TextChanged
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
End Class
3. Save & Run the program.
2. The code..
Public Class frm2
Private Sub VisibleEnabled_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
TextBox.Visible = False
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
TextBox.Visible = True
TextBox.Text = "I am here."
TextBox.Enabled = True
End Sub
Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
TextBox.Visible = True
TextBox.Text = "I am enabled."
TextBox.Enabled = True
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
TextBox.Enabled = False
TextBox.Text = "I am disabled."
End Sub
Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox.TextChanged
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
End Class
3. Save & Run the program.
Mouse Locator
1. A program showing the location of the pointer (x and y) in the title bar. Form name is "frm1".
![](//3.bp.blogspot.com/-XUObzbGrI-U/Tuq-dBn-fpI/AAAAAAAAAMY/TMg9dAooNmM/s320/b.JPG)
2. Enter the CODE:
Public Class frm1
Private Sub MouseLocator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MouseLocator_Mousemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Me.Text = "Your location in X is " & e.X & " and Y is " & e.Y
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
End Class
3. Save and Run your program.
2. Enter the CODE:
Public Class frm1
Private Sub MouseLocator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MouseLocator_Mousemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Me.Text = "Your location in X is " & e.X & " and Y is " & e.Y
End Sub
Private Sub backtoindex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backtoindex.Click
Me.Close()
End Sub
End Class
3. Save and Run your program.
Grade Generator
1. Construct the user interface as follows:
![](//1.bp.blogspot.com/-3C04ru7f2eM/Tuq75W_zxwI/AAAAAAAAAMM/6anX87yEdtM/s320/b.JPG)
2. Code:
Public Class frmGradeGenerator
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim FinalGrade As Single
FinalGrade = Val(txtPrelimGrade.Text) * 0.3 + Val(txtMidtermGrade.Text) * 0.3 + Val(txtFinalsGrade.Text) * 0.4
txtFinalGrade.Text = FinalGrade
Select Case FinalGrade
Case 98 To 100
txtEquivalentGrade.Text = "1.0"
txtRemarks.Text = "Excellent"
Case 95 To 97
txtEquivalentGrade.Text = "1.25"
txtRemarks.Text = "Outstanding"
Case 92 To 94
txtEquivalentGrade.Text = "1.5"
txtRemarks.Text = "Very Good Work"
Case 89 To 91
txtEquivalentGrade.Text = "1.75"
txtRemarks.Text = "Very Satisfactory work"
Case 86 To 88
txtEquivalentGrade.Text = "2.0"
txtRemarks.Text = "Quite Good Work"
Case 83 To 85
txtEquivalentGrade.Text = "2.25"
txtRemarks.Text = "Good Work"
Case 80 To 82
txtEquivalentGrade.Text = "2.5"
txtRemarks.Text = "Satisfactory Work"
Case 77 To 79
txtEquivalentGrade.Text = "2.75"
txtRemarks.Text = "Moderately Satisfactory Work"
Case 75 To 76
txtEquivalentGrade.Text = "3.0"
txtRemarks.Text = "Passing"
Case Is < 75
txtEquivalentGrade.Text = "5.0"
txtRemarks.Text = "Failure"
Case Else
MsgBox("You Enter an Invalid Grade", MsgBoxStyle.Exclamation, "Warning")
End Select
End Sub
End Class
3. Save and Run the program.
2. Code:
Public Class frmGradeGenerator
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim FinalGrade As Single
FinalGrade = Val(txtPrelimGrade.Text) * 0.3 + Val(txtMidtermGrade.Text) * 0.3 + Val(txtFinalsGrade.Text) * 0.4
txtFinalGrade.Text = FinalGrade
Select Case FinalGrade
Case 98 To 100
txtEquivalentGrade.Text = "1.0"
txtRemarks.Text = "Excellent"
Case 95 To 97
txtEquivalentGrade.Text = "1.25"
txtRemarks.Text = "Outstanding"
Case 92 To 94
txtEquivalentGrade.Text = "1.5"
txtRemarks.Text = "Very Good Work"
Case 89 To 91
txtEquivalentGrade.Text = "1.75"
txtRemarks.Text = "Very Satisfactory work"
Case 86 To 88
txtEquivalentGrade.Text = "2.0"
txtRemarks.Text = "Quite Good Work"
Case 83 To 85
txtEquivalentGrade.Text = "2.25"
txtRemarks.Text = "Good Work"
Case 80 To 82
txtEquivalentGrade.Text = "2.5"
txtRemarks.Text = "Satisfactory Work"
Case 77 To 79
txtEquivalentGrade.Text = "2.75"
txtRemarks.Text = "Moderately Satisfactory Work"
Case 75 To 76
txtEquivalentGrade.Text = "3.0"
txtRemarks.Text = "Passing"
Case Is < 75
txtEquivalentGrade.Text = "5.0"
txtRemarks.Text = "Failure"
Case Else
MsgBox("You Enter an Invalid Grade", MsgBoxStyle.Exclamation, "Warning")
End Select
End Sub
End Class
3. Save and Run the program.
Case Conversion
1. Construct the user interface:
![](//2.bp.blogspot.com/-_XlryScjX08/Tuq6IZWQ-aI/AAAAAAAAAMA/CPJuLu0pyjc/s320/b.JPG)
2. Enter the code as follows:
Public Class frmCaseConversion
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
txtLcase.Text = Microsoft.VisualBasic.LCase(txtInput.Text)
txtUcase.Text = Microsoft.VisualBasic.UCase(txtInput.Text)
txtPcase.Text = Microsoft.VisualBasic.StrConv(txtInput.Text, VbStrConv.ProperCase)
End Sub
End Class
3. Save and Run..
2. Enter the code as follows:
Public Class frmCaseConversion
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
txtLcase.Text = Microsoft.VisualBasic.LCase(txtInput.Text)
txtUcase.Text = Microsoft.VisualBasic.UCase(txtInput.Text)
txtPcase.Text = Microsoft.VisualBasic.StrConv(txtInput.Text, VbStrConv.ProperCase)
End Sub
End Class
3. Save and Run..
Palindrome Test
1. Design the following:
![](//1.bp.blogspot.com/-QWhBie-TWqo/Tuq4c7ppAzI/AAAAAAAAAL0/jT6GWWlkX_g/s320/b.JPG)
2. Enter the code as follows:
Public Class frmPalindromeTest
Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
Dim Result As String
txtReverse.Text = Microsoft.VisualBasic.StrReverse(txtInput.Text)
Result = Microsoft.VisualBasic.StrComp(txtInput.Text, txtReverse.Text)
If Result = 0 Then
lblResult.Text = "The string is a Palindrome"
Else
lblResult.Text = "The string is not a Palindrome"
End If
End Sub
End Class
3. Save and Run the program.
2. Enter the code as follows:
Public Class frmPalindromeTest
Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
Dim Result As String
txtReverse.Text = Microsoft.VisualBasic.StrReverse(txtInput.Text)
Result = Microsoft.VisualBasic.StrComp(txtInput.Text, txtReverse.Text)
If Result = 0 Then
lblResult.Text = "The string is a Palindrome"
Else
lblResult.Text = "The string is not a Palindrome"
End If
End Sub
End Class
3. Save and Run the program.
Toss Coin / Dice Roll
1. Design the interface as follows:
![](//2.bp.blogspot.com/-_-zV5Wm9IGA/Tuq08g5fHkI/AAAAAAAAAKI/I-lgR61X-yI/s320/b.JPG)
2. Enter the Code.
Public Class frmCoinDice
Private Sub btnToss_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnToss.Click
Dim Toss As Integer
Const H = 1
Const T = 0
Toss = Int(2 * Rnd())
grpDice.Visible = False
Select Case Toss
Case T
picCoinDice.Image = My.Resources.ely
Case H
picCoinDice.Image = My.Resources.buendia
End Select
If rdoTail.Checked = True And Toss = T Then
Me.Text = "You Lose! :("
Else
Me.Text = "You Win! :)"
End If
If rdoHead.Checked = True And Toss = H Then
Me.Text = "You win! :)"
Else
Me.Text = "You Lose! :("
End If
End Sub
Private Sub btnRoll_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
Dim Roll As Integer
grpCoin.Visible = False
Roll = Int(6 * Rnd()) + 1
Me.Text = "You Lose! :("
Select Case Roll
Case 1
picCoinDice.Image = My.Resources._1
Case 2
picCoinDice.Image = My.Resources._2
Case 3
picCoinDice.Image = My.Resources._3
Case 4
picCoinDice.Image = My.Resources._4
Case 5
picCoinDice.Image = My.Resources._5
Case 6
picCoinDice.Image = My.Resources._6
End Select
If rdo1.Checked = True And Roll = 1 Then
Me.Text = "You win! :)"
End If
If rdo2.Checked = True And Roll = 2 Then
Me.Text = "You win! :)"
End If
If rdo3.Checked = True And Roll = 3 Then
Me.Text = "You win! :)"
End If
If rdo4.Checked = True And Roll = 4 Then
Me.Text = "You win! :)"
End If
If rdo5.Checked = True And Roll = 5 Then
Me.Text = "You win! :)"
End If
If rdo6.Checked = True And Roll = 6 Then
Me.Text = "You win! :)"
End If
End Sub
Private Sub TossCoinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TossCoinToolStripMenuItem.Click
grpCoin.Visible = True
grpDice.Visible = False
End Sub
Private Sub DiceRollToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiceRollToolStripMenuItem.Click
grpDice.Visible = True
grpCoin.Visible = False
End Sub
Private Sub frmCoinDice_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
3. Save and Run the program..
You can use these photos:
![](//3.bp.blogspot.com/-wlciNuDc728/Tuq1Jso4PJI/AAAAAAAAAKU/boEljr4C0H4/s320/1.jpeg)
![](//4.bp.blogspot.com/-alCWj9llh6w/Tuq1Py9EqcI/AAAAAAAAAKg/4X_2e6sI7Zc/s320/2.jpeg)
![](//4.bp.blogspot.com/-cXkuwz2MiIo/Tuq1VkNhlAI/AAAAAAAAAKs/3dqnNRJEtc0/s320/3.jpeg)
![](//2.bp.blogspot.com/-sVK6yymXkU8/Tuq1b9dWNsI/AAAAAAAAAK4/bMqMOOHqcRM/s320/4.jpeg)
![](//1.bp.blogspot.com/-QS9vfHYLfoM/Tuq1hEHMxxI/AAAAAAAAALE/tQgDmSmaE_A/s320/5.jpeg)
![](//3.bp.blogspot.com/-MpamA3URtMA/Tuq1nYk5MyI/AAAAAAAAALQ/osmGZA0NGCo/s320/6.jpeg)
![](//2.bp.blogspot.com/-znM5hROiV5k/Tuq1spD3QNI/AAAAAAAAALc/U3TxzTND6iY/s320/buendia.JPG)
2. Enter the Code.
Public Class frmCoinDice
Private Sub btnToss_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnToss.Click
Dim Toss As Integer
Const H = 1
Const T = 0
Toss = Int(2 * Rnd())
grpDice.Visible = False
Select Case Toss
Case T
picCoinDice.Image = My.Resources.ely
Case H
picCoinDice.Image = My.Resources.buendia
End Select
If rdoTail.Checked = True And Toss = T Then
Me.Text = "You Lose! :("
Else
Me.Text = "You Win! :)"
End If
If rdoHead.Checked = True And Toss = H Then
Me.Text = "You win! :)"
Else
Me.Text = "You Lose! :("
End If
End Sub
Private Sub btnRoll_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
Dim Roll As Integer
grpCoin.Visible = False
Roll = Int(6 * Rnd()) + 1
Me.Text = "You Lose! :("
Select Case Roll
Case 1
picCoinDice.Image = My.Resources._1
Case 2
picCoinDice.Image = My.Resources._2
Case 3
picCoinDice.Image = My.Resources._3
Case 4
picCoinDice.Image = My.Resources._4
Case 5
picCoinDice.Image = My.Resources._5
Case 6
picCoinDice.Image = My.Resources._6
End Select
If rdo1.Checked = True And Roll = 1 Then
Me.Text = "You win! :)"
End If
If rdo2.Checked = True And Roll = 2 Then
Me.Text = "You win! :)"
End If
If rdo3.Checked = True And Roll = 3 Then
Me.Text = "You win! :)"
End If
If rdo4.Checked = True And Roll = 4 Then
Me.Text = "You win! :)"
End If
If rdo5.Checked = True And Roll = 5 Then
Me.Text = "You win! :)"
End If
If rdo6.Checked = True And Roll = 6 Then
Me.Text = "You win! :)"
End If
End Sub
Private Sub TossCoinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TossCoinToolStripMenuItem.Click
grpCoin.Visible = True
grpDice.Visible = False
End Sub
Private Sub DiceRollToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiceRollToolStripMenuItem.Click
grpDice.Visible = True
grpCoin.Visible = False
End Sub
Private Sub frmCoinDice_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
3. Save and Run the program..
You can use these photos:
![](http://3.bp.blogspot.com/-wlciNuDc728/Tuq1Jso4PJI/AAAAAAAAAKU/boEljr4C0H4/s320/1.jpeg)
![](http://4.bp.blogspot.com/-alCWj9llh6w/Tuq1Py9EqcI/AAAAAAAAAKg/4X_2e6sI7Zc/s320/2.jpeg)
![](http://4.bp.blogspot.com/-cXkuwz2MiIo/Tuq1VkNhlAI/AAAAAAAAAKs/3dqnNRJEtc0/s320/3.jpeg)
![](http://2.bp.blogspot.com/-sVK6yymXkU8/Tuq1b9dWNsI/AAAAAAAAAK4/bMqMOOHqcRM/s320/4.jpeg)
![](http://1.bp.blogspot.com/-QS9vfHYLfoM/Tuq1hEHMxxI/AAAAAAAAALE/tQgDmSmaE_A/s320/5.jpeg)
![](http://3.bp.blogspot.com/-MpamA3URtMA/Tuq1nYk5MyI/AAAAAAAAALQ/osmGZA0NGCo/s320/6.jpeg)
Very Simple Calculator
1. Design the User Interface below.
![](//3.bp.blogspot.com/-LgTqc0heU3c/TuqtkkdwTbI/AAAAAAAAAJw/aMsxIlcbt4g/s320/c.JPG)
2. Enter the code as follows:
Public Class frmSimpleCalculator
Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click
Dim First As Double
Dim Second As Double
First = txtFirstNumber.Text
Second = txtSecondNumber.Text
If rdoAddition.Checked = True Then
lbl3.Text = First + Second
End If
If rdoSubtraction.Checked = True Then
lbl3.Text = First - Second
End If
If rdoMutiplication.Checked = True Then
lbl3.Text = First * Second
End If
If rdoDivision.Checked = True Then
lbl3.Text = First / Second
End If
If rdoIntegerDivision.Checked = True Then
lbl3.Text = First \ Second
End If
If rdoModulus.Checked = True Then
lbl3.Text = First Mod Second
End If
If rdoExponentiation.Checked = True Then
lbl3.Text = First ^ Second
End If
If Double.TryParse(txtFirstNumber.Text, First) = True And Double.TryParse(txtSecondNumber.Text, Second) = True Then
First = txtFirstNumber.Text
Second = txtSecondNumber.Text
If rdoAddition.Checked = True Then
txtResult.Text = First + Second
End If
If rdoSubtraction.Checked = True Then
txtResult.Text = First - Second
End If
If rdoMutiplication.Checked = True Then
txtResult.Text = First * Second
End If
If rdoDivision.Checked = True Then
txtResult.Text = First / Second
End If
If rdoIntegerDivision.Checked = True Then
txtResult.Text = First \ Second
End If
If rdoModulus.Checked = True Then
txtResult.Text = First Mod Second
End If
If rdoExponentiation.Checked = True Then
txtResult.Text = First ^ Second
End If
Else : MsgBox("Enter a number!", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "Warning")
End If
End Sub
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
End Class
2. Enter the code as follows:
Public Class frmSimpleCalculator
Private Sub btnCompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCompute.Click
Dim First As Double
Dim Second As Double
First = txtFirstNumber.Text
Second = txtSecondNumber.Text
If rdoAddition.Checked = True Then
lbl3.Text = First + Second
End If
If rdoSubtraction.Checked = True Then
lbl3.Text = First - Second
End If
If rdoMutiplication.Checked = True Then
lbl3.Text = First * Second
End If
If rdoDivision.Checked = True Then
lbl3.Text = First / Second
End If
If rdoIntegerDivision.Checked = True Then
lbl3.Text = First \ Second
End If
If rdoModulus.Checked = True Then
lbl3.Text = First Mod Second
End If
If rdoExponentiation.Checked = True Then
lbl3.Text = First ^ Second
End If
If Double.TryParse(txtFirstNumber.Text, First) = True And Double.TryParse(txtSecondNumber.Text, Second) = True Then
First = txtFirstNumber.Text
Second = txtSecondNumber.Text
If rdoAddition.Checked = True Then
txtResult.Text = First + Second
End If
If rdoSubtraction.Checked = True Then
txtResult.Text = First - Second
End If
If rdoMutiplication.Checked = True Then
txtResult.Text = First * Second
End If
If rdoDivision.Checked = True Then
txtResult.Text = First / Second
End If
If rdoIntegerDivision.Checked = True Then
txtResult.Text = First \ Second
End If
If rdoModulus.Checked = True Then
txtResult.Text = First Mod Second
End If
If rdoExponentiation.Checked = True Then
txtResult.Text = First ^ Second
End If
Else : MsgBox("Enter a number!", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "Warning")
End If
End Sub
Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
End Class
Formatting Menu
1. Start Visual Basic and create a label control within the form.
2. Double click MenuStrip, ToolStrip, PrintDocument, and SaveFileDialog from the Toolbox and do the following:
![](//4.bp.blogspot.com/-JH1ag2GadBY/TuqmF1M06jI/AAAAAAAAAIo/RbS9QMnOnjQ/s320/1.JPG)
3. On File Menu, add the following submenu.
![](//2.bp.blogspot.com/-N82vWL5lrGw/TuqnyCIdy_I/AAAAAAAAAI4/HK5BpgNzXEE/s320/2.JPG)
4. On Edit Menu, add the following submenu.
![](//3.bp.blogspot.com/-W0n7Fi12h8Y/TuqpPKvOmDI/AAAAAAAAAJA/cvaNcL7xUAE/s320/3.JPG)
![](//2.bp.blogspot.com/-bt7rGQKp-1k/TuqpSPXBIRI/AAAAAAAAAJM/G77lzgmfpfs/s320/4.JPG)
![](//3.bp.blogspot.com/-A3Lw0GdRNXw/Tuqpa6qn9vI/AAAAAAAAAJY/G8_ApJnPT2I/s320/5.JPG)
5. On Help Menu, add the following submenu.
![](//2.bp.blogspot.com/-438w8zIRQHA/TuqpwJfNH-I/AAAAAAAAAJk/Rc4SnwCtNFs/s320/6.JPG)
6. On the code window, enter the following:
Code:
Public Class frmFormattingMenu
Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
Dim Response As Integer
Response = MsgBox("Are you sure you want to exit", MsgBoxStyle.YesNo + vbQuestion, "My Program")
If Response = vbYes Then
End
End If
End Sub
Private Sub mnuChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuChange.Click
Dim strCaption As String
strCaption = InputBox("Please enter the new text", "Change Text")
If Len(strCaption) = 0 Then
MsgBox("No text Entered", MsgBoxStyle.Exclamation, "Invalid")
Else
lblText.Text = strCaption
End If
End Sub
Private Sub mnuRegular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRegular.Click
lblText.Font = _
New Font(lblText.Font, FontStyle.Regular)
mnuRegular.Checked = True
mnuBold.Checked = False
mnuItalic.Checked = False
End Sub
Private Sub mnuBold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBold.Click
lblText.Font = _
New Font(lblText.Font, FontStyle.Bold)
mnuBold.Checked = True
mnuRegular.Checked = False
mnuItalic.Checked = False
End Sub
Private Sub mnuItalic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuItalic.Click
lblText.Font = _
New Font(lblText.Font, FontStyle.Italic)
mnuItalic.Checked = True
mnuRegular.Checked = False
mnuBold.Checked = False
End Sub
Private Sub mnuLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLeft.Click
mnuLeft.Checked = True
mnuRight.Checked = False
mnuCenter.Checked = False
lblText.TextAlign = ContentAlignment.MiddleLeft
End Sub
Private Sub mnuRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRight.Click
mnuRight.Checked = True
mnuLeft.Checked = False
mnuCenter.Checked = False
lblText.TextAlign = ContentAlignment.MiddleRight
End Sub
Private Sub mnuCenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCenter.Click
mnuCenter.Checked = True
mnuRight.Checked = False
mnuLeft.Checked = False
lblText.TextAlign = ContentAlignment.MiddleCenter
End Sub
Private Sub mnuSize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSize.Click
Dim strSize As String
strSize = InputBox("Please enter the desired text size", "Change Size")
If Len(strSize) = 0 Then
MsgBox("No value Entered", MsgBoxStyle.Exclamation, "Invalid")
Else
lblText.Font = New Font(lblText.Font.FontFamily, strSize)
End If
End Sub
Private Sub mnuGray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGray.Click
Me.BackColor = Color.Gray
End Sub
Private Sub mnuWhite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuWhite.Click
Me.BackColor = Color.White
End Sub
Private Sub mnuRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRed.Click
Me.BackColor = Color.Red
End Sub
Private Sub mnuBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBlue.Click
Me.BackColor = Color.Blue
End Sub
Private Sub mnuYellow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuYellow.Click
Me.BackColor = Color.Yellow
End Sub
Private Sub mnuGreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGreen.Click
Me.BackColor = Color.Green
End Sub
Private Sub mnuAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAbout.Click
MsgBox("Menu and Dialog Application" & vbCrLf & "by Patrick", MsgBoxStyle.Information, "About")
End Sub
Private Sub mnuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPrint.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(lblText.Text, lblText.Font, Brushes.Blue, 100, 100)
End Sub
Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSave.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub tsbSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSave.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub tsbPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbPrint.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print()
End Sub
Private Sub frmFormattingMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub tsbEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbEdit.Click
mnuEdit.ShowDropDown()
End Sub
End Class
2. Double click MenuStrip, ToolStrip, PrintDocument, and SaveFileDialog from the Toolbox and do the following:
3. On File Menu, add the following submenu.
4. On Edit Menu, add the following submenu.
5. On Help Menu, add the following submenu.
6. On the code window, enter the following:
Code:
Public Class frmFormattingMenu
Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
Dim Response As Integer
Response = MsgBox("Are you sure you want to exit", MsgBoxStyle.YesNo + vbQuestion, "My Program")
If Response = vbYes Then
End
End If
End Sub
Private Sub mnuChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuChange.Click
Dim strCaption As String
strCaption = InputBox("Please enter the new text", "Change Text")
If Len(strCaption) = 0 Then
MsgBox("No text Entered", MsgBoxStyle.Exclamation, "Invalid")
Else
lblText.Text = strCaption
End If
End Sub
Private Sub mnuRegular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRegular.Click
lblText.Font = _
New Font(lblText.Font, FontStyle.Regular)
mnuRegular.Checked = True
mnuBold.Checked = False
mnuItalic.Checked = False
End Sub
Private Sub mnuBold_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBold.Click
lblText.Font = _
New Font(lblText.Font, FontStyle.Bold)
mnuBold.Checked = True
mnuRegular.Checked = False
mnuItalic.Checked = False
End Sub
Private Sub mnuItalic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuItalic.Click
lblText.Font = _
New Font(lblText.Font, FontStyle.Italic)
mnuItalic.Checked = True
mnuRegular.Checked = False
mnuBold.Checked = False
End Sub
Private Sub mnuLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLeft.Click
mnuLeft.Checked = True
mnuRight.Checked = False
mnuCenter.Checked = False
lblText.TextAlign = ContentAlignment.MiddleLeft
End Sub
Private Sub mnuRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRight.Click
mnuRight.Checked = True
mnuLeft.Checked = False
mnuCenter.Checked = False
lblText.TextAlign = ContentAlignment.MiddleRight
End Sub
Private Sub mnuCenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCenter.Click
mnuCenter.Checked = True
mnuRight.Checked = False
mnuLeft.Checked = False
lblText.TextAlign = ContentAlignment.MiddleCenter
End Sub
Private Sub mnuSize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSize.Click
Dim strSize As String
strSize = InputBox("Please enter the desired text size", "Change Size")
If Len(strSize) = 0 Then
MsgBox("No value Entered", MsgBoxStyle.Exclamation, "Invalid")
Else
lblText.Font = New Font(lblText.Font.FontFamily, strSize)
End If
End Sub
Private Sub mnuGray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGray.Click
Me.BackColor = Color.Gray
End Sub
Private Sub mnuWhite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuWhite.Click
Me.BackColor = Color.White
End Sub
Private Sub mnuRed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRed.Click
Me.BackColor = Color.Red
End Sub
Private Sub mnuBlue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuBlue.Click
Me.BackColor = Color.Blue
End Sub
Private Sub mnuYellow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuYellow.Click
Me.BackColor = Color.Yellow
End Sub
Private Sub mnuGreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuGreen.Click
Me.BackColor = Color.Green
End Sub
Private Sub mnuAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAbout.Click
MsgBox("Menu and Dialog Application" & vbCrLf & "by Patrick", MsgBoxStyle.Information, "About")
End Sub
Private Sub mnuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPrint.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(lblText.Text, lblText.Font, Brushes.Blue, 100, 100)
End Sub
Private Sub mnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSave.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub tsbSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSave.Click
SaveFileDialog1.ShowDialog()
End Sub
Private Sub tsbPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbPrint.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print()
End Sub
Private Sub frmFormattingMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub tsbEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbEdit.Click
mnuEdit.ShowDropDown()
End Sub
End Class
MENU SELECTOR
1. Create the user interface similar to the form below. Use PictureBox controls (picMeal, picBurger,picPizza,picCake,picDrinks,picDessert), CheckBox, RadioButton, ListBox and ComboBox within the GroupBox.
![](//1.bp.blogspot.com/-22qkBqh1LCQ/Tuqf2ZmPlxI/AAAAAAAAAGM/2nUrhBeVQlA/s320/menu.JPG)
2. Enter the program code below by double clicking the form object.
Public Class frmMenuSelector
Private Sub frmMenuSelector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstDrinks.Items.Add("Juice")
lstDrinks.Items.Add("Coffee")
lstDrinks.Items.Add("Softdrinks")
cboDessert.Items.Add("Ice Cream")
cboDessert.Items.Add("Salad")
cboDessert.Items.Add("Pastry")
End Sub
Private Sub cboDessert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDessert.Click
Select Case cboDessert.SelectedIndex
Case 0
picDessert.Image = My.Resources.Ice_cream
Case 1
picDessert.Image = My.Resources.Salad
Case 2
picDessert.Image = My.Resources.Pastry
End Select
End Sub
Private Sub chkBurger_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkBurger.Click
If chkBurger.Checked Then
picBurger.Image = My.Resources.Burger
picBurger.Visible = True
Else
picBurger.Visible = False
End If
End Sub
Private Sub chkCake_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkCake.Click
If chkCake.Checked Then
picCake.Image = My.Resources.Cake
picCake.Visible = True
Else
picCake.Visible = False
End If
End Sub
Private Sub chkPizza_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkPizza.Click
If chkPizza.Checked Then
picPizza.Image = My.Resources.Pizza
picPizza.Visible = True
Else
picPizza.Visible = False
End If
End Sub
Private Sub lstDrinks_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstDrinks.Click
Select Case lstDrinks.SelectedIndex
Case 0
picDrinks.Image = My.Resources.Juice
Case 1
picDrinks.Image = My.Resources.Coffee
Case 2
picDrinks.Image = My.Resources.Softdrinks
End Select
End Sub
Private Sub rdoChicken_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdoChicken.Click
If rdoChicken.Checked Then
picMeal.Image = My.Resources.Chicken
picMeal.Visible = True
Else
picMeal.Visible = False
End If
End Sub
Private Sub rdoFish_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdoFish.Click
If rdoFish.Checked Then
picMeal.Image = My.Resources.Fish
picMeal.Visible = True
Else
picMeal.Visible = False
End If
End Sub
Private Sub rdoPork_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdoPork.Click
If rdoPork.Checked Then
picMeal.Image = My.Resources.Pork
picMeal.Visible = True
Else
picMeal.Visible = False
End If
End Sub
End Class
3. Save and run your program. The program looks like below.
![](//3.bp.blogspot.com/-qyrp251ywfo/TuqhyK-iJRI/AAAAAAAAAGY/gNGF7nE3suo/s320/menu2.JPG)
~You can use the photos below.....
![](//3.bp.blogspot.com/-VSlb8FqKxdg/TuqjY-qzALI/AAAAAAAAAIc/nbM5kidzgRk/s320/Softdrinks.jpeg)
![](//1.bp.blogspot.com/-sxJdUlPt1YU/TuqjRwE1NqI/AAAAAAAAAIQ/f95ec6RHOCo/s320/Salad.jpeg)
![](//3.bp.blogspot.com/-kaOH-n7qFLk/TuqjOYsd7TI/AAAAAAAAAIE/k3DE5kQbKwk/s320/Pork.jpeg)
![](//3.bp.blogspot.com/-pYtfT293Png/TuqjKaB5c5I/AAAAAAAAAH4/lOt5Q32KhUM/s320/Pizza.jpeg)
![](//4.bp.blogspot.com/-casvStDnB9o/TuqjFWui3zI/AAAAAAAAAHs/v6mGLa2ak-o/s320/Juice.jpeg)
![](//1.bp.blogspot.com/-H4bvjMxNLm4/TuqjBFNoLkI/AAAAAAAAAHg/_rgS6sCzJCo/s320/Ice%2Bcream.jpeg)
![](//2.bp.blogspot.com/-7WhNiPMSwP4/Tuqi8ionbfI/AAAAAAAAAHU/qGIEubt3zPk/s320/Fish.jpeg)
![](//2.bp.blogspot.com/-njA2JDHzzD8/Tuqi4N8VuaI/AAAAAAAAAHI/cWBL0ZC_Yew/s320/Coffee.jpeg)
![](//4.bp.blogspot.com/-MRR2yrWMtS4/Tuqi0twd-eI/AAAAAAAAAG8/rU_h813aLsc/s320/Chicken.jpeg)
![](//2.bp.blogspot.com/-_Nd9_87N7pY/TuqiyEjR8PI/AAAAAAAAAGw/Est65ZkC2Is/s320/Cake.jpeg)
2. Enter the program code below by double clicking the form object.
Public Class frmMenuSelector
Private Sub frmMenuSelector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstDrinks.Items.Add("Juice")
lstDrinks.Items.Add("Coffee")
lstDrinks.Items.Add("Softdrinks")
cboDessert.Items.Add("Ice Cream")
cboDessert.Items.Add("Salad")
cboDessert.Items.Add("Pastry")
End Sub
Private Sub cboDessert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDessert.Click
Select Case cboDessert.SelectedIndex
Case 0
picDessert.Image = My.Resources.Ice_cream
Case 1
picDessert.Image = My.Resources.Salad
Case 2
picDessert.Image = My.Resources.Pastry
End Select
End Sub
Private Sub chkBurger_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkBurger.Click
If chkBurger.Checked Then
picBurger.Image = My.Resources.Burger
picBurger.Visible = True
Else
picBurger.Visible = False
End If
End Sub
Private Sub chkCake_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkCake.Click
If chkCake.Checked Then
picCake.Image = My.Resources.Cake
picCake.Visible = True
Else
picCake.Visible = False
End If
End Sub
Private Sub chkPizza_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkPizza.Click
If chkPizza.Checked Then
picPizza.Image = My.Resources.Pizza
picPizza.Visible = True
Else
picPizza.Visible = False
End If
End Sub
Private Sub lstDrinks_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstDrinks.Click
Select Case lstDrinks.SelectedIndex
Case 0
picDrinks.Image = My.Resources.Juice
Case 1
picDrinks.Image = My.Resources.Coffee
Case 2
picDrinks.Image = My.Resources.Softdrinks
End Select
End Sub
Private Sub rdoChicken_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdoChicken.Click
If rdoChicken.Checked Then
picMeal.Image = My.Resources.Chicken
picMeal.Visible = True
Else
picMeal.Visible = False
End If
End Sub
Private Sub rdoFish_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdoFish.Click
If rdoFish.Checked Then
picMeal.Image = My.Resources.Fish
picMeal.Visible = True
Else
picMeal.Visible = False
End If
End Sub
Private Sub rdoPork_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rdoPork.Click
If rdoPork.Checked Then
picMeal.Image = My.Resources.Pork
picMeal.Visible = True
Else
picMeal.Visible = False
End If
End Sub
End Class
3. Save and run your program. The program looks like below.
~You can use the photos below.....
![](http://3.bp.blogspot.com/-VSlb8FqKxdg/TuqjY-qzALI/AAAAAAAAAIc/nbM5kidzgRk/s320/Softdrinks.jpeg)
![](http://1.bp.blogspot.com/-sxJdUlPt1YU/TuqjRwE1NqI/AAAAAAAAAIQ/f95ec6RHOCo/s320/Salad.jpeg)
![](http://3.bp.blogspot.com/-kaOH-n7qFLk/TuqjOYsd7TI/AAAAAAAAAIE/k3DE5kQbKwk/s320/Pork.jpeg)
![](http://3.bp.blogspot.com/-pYtfT293Png/TuqjKaB5c5I/AAAAAAAAAH4/lOt5Q32KhUM/s320/Pizza.jpeg)
![](http://4.bp.blogspot.com/-casvStDnB9o/TuqjFWui3zI/AAAAAAAAAHs/v6mGLa2ak-o/s320/Juice.jpeg)
![](http://1.bp.blogspot.com/-H4bvjMxNLm4/TuqjBFNoLkI/AAAAAAAAAHg/_rgS6sCzJCo/s320/Ice%2Bcream.jpeg)
![](http://2.bp.blogspot.com/-7WhNiPMSwP4/Tuqi8ionbfI/AAAAAAAAAHU/qGIEubt3zPk/s320/Fish.jpeg)
![](http://2.bp.blogspot.com/-njA2JDHzzD8/Tuqi4N8VuaI/AAAAAAAAAHI/cWBL0ZC_Yew/s320/Coffee.jpeg)
![](http://4.bp.blogspot.com/-MRR2yrWMtS4/Tuqi0twd-eI/AAAAAAAAAG8/rU_h813aLsc/s320/Chicken.jpeg)
![](http://2.bp.blogspot.com/-_Nd9_87N7pY/TuqiyEjR8PI/AAAAAAAAAGw/Est65ZkC2Is/s320/Cake.jpeg)
![](http://2.bp.blogspot.com/-14K1BsalJbI/Tuqip9f2phI/AAAAAAAAAGk/pi54_AFkdW8/s320/Burger.jpeg)
Name Display
1. Create a project (Name Display) with two Label controls a TextBox, and a Command Button.
2. Modify the Name property of each of the controls as shown.
![](//3.bp.blogspot.com/-VKJg0ut29N0/TuqdrUn9seI/AAAAAAAAAGA/vCwyxc8NKag/s320/n.JPG)
3. Change the Text property of the Label to “Enter your name here” and set its AutoSize property to True.
4. Double-click the btnClick button to key in the following:
Public Class frmNameDisplay
Private Sub btnClick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClick.Click
lblMessage.Text = "Hi " & txtName.Text & " Have a nice day!"
End Sub
End Class
5. Run the program.
2. Modify the Name property of each of the controls as shown.
3. Change the Text property of the Label to “Enter your name here” and set its AutoSize property to True.
4. Double-click the btnClick button to key in the following:
Public Class frmNameDisplay
Private Sub btnClick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClick.Click
lblMessage.Text = "Hi " & txtName.Text & " Have a nice day!"
End Sub
End Class
5. Run the program.
Color Picker Activity
1. Start Visual Basic and create a standard project Color Picker. Rename Form1 form to Color Picker under Color Picker project.
2. Change the form’s name from Form1 to frmColor and its Text property to “Color Picker”.
3. From the toolbox, select the PictureBox and create a box within the form. Modify its name to “picRed” and select red from the pallete of the BackColor property.
4. Build three more Picture boxes as shown. Change its Name and BackColor property as follows:
picGreen Green
picYellow Yellow
picBlue Blue
![](//3.bp.blogspot.com/-NUBKrPO7j4g/TuqPnlkcSKI/AAAAAAAAAFo/wIIORwdjqxs/s320/cp1.JPG)
5. Create a label control and change its Name property to lblColor. Modify its Autosize property to True. Type “Please point your cursor to a box.” on the Text property and select the desired font in the Font Property.
![](//1.bp.blogspot.com/-2y61HSrdK8A/TuqQv4hlOjI/AAAAAAAAAF0/5acAZeEDA5Q/s320/cp2.JPG)
6. Double click the frmColor to display the Code window Color Picker.vb and enter the following:
Public Class frmColor
Private Sub frmColor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
End Sub
Private Sub frmColor_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
lblColor.ForeColor = Color.Chocolate
lblColor.Text = "Please point your cursor to a box."
End Sub
Private Sub picBlue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picBlue.Click
lblColor.ForeColor = Color.Blue
End Sub
Private Sub picBlue_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picBlue.MouseMove
lblColor.Text = "Click this box to change my color to Blue"
End Sub
Private Sub picRed_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picRed.Click
lblColor.ForeColor = Color.Red
End Sub
Private Sub picRed_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picRed.MouseMove
lblColor.Text = "Click this box to change my color to Red"
End Sub
Private Sub picGreen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picGreen.Click
lblColor.ForeColor = Color.Green
End Sub
Private Sub picGreen_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picGreen.MouseMove
lblColor.Text = "Click this box to change my color to Green"
End Sub
Private Sub picYellow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picYellow.Click
lblColor.ForeColor = Color.Yellow
End Sub
Private Sub picYellow_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picYellow.MouseMove
lblColor.Text = "Click this box to change my color to Yellow"
End Sub
End Class
7. Save your work as Color Picker and run.
2. Change the form’s name from Form1 to frmColor and its Text property to “Color Picker”.
3. From the toolbox, select the PictureBox and create a box within the form. Modify its name to “picRed” and select red from the pallete of the BackColor property.
4. Build three more Picture boxes as shown. Change its Name and BackColor property as follows:
picGreen Green
picYellow Yellow
picBlue Blue
5. Create a label control and change its Name property to lblColor. Modify its Autosize property to True. Type “Please point your cursor to a box.” on the Text property and select the desired font in the Font Property.
6. Double click the frmColor to display the Code window Color Picker.vb and enter the following:
Public Class frmColor
Private Sub frmColor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
End Sub
Private Sub frmColor_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
lblColor.ForeColor = Color.Chocolate
lblColor.Text = "Please point your cursor to a box."
End Sub
Private Sub picBlue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picBlue.Click
lblColor.ForeColor = Color.Blue
End Sub
Private Sub picBlue_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picBlue.MouseMove
lblColor.Text = "Click this box to change my color to Blue"
End Sub
Private Sub picRed_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picRed.Click
lblColor.ForeColor = Color.Red
End Sub
Private Sub picRed_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picRed.MouseMove
lblColor.Text = "Click this box to change my color to Red"
End Sub
Private Sub picGreen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picGreen.Click
lblColor.ForeColor = Color.Green
End Sub
Private Sub picGreen_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picGreen.MouseMove
lblColor.Text = "Click this box to change my color to Green"
End Sub
Private Sub picYellow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles picYellow.Click
lblColor.ForeColor = Color.Yellow
End Sub
Private Sub picYellow_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picYellow.MouseMove
lblColor.Text = "Click this box to change my color to Yellow"
End Sub
End Class
7. Save your work as Color Picker and run.
Subscribe to:
Posts (Atom)