VB學習心得5.視窗及多表單應用程式

2013-04-11

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

摘要:VB學習心得5.視窗及多表單應用程式

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

10-42頁

10.設計一支程式,於其中配置一個ToolStrip控制項,在這個控制項中配置一個下拉式選單,於選單中建立,黑,白,紅的選項,當使用者選取其中一個項目時,畫面中的label就會依據顏色變色


Public Class Form1


    Private Sub BK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKBlack.Click, BKRed.Click, BKWhite.Click
        Dim itemcontrol As ToolStripMenuItem = CType(sender, ToolStripMenuItem)

        If (itemcontrol.Name = "BKBlack") Then
            Label1.ForeColor = Color.Black
        ElseIf (itemcontrol.Name = "BKWhite") Then
            Label1.ForeColor = Color.White
        ElseIf (itemcontrol.Name = "BKRed") Then
            Label1.ForeColor = Color.Red
        End If

    End Sub
End Class

15.撰寫一支程式,於其中配置一個Label控制項,並且調整成為一個矩形區域,另外配置一個按鈕,按一下顯示ColorDialog讓使用者選取,調整Label控制項的背景


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim testdialog As DialogResult = ColorDialog1.ShowDialog()

        If (testdialog = Windows.Forms.DialogResult.OK) Then
            Label1.BackColor = ColorDialog1.Color
        End If


    End Sub
End Class

18.撰寫一支程式,於畫面配置一個按鈕,當使用者按下按鈕時,會連續顯示2個inputbox,要求使用者輸入兩個數值,然後進行除法運算,如果第二個數是零,則不做運算並顯示錯誤訊息


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n1 As String = InputBox("請輸入第一個數字:", "除法運算")
        Dim n2 As String = InputBox("請輸入第二個數字:")

        If (n2 <> 0) Then
            Dim n3 As Integer = (CInt(n1) / CInt(n2))
            Label1.Text = n3
        Else
            MsgBox("輸入不能為零")
        End If

    End Sub
End Class

11-34頁

4.建立AForm,BForm,CForm等三個表單,將AForm設定為起始表單,然後於其中配置兩個按鈕,BButton與CButton,當這兩個按鈕按下時,BButton以一般模式啟動BForm,CButton以強制回應模式

啟動CForm,再配置一個按鈕,當使用者按下此按鈕時,關閉表單


Public Class AForm

    Private Sub BButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BButton.Click
        BForm.Show()
    End Sub

    Private Sub CButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CButton.Click
        CForm.ShowDialog()
    End Sub

    Private Sub CLButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLButton.Click
        Me.Close()
    End Sub
End Class

7.建立一支程式,其中包含兩個表單AForm,BForm,AForm配置一個文字方塊,接受使用者輸入特定的文字訊息,另外配置一個按鈕,這個按鈕被按下時.會啟動BForm,並且將文字方塊的內容

文字顯示成為BForm的標題


Public Class AForm

    Private Sub BButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BButton.Click
        Dim gettext As String = TextBox1.Text
        BForm.Show()
        BForm.Text = gettext
    End Sub
End Class

VB.NET

回首頁