form1.vb

来自「实现实例的应用」· VB 代码 · 共 27 行

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex = 0 Then
            Label1.ForeColor = Color.Red
        End If
        If ListBox1.SelectedIndex = 1 Then
            Label1.ForeColor = Color.Blue
        End If
        If ListBox1.SelectedIndex = 2 Then
            Label1.ForeColor = Color.Green
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Insert(0, textbox1.text)
    End Sub
End Class