96.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

巧用“关于”对话框
（作者：夏峰）


　　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，嵌入一个“手形”指针，再试试看，是不是感觉好多了？ 

　　　　本程序在中文Windows 98和Visual Basic 6.0中编译通过。