Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
Dim x As New Point(10, 10)
Dim y As New Point(50, 50)
If Button1.Location = x Then
Button1.Location = y
Else
Button1.Location = x
End If
End Sub
End Class
2. Create a form with 4 buttons and one text box (use the gui). The botton wording should describe what it does.
a. Button 1: This button will make the textbox enabled/disabled.
b. Button 2: Turn a background color on the textbox on and off. (Toggle between white and another color)
c. Button 3: Put the text inside of the text box and take it away
d. Button 4: Change the border style of the textbox between none and fixed3D.
Private Sub btnTxtEnDisable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTxtEnDisable.Click
If txtBox.Enabled = True Then
txtBox.Enabled = False
End If
txtBox.Enabled = True
End Sub
Private Sub btnTxtBackColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTxtBackColor.Click
If txtBox.BackColor = Color.Blue Then
txtBox.BackColor = Color.White
Else
txtBox.BackColor = Color.Blue
End If
End Sub
Private Sub btnTxtErase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTxtErase.Click
If txtBox.Text = "Teeps is the man" Then
txtBox.Text = ""
Else
txtBox.Text = "Teeps is the man"
End If
End Sub
Private Sub btnTxtBorderStyle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTxtBorderStyle.Click
If txtBox.BorderStyle = BorderStyle.None Then
txtBox.BorderStyle = BorderStyle.Fixed3D
Else
txtBox.BorderStyle = BorderStyle.None
End If
End Sub
End Class
3. Create a form with a button (using the gui). When this button is clicked, it will create 3 labels and 3 textboxes associated with those labels. When the textboxes are hovered over, change their background color. When is not being hovered over, change the background color back to white.
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txtFirst.Show()
txtSecond.Show()
txtThird.Show()
lblFirst.Show()
lblSecond.Show()
lblThird.Show()
End Sub
Private Sub txtFirst_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFirst.MouseEnter
txtFirst.BackColor = Color.Red
End Sub
Private Sub txtFirst_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFirst.MouseLeave
txtFirst.BackColor = Color.White
End Sub
Private Sub txtSecond_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSecond.MouseEnter
txtSecond.BackColor = Color.Yellow
End Sub
Private Sub txtSecond_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSecond.MouseLeave
txtSecond.BackColor = Color.White
End Sub
Private Sub txtThird_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtThird.MouseEnter
txtThird.BackColor = Color.Green
End Sub
Private Sub txtThird_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtThird.MouseLeave
txtThird.BackColor = Color.White
End Sub
End Class
4. Create a form with 3 buttons and a listbox. Load 3 items on load so that it's not empty
Button1: Select Item 1
Button 2: Select Item 2
Button 3: Select Item 3
Public Class Form1
Dim str1, str2, str3 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
str1 = "First is the worst"
str2 = "Second is the best"
str3 = "Third is.....?"
ListBox1.Items.Add(str1)
ListBox1.Items.Add(str2)
ListBox1.Items.Add(str3)
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.SelectedIndex = 0
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.SelectedIndex = 1
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.SelectedIndex = 2
End Sub
End Class
