听起来是个好主意。我开始像许多其他人一样学习VBA,只是学习代码并看看是什么让它活跃起来。我在想也许我们可以创建一个工具部分,用户可以将其合并到他们的程序中。例如,我正在查看Rugaroo发布的代码,并提供了一个建议和一小段代码来在表单中添加来自VoloView的绘图预览。
这是在表单中添加URL链接的另一个示例。只需在表单中创建一点文本,将其命名为URL1,然后将以下代码粘贴到表单代码部分。
-
- 'Add the following lines to your UserForm_Initialize event
- 'change to path of your desired cursor
- URL1.MouseIcon = LoadPicture("C:\WINNT\Cursors\url.cur")
- URL1.MousePointer = fmMousePointerCustom
- 'Place this in the UserForm Code window
- Private Sub URL1_Click()
- Dim IEApp As WebBrowser
- Set IEApp = CreateObject("InternetExplorer.Application")
- IEApp.Visible = True
- IEApp.Navigate URL1.Caption
- End Sub
您将需要将MouseIcon属性更改为要在url上显示的图标,我提取并使用默认的Internet Explorer尖手指 |