電腦購物天堂

在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

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

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)> _

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

存入檔案

步驟如下：

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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