' Navigates to the URL in the address box when
' the ENTER key is pressed while the ToolStripTextBox has focus.
Private Sub toolStripTextBox1_KeyDown( _
ByVal sender As Object, ByVal e As KeyEventArgs) _
Handles toolStripTextBox1.KeyDown
If (e.KeyCode = Keys.Enter) Then
Navigate(toolStripTextBox1.Text)
End If
公告版位
目前分類:VB (24)
- Apr 29 Fri 2011 14:32
[VB][網路]使用Navigate前往URL
- Apr 28 Thu 2011 18:52
[VB][網路]WebBrowser 無法設定捲軸Left與Top值
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 500
Me.Height = 500
WebBrowser1.Navigate("http://msdn.microsoft.com/zh-tw/default.aspx")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
With WebBrowser1.Document.Body
.ScrollLeft = .ScrollRectangle.Size.Width
.ScrollTop = .ScrollRectangle.Size.Height
- Apr 28 Thu 2011 11:50
[VB][網路]VB.NET 如何讀取網頁.並自動跳下一頁
Dim encoding As New System.Text.ASCIIEncoding
url = New Uri("http://XXX.XXX.XXX.XXX/alx.asp")
Dim getdata As String = "/abbs/wkw/WHD2A03.jsp?sql_conction=from+W.c50+a%2CW.C52+b+where+a.crtid%3D%27KSD%27+AND+a.crtid%3Db.crtid+AND+a.crmyy%3Db.crmyy+AND+a.crmid%3Db.crmid+AND+a.crmno%3Db.crmno+AND+a.ordno%3Db.ordno+AND+trim%28a.cancel%29+is+null++AND+a.upflag%3D%27F%27++AND+a.saledate%3E%3D%270980227%27++AND+a.saledate%3C%3D%270980529%27+&pageTotal=154&pageSize=15&rowStart=1&saletype=5&proptype=C52&court=KSD&order=odcrm&query_type=session&pageNow=2"
Dim data As Byte() = encoding.GetBytes(getdata)
Dim myRequest As HttpWebRequest = HttpWebRequest.Create(url)
webRes = myRequest.GetResponse
ReadHisValue(webRes.GetResponseStream)
myRequest.Method = "GET"
myRequest.ContentLength = data.Length
Dim newStream As IO.Stream
- Apr 28 Thu 2011 11:05
[VB][網路]WebBrowser載入去的網頁如果有捲軸時,自動移到最下頁
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.hinet.net"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.SetFocus
SendKeys "^{End}"
End Sub