VB学习笔记

1. 让对话框接受esc消息

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Escape Then Me.Close()
End Sub

2. 添加内容之粘贴板

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Clipboard.SetText("1111111111112222222222")
End Sub

 3.打开文件夹

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = IO.Path.GetDirectoryName("C:\\Users\\Desktop\\VB\\")  '一定要带上最后的斜杠
        Process.Start(path)
End Sub

4.控件前缀缩写

摘自：Wrox.Beginning.Microsoft.Visual.Basic.2010