北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
shellex 二义性的名称
第一个代码
Option Compare Database
Option Explicit
Private Sub Form_Load()
HyperlinkInit Me
End Sub
Private Sub 资料_Click()
Dim path As String
If IsNull(Me.路径) Then
MsgBox "尚未添加资料!"
Exit Sub
Else
ShellEx Me.路径
End If
End Sub
第二段
Option Compare Database
'API函数声明
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Declare Function LoadCursorByNum Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Const IDC_HAND = 32649& '手形
Public Const IDC_APPSTARTING = 32650& '系统忙
Public Const IDC_ARROW = 32512& '常规箭头形
Public Const IDC_CROSS = 32515& '十字形
Public Const IDC_IBEAM = 32513& '文本插入
Public Const IDC_ICON = 32641& '使用指定光标文件
Public Const IDC_NO = 32648& '不可用
Public Const IDC_SIZE = 32640& '隐藏指针
Public Const IDC_SIZEALL = 32646& '选中并移动
Public Const IDC_SIZENESW = 32643& '左下角右上角大小调整
Public Const IDC_SIZENS = 32645& '上下调整
Public Const IDC_SIZENWSE = 32642& '左上角右下角大小调整
Public Const IDC_SIZEWE = 32644& '左右调整
Public Const IDC_UPARROW = 32516& '上箭头
Public Const IDC_WAIT = 32514& '沙漏
'改变光标指针调用示例: SetCursor LoadCursorByNum(0,32649)
' SetCursor LoadCursorByNum(0, IDC_HAND)
'ShellExecute函数二次封装,以简化使用
'输入参数File可以是文件名,网页地址或命令行
Public Function ShellEx(File As String)
ShellExecute hWndAccessApp, "Open", File, 0, 0, 1
End Function
在不改变功能的情况下要如何修改
万分感谢