Private Sub txtAddress_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(vbCrLf) Then
KeyAscii = 0
txtAddress.SelStart = 0
txtAddress.SelLength = Len(txtAddress)
On Error GoTo OpenURLError
Inet1.URL = txtAddress.Text
Inet1.Execute , "Dir"
Caption = Inet1.URL
End If'加上这一句
exit subOpenURLError:
.........
If KeyAscii = Asc(vbCrLf) Then
KeyAscii = 0
txtAddress.SelStart = 0
txtAddress.SelLength = Len(txtAddress)
On Error GoTo OpenURLError
Inet1.URL = txtAddress.Text
Inet1.Execute , "Dir"
Caption = Inet1.URL
End If'加上这一句
exit subOpenURLError:
.........
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货