Menu 활용(ShortCutKey 설정, 텍스트박스이용, 콤보박스 이용....)|★|☆

[거꾸로]

Private Sub 닫기ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 닫기ToolStripMenuItem1.Click
        'Me.Close()
        End
    End Sub

    Private Sub ToolStripTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ToolStripTextBox1.KeyPress
        If Me.ToolStripTextBox1.Text <> "" And e.KeyChar = Chr(13) Then
            e.Handled = True
            Me.lblResult.Text = Me.ToolStripTextBox1.Text
        End If
    End Sub

    Private Sub 권하나ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 권하나ToolStripMenuItem.Click
        Me.lblResult.Text = "첫째 딸~~"
    End Sub

    Private Sub 권두나ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 권두나ToolStripMenuItem.Click
        Me.lblResult.Text = "두째 딸~~"
    End Sub

    Private Sub 권세나ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 권세나ToolStripMenuItem.Click
        Me.lblResult.Text = "세째 딸~~"
    End Sub

    Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged
        Me.lblResult.Text = Me.ToolStripComboBox1.SelectedItem
    End Sub
    Private Sub ToolStripComboBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ToolStripComboBox1.KeyPress
        If Me.ToolStripComboBox1.Text <> "" And e.KeyChar = Chr(13) Then
            e.Handled = True
            Me.lblResult.Text = Me.ToolStripComboBox1.Text
        End If
    End Sub

 Private Sub ToolStripComboBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ToolStripComboBox2.KeyPress
        If Me.ToolStripComboBox2.Text <> "" And e.KeyChar = Chr(13) Then
            e.Handled = True
            Me.Text = Me.ToolStripComboBox2.Text
        End If
    End Sub

    Private Sub ToolStripComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox2.SelectedIndexChanged
        Me.Text = Me.ToolStripComboBox2.SelectedItem
    End Sub

'--------------------------

 Private Sub 행복ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 행복ToolStripMenuItem.Click
        Me.lblResult.Text = "여러분 행복하세요~~~"
    End Sub

    Private Sub 부자ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 부자ToolStripMenuItem.Click
        Me.lblResult.Text = "여러분 부자되세요~~~"
    End Sub

'--------------------------