VB學習心得4.基礎控制項與事件

2013-04-09

5221
0
VB.NET相關
2013-04-12

摘要:VB學習心得4.基礎控制項與事件

參考書籍:Visual Basic 2008程式設計學習教本

8-44頁

9.建立一支範例程式,模擬使用者建立帳號及密碼的表單,如果使用者輸入資料不符,則顯示帳號建立失敗,否則顯示建立成功


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim name As String = TextBox1.Text
        Dim password As String = TextBox2.Text
        If (name = "VB" And password = "12345") Then
            label1.Text = "輸入成功"
        Else
            label1.Text = "輸入失敗"
        End If

    End Sub


End Class

9-39頁

4.撰寫一支程式,配置一個按鈕,當使用者按一下按鈕並放開時,於畫面上顯示被觸發的訊息


 Private Sub Button1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick
        Label3.Text = "滑鼠點到控制項,按鍵正在放開中"
    End Sub

    Private Sub Button1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Label4.Text = "滑鼠按下去"
    End Sub

    Private Sub Button1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        Label5.Text = "滑鼠按鍵放開"
    End Sub
End Class

6.於畫面上配置label,當使用者在label按下滑鼠時判斷按的是哪個鍵


    Private Sub Label2_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseClick
        If (e.Button = Windows.Forms.MouseButtons.Left) Then
            label1.Text = "按下滑鼠左鍵"
        ElseIf (e.Button = Windows.Forms.MouseButtons.Right) Then
            label1.Text = "按下滑鼠右鍵"
        End If
    End Sub

18.配置一個文字方塊,只允許使用者按下英文a~z(由於設定e.handled=false,以為可以只按a~z會顯示,結果按下其他數字仍會顯示,所以改用陣列試著把除了英文a~z的字給設為true)


    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        label1.Text = e.KeyChar
        Dim keyArray() As Char = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
        For Each msg In keyArray
            If e.KeyChar = msg Then
                e.Handled = True
            End If
        Next
       
    End Sub

21於畫面上配置3個RadioButton,標示為紅燈,綠燈,黃燈,另外配置3個label,將背景顏色設為紅綠黃,當使用者點選任一Radiobutton,顯示對應顏色的label


    Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        Label3.Text = "紅燈亮"
        Label4.Text = ""
        Label5.Text = ""
    End Sub

    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        Label4.Text = "黃燈亮"
        Label3.Text = ""
        Label5.Text = ""
    End Sub

    Private Sub RadioButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.Click
        Label5.Text = "綠燈亮"
        Label4.Text = ""
        Label3.Text = ""
    End Sub

VB.NET

回首頁