公告版位

目前分類：VB (24)

瀏覽方式： 標題列表 簡短摘要

展開/關閉程式碼

Public pURL As String
Public FindLinks As Boolean
Public rRow As Integer
Sub FindURL(sURL As String)
    Dim IE As New InternetExplorer
    Dim oDoc As New MSHTML.HTMLDocument
    Dim oLink As HTMLAnchorElement
    Dim i As Integer
    FindLinks = False
    IE.navigate sURL
    Do While IE.ReadyState <> READYSTATE_COMPLETE
(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top
使用WebBrowser 控件，可以通過 ObjectForScripting 和Document 
屬性在客戶端應用程序代碼和網頁腳本代碼之間實現雙向通信


'宣告

Public Property ObjectForScripting As Object
'用途

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

一、建立網頁

<html>
<head>
       <meta http-equiv="Content-Language" content="zh-cn">
       <script language="javascript" type="text/javascript">
              <!-- 提供給C#程序調用的方法 -->
              function messageBox(message)
              {
                    alert(message);
(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

WebBrowser 控件可以讓你裝載Windows Form 應用程序中的 Web 網頁和其它採用瀏覽器的文件。可以使用webbrowser 控件將現有的web框架控制項加入至 Windows Form 客戶端應用程序。

還是直接看代碼吧。
WebBrowser 控制項 提供的屬性、方法和事件，可用來實現 Internet Explorer 的控制項
webBrowser1.Navigate("www.cnblogs.com"); //將指定位置處的文件載入至 WebBrowser
 webBrowser1.GoBack();//上一頁
 webBrowser1.GoForward();//下一頁
 webBrowser1.Refresh();//刷新
 webBrowser1.GoHome();//主頁
這裡提供了WebBrowser常用的方法，

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

問：
請問一下 我用 WebBrowser 的控制項設計一Browser,我想知道如何判斷該網頁己被瀏覽器下載完成?

答：
當網頁下載完成時,便會觸發webbrowser1_navigatecomplete2的事件!!!

 


pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

在form1內有一個PictureBox1工具上巳顯示圖片

加了一個Button1工具去連結到一個新的form2裡PictureBox2做圖片放大功能

其中要在另一個form顯示圖片要如何實現?

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim f2 As New Form2
     f2.PictureBox1.Image = PictureBox1.Image
     f2.Show()
    End Sub


pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

1.System.Threading.Thread.CurrentThread.Sleep(1000)

2.Sub delay()
     Dim Start As Integer= Environment.TickCount()
     Dim TimeLast As Integer = 7000 ' 要延遲 t 秒,就設為 t *1000
     Do
     If Environment.TickCount() - Start> TimeLast Then Exit Do
     Application.DoEvents() ' 要記得寫這行，不然都在跑迴圈，畫面可能會不見
     Loop
   End Sub

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> _
    Public Structure Struct_INTERNET_PROXY_INFO
     Public dwAccessType As Integer
     Public proxy As IntPtr
     Public proxyBypass As IntPtr
    End Structure

    <DllImport("wininet.dll", SetLastError:=True)> _

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

在VB的檔案存取方式裡，最基本的觀念就是「開檔」→「處理檔」→「關檔」。
如果要將資料存入檔案裡，操作順序為「開檔」→「寫檔」→「關檔」，如此能將資料寫入檔案裡。
如果要將資料從檔案讀出，操作順序為「開檔」→「讀檔」→「關檔」，如此取得檔案裡的資料。

存入檔案

步驟如下：

FileOpen(檔案代號,檔案路徑名稱,開檔模式)
PrintLine(檔案代號,資料)
FileClose(檔案代號)

 


(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

     If e.KeyCode = Keys.Return Then
     MessageBox.Show(TextBox1.Text)
     End If

End Sub


pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

方法:
Public Sub Increment(ByVal value As Integer)
以指定的數量來前移進度列的目前位置。

Public Sub PerformStep()
以 ProgressBar.Step 屬性的數量前移進度列的目前位置。

屬性:
Public Property MarqueeAnimationSpeed() As Integer
取得或設定進度區塊捲動完整個進度列所需的時間長度 (以毫秒為單位)。

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

剛在看 vb.net 中 WebBrowser1的指令 看到 WebBrowser1.Dispose

可以釋放掉使用 WebBrowser1 的所有資源

但是 釋放掉 就無法再使用了 不知如何解決?

 

WebBrowser1 = New WebBrowser
Me.Controls.Add(WebBrowser1)

 


pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

這是使用 VB6 的 WebBrowser(Microsoft Internet Controls) 來做的：


Option Explicit


Dim loadinfo As Boolean


Private Sub Command1_Click()
    Dim i As Integer
   
    loadinfo = False

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

我提供幾種方法給您參考：

1)    中華電信提供的企業簡訊服務，

只要你申請這個服務，它有提供多種語言的程式範例讓你參考。

你可以寫程式去呼叫它，都很簡單。

如果你使用的次數很瑣碎、很頻繁，這個很好用。

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

Private Sub Form_Load()
 WebBrowser1.Navigate "http://tw.knowledge.yahoo.com/question/question?qid=1608022401307"
End Sub

 

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 For i = 0 To WebBrowser1.Document.body.All.length
  If Not (WebBrowser1.Document.body.All(i) Is Nothing) Then
   If WebBrowser1.Document.body.All(i).tagName = "IMG" Then Debug.Print WebBrowser1.Document.body.All(i).href
  End If
 Next i

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

Private Sub txt_URL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_URL.KeyPress


'txt_URL的按下鍵盤事件
If e.KeyChar = ChrW(13) Then '如果是Enter鍵的話
WebBrowser1.Navigate(sender.Text)
End If
End Sub

 


pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

1.

If WebBrowser4.Busy = False Then 'BUSY可以判斷網頁是否再跑

End If

2.
Private Sub WebBrowser1_DownloadComplete()
Label1.Text= "完成"
End Sub

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

我使用WebBroswer將我TextBox的值要傳入WebBroswer的網頁中時,在網頁中的輸入欄卻是亂碼,

若輸入英文就不會有此問題,只有中文搜尋時會產生亂碼,我認為應該是編碼的問題,請問該如何解決?


ex:

WebBrowser2.Navigate("http://tw.lifestyle.yahoo.com/search/srp_combo.html?p=" & TextBox2.Text)
可是傳過去的值如果是中文就會變亂碼...英文就OK

 

sol:

Dim EncodeText As String = System.Web.HttpUtility.UrlEncode(TextBox1.Text)
WebBrowser1.Navigate("http://tw.lifestyle.yahoo.com/search/srp_combo.html?p=" & EncodeText)

(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

WebBrowser1.Document.Window.ScrollTo(x, y)

 

WebBrowser1.Document.parentwindow.scrollby 10, 10 'Move
WebBrowser1.Document.DocumentElement.ScrollTop 'Top
WebBrowser1.Document.DocumentElement.ScrollLeft 'Left
WebBrowser1.Document.DocumentElement.ScrollWidth 'Width
WebBrowser1.Document.DocumentElement.ScrollHeight 'Height 

 


pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top

WebBrowser 参数原型：

    WebBrowser1.Navigate [Flags,][TargetFrameName,][PostData,][Headers]

WebBrowser的8个方法和13个属性，以及它们的功能：

 

方法 
(繼續閱讀...)

pcman 發表在 痞客邦 留言(0) 人氣()

  • 個人分類：VB
▲top
1 2