没有合适的资源?快使用搜索试试~ 我知道了~
在自己的指定窗体上调用出运行对话框的软件源码
需积分: 3 2 下载量 32 浏览量
2011-04-09
18:39:09
上传
评论
收藏 2KB TXT 举报
温馨提示
试读
2页
在自己的指定窗体上调用出运行对话框本人精心收集的VB源码,绝对实用
资源推荐
资源详情
资源评论
Option Explicit
'================================================================
'功能:在自己的指定窗体上调用出 开始--运行 对话框
'用法:ShowRunDlg me
'================================================================
Const SHRD_NOMRU = &H2
Private Const VER_PLATFORM_WIN32_NT = 2
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function SHRunDialogA Lib "shell32" Alias "#61" _
(ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As _
Long, ByVal szTitle As String, ByVal szPrompt As String, _
ByVal uFlags As Long) As Long
Private Declare Function SHRunDialogW Lib "shell32" Alias "#61" _
(ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As _
Long, ByVal szTitle As Long, ByVal szPrompt As Long, ByVal _
uFlags As Long) As Long
Public Sub ShowRunDlg(ByVal Owner As Form, Optional ByVal DontShowLastFileName As Boolean = False)
Const DlgTitle = "运行"
Const DlgText = "请输入要运行的文件名"
'================================================================
'功能:在自己的指定窗体上调用出 开始--运行 对话框
'用法:ShowRunDlg me
'================================================================
Const SHRD_NOMRU = &H2
Private Const VER_PLATFORM_WIN32_NT = 2
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias _
"GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function SHRunDialogA Lib "shell32" Alias "#61" _
(ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As _
Long, ByVal szTitle As String, ByVal szPrompt As String, _
ByVal uFlags As Long) As Long
Private Declare Function SHRunDialogW Lib "shell32" Alias "#61" _
(ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As _
Long, ByVal szTitle As Long, ByVal szPrompt As Long, ByVal _
uFlags As Long) As Long
Public Sub ShowRunDlg(ByVal Owner As Form, Optional ByVal DontShowLastFileName As Boolean = False)
Const DlgTitle = "运行"
Const DlgText = "请输入要运行的文件名"
资源评论
skccsoft
- 粉丝: 1
- 资源: 73
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功