巧用“关于”对话框

页面导航:首页 > 软件编程 > vb.net > 巧用“关于”对话框

巧用“关于”对话框

来源: 作者: 时间:2016-02-05 12:32 【

VB中给我们提供了现成的“关于”对话框,但并不十分完善,还有很多需要我们改进之处。 我们经常看到别人的“关于"对话框中都有作者主页的Internet快捷方式,或可以给作

 

 

  VB中给我们提供了现成的关于对话框,但并不十分完善,还有很多需要我们改进之处。

 

  我们经常看到别人的“关于"对话框中都有作者主页的Internet快捷方式,或可以给作者直接回复的E-mail地址,那么你想不想也在自己的关于"对话框中添上自己的主页网址或E-mail地址呢?

 

  其实,这一点很容易实现。我们只要在“关于"对话框中增加两个标签,把它设置成快捷方式的样子,然后对其单击事件进行简单的,就可以达到我们的目的了。

 

  首先,在你的工程文件中选择“工程→添加窗体→关于对话框窗体",加入你的关于"对话框。

 

  然后,在窗体的适当位置添加标签控件lblURL,修改如下属性:

 

属性名 属性值

Forecolor 淡蓝色(&H00FF0000&)

Font 下划线(Underline)

Caption 你的网址

  还可以再添加一个标签控件lblEmail,属性也按照上面那样修改,只是Caption属性中应该是你的E-mail地址。

 

  接下来,对lblURLClick()事件编程:

 

  Private Sub lblURLClick()

 

   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

 

  同样对lblEmailClick()事件编程:

 

  Private Sub lblEmailClick()

 

   Dim nFile As Integer

 

   nFile = FreeFile

 

   Open App.Path & Temp.url For Output As #nFile

 

   Print #nFile, [InternetShortcut]

 

   Print #nF

Tags:

相关文章

    文章评论

    
    <