发文章
发文工具
撰写
网文摘手
文档
视频
思维导图
随笔
相册
原创同步助手
其他工具
图片转文字
文件清理
AI助手
留言交流
来自: intruder > 《VB编程》
0条评论
发表
请遵守用户 评论公约
如何用VB建立快捷方式
创建和删除快捷方式
Private Sub CmdDel_Click()Dim lresult As Long ''删除开始菜单上的快捷方式 lresult = OSfRemoveShellLink("..\..\start menu", "记事本") ''删除桌面...
用VB关闭程序
Else ''这个程序没打开MsgBox "并未开启" &formName &"程序."End If.End Sub.''试试这个Sub,你先打开一个计算器,然后回到VB中,在一个Command的Click事...
VB实用代码,收藏!!
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)Private Sub Command1_Click() Call SHAddToRecentDocs(2, vbNullString)End Sub&...
VB如何实现MsgBox自动关闭
msgbox有点难度,建议用这个函数:Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal l...
VB代码VB小程序:实现USB摄像头视频图像的监控、截图、录像
VB代码VB小程序:实现USB摄像头视频图像的监控、截图、录像VB代码VB小程序:实现USB摄像头视频图像的监控、截图、录像2010-10-10 0:36.C...
VB 遍历窗口所有子窗体句柄
用VB制作简单的木马程序 -
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long.Public Declare Func...
VB中获取exe自身所在路径的几种方法
1,利用App.Path 程序代码Private Sub Command1_Click() Dim strpath1 As String If Right(App.Path, 1) = "\" Then strpath1 = App.Path &App.EXEName &".exe...
微信扫码,在手机上查看选中内容