VB打开网页

来源：百度知道 编辑：UC知道 时间：2024/07/04 14:57:11
我想写这么一个程序，点击它之后
出现一个对话框
标题：“XX网吧MP4电影FTP下载说明”{字体可设置颜色，字体大一些}
内容:“1xxxxxxxxxxxxxxxxxxxxxxxxxxx”
“2xxxxxxxxxxxxxxxxxxxxxxxxxxx”
“3xxxxxxxxxxxxxxxxxxxxxxxxxxx”
“4xxxxxxxxxxxxxxxxxxxxxxxxxxx”
“5xxxxxxxxxxxxxxxxxxxxxxxxxxx”
“xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx”
“请于下载后。。。。。。。。。。。”
{字体一样要可设置大小，颜色}
“确定” “取消”

按确定之后打开“FTP：//192.168.1.222”这个FTP服务器
按取消后关闭程序
请各位大大帮忙一下！谢谢！

新建一个form，添加入需要数量的label标签，标签的caption分别设置为你需要的内容如“XX网吧MP4电影FTP下载说明”，字体和大小可以在label标签的属性中找到font来修改，颜色可以在label的属性的forecolor项来修改。

分别设置好后，安排好各个label的位置，即可。
然后在它们的下方，添加两个按钮控件command1和command2，caption分别设置为：“确定”和“取消”。

添加代码：
双击“确定”，添加代码
Private Sub Command1_Click()
OpenUrl "ftp://192.168.1.222"
End Sub
自己填入一个函数
Private Sub OpenUrl(tUrl As String)
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
然后就在这个代码窗口的左上角的下拉框中选择“通用”，右上角的下拉框中选择“声明”，然后就在光标闪烁处将下面的代码复制并粘贴上去
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

回到form界面，双击“取消”按钮，添加代码
Private Sub Command2_Click()
unload me
'end 如果要结束整个程序加上end，如果只是退出此界面，不用。
End