|
 巧用“关于”对话框
VB中给我们提供了现成的“关于”对话框，但并不十分完善，还有很多需要我们改进之处。
我们经常看到别人的“关于"对话框中都有作者主页的Internet快捷方式，或可以给作者直接回复的E－mail地址，那么你想不想也在自己的“关于"对话框中添上自己的主页网址或E－mail地址呢？
其实，这一点很容易实现。我们只要在“关于"对话框中增加两个标签，把它设置成快捷方式的样子，然后对其单击事件进行简单的编程，就可以达到我们的目的了。
首先，在你的工程文件中选择“工程→添加窗体→关于对话框窗体"，加入你的“关于"对话框。
然后，在窗体的适当位置添加标签控件lblURL，修改如下属性：
属性名 属性值
Forecolor 淡蓝色（＆H00FF0000＆）
Font 下划线（Underline）
Caption 你的网址
还可以再添加一个标签控件lblEmail，属性也按照上面那样修改，只是Caption属性中应该是你的E－mail地址。
接下来，对lblURL—Click()事件编程：
Private Sub lblURL—Click()
Dim nFile As Integer
nFile = FreeFile
′建立一个临时快捷方式，指向你的网址
Open App.Path ＆ ″\Temp.url″ For Output As ＃nFile
Print ＃nFile, ″[InternetShortcut]″
Print ＃nFile, ″URL=″ ＆ lblURL.Caption
Close ＃nFile
′调用IE浏览器，并打开刚才建立的快捷方式
Shell ″rundll32.exe shdocvw.dll,OpenURL ″ ＆ App.Path ＆ ″\Temp.url″,
vbNormalFocus
′删除刚才建立的快捷方式
Kill App.Path ＆ ″\Temp.url″
End Sub
同样对lblEmail—Click()事件编程：
Private Sub lblEmail—Click()
Dim nFile As Integer
nFile = FreeFile
Open App.Path ＆ ″\Temp.url″ For Output As ＃nFile
Print ＃nFile, ″[InternetShortcut]″
Print ＃nFile, ″URL=″ ＆ ″mailto:″ ＆ lblEmail.Caption
Close ＃nFile
Shell ″rundll32.exe shdocvw.dll,OpenURL ″ ＆ App.Path ＆ ″\Temp.url″,
vbNormalFocus
Kill App.Path ＆ ″\Temp.url″
End Sub
下面你可以试一试你的“关于"对话框了，但总是觉得还少点什么，对了，是鼠标指针。你可以修改lblURL和lblEmail的MouseIcon属性，选择C:\Program
Files\Microsoft Visual Studio\Common\Graphics\Cursors\ H—point.cur，嵌入一个“手形”指针，再试试看，是不是感觉好多了？
|
