巧用“关于”对话框




 

 

　　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 ＃nF

补充：软件开发 , Vb ,