锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net代码打开链接 vb打开代码窗口的方法

IT技术編輯

vb.net怎样用代码实现打开网址System.Diagnostics.Process.Start("")
或者用WebBrowser控件，代码WebBrowser1.Url = New System.Uri("")
vb.net如何点击webbrower中的超链接没用过vb.net中的webbrower
下面是VB6.0的代码
1）如果你知道你要点击的A链是第几个，可以用这样的方法
WebBrowser1.Document.getElementsByTagName("a")(x).Click
x代表第几个
2）如果你不知道或者你要点击的A链位置不确定的话你可以用遍历的方式找到你要点击的A链
'请先定义
'AValue代表A链的innerHTML属性，也就是我们经常的看到超链接上面的字
'
Set AObj = WebBrowser1.Document.getElementsByTagName("a")
Debug.Print "AObj:"TypeName(AObj)
For Each NewAObj In AObj
Debug.Print "NewAObj.innerHTML:"NewAObj.innerHTML
temp = Trim(NewAObj.innerHTML)
If temp = AValue Then
NewAObj.Click
Debug.Print "点击【"AValue"】成功"
Exit For
End If
Next
3）更多方法请百度 。
vb如何使用超链接打开网页方法1）直接使用VB的Shell函数调用explorer.exe来实现 。
Private Sub Command2_Click()
Shell "explorer.exe http://"Text1
End Sub
方法2）使用API函数 ShellExecute实现 。
以下是具体代码：
Option Explicit
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
Dim strUrl As String
Private Sub OpenUrl(tUrl As String)
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
Private Sub Command1_Click()
strUrl = Text1.Text
OpenUrl (strUrl)
End Sub
Private Sub Form_Load()
Text1 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1"" Then
Command1_Click
End If
End Sub
方法3）使用WebBrowser控件，直接制作个简易浏览器来实现 。
Private Sub Command1_Click()
WebBrowser1.Navigate Text1
End Sub
Private Sub Form_Load()
Text1 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1"" Then
Command1_Click
End If
End Sub
方法3的运行效果图：
vb.net连接hana的代码可以先创建对hana的ODBC连接ODBCNAME，然后：
''' summary
''' 根据SQL语句查询数据
''' /summary
''' param name="sql"SQL查询语句/param
''' returns结果集/returns
Public Function getDataSetBySql(sql As [String]) As DataSet
Try
Dim ds As New DataSet()
Dim command As New OdbcCommand(sql)
'command对象
Dim connstring As [String] = "dsn=ODBCNAME;uid=USERID;pwd=PASSWORD"
'ODBC连接字符串
Using connection As New OdbcConnection(connstring)
'创建connection连接对象
command.Connection = connection
connection.Open()
'打开链接
Dim adapter As New OdbcDataAdapter(command)
'实例化dataadapter
adapter.Fill(ds)
'填充查询结果
Return ds
End Using
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
【vb.net代码打开链接 vb打开代码窗口的方法】vb.net代码打开链接的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb打开代码窗口的方法、vb.net代码打开链接的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：下面合法的c语言字符常量，下面合法的c语言字符常量是

    下一篇：格斗游戏是角色排名，格斗游戏是角色排名第一吗