VB学习笔记

最新推荐文章于 2021-02-22 06:34:34 发布

转载最新推荐文章于 2021-02-22 06:34:34 发布 · 108 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/871120/blog/419336

为什么80%的码农都做不了架构师？>>>

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