vb根据text1.text的值不同访问不同网页

来源：百度知道 编辑：UC知道 时间：2024/05/26 17:20:48
比如当text1.text的属性等于1的时候 然后点COMMAND1按钮 则再窗口中的WEB控件里 显示 http://591gp.com/1.png
如果输入2则 显示 http://591gp.com/2.png
代码怎么写呢？

Private Sub Command1_Click()
Dim t as string
t="http://591gp.com/" & Text1.Text & ".png"
'这里用WEB控件打开 t
End Sub

或者

Private Sub Command1_Click()
if Text1.Text="1" then
'打开http://591gp.com/1.png
elseif Text1.Text="2" then
'打开http://591gp.com/2.png
End if
End Sub

'假设你的WEB控件名为WebBrowser1
Private Sub Command1_Click()
WebBrowser1.Navigate "http://591gp.com/" & Text1.Text &".png"
End Sub