電腦購物天堂

在form1內有一個PictureBox1工具上巳顯示圖片
加了一個Button1工具去連結到一個新的form2裡PictureBox2做圖片放大功能
其中要在另一個form顯示圖片要如何實現?
 

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)> _
    Private Shared Function InternetSetOption(
_
     ByVal hInternet As IntPtr, _
     ByVal dwOption As Integer,
_
     ByVal lpBuffer As IntPtr, _
     ByVal lpdwBufferLength As Integer)
_
     As Boolean
    End Function
    Private Function
RefreshIESettings(ByVal strProxy As String) As Boolean
     Dim
INTERNET_OPTION_PROXY As Integer = 38
     Dim INTERNET_OPEN_TYPE_PROXY As
Integer = 3
     Dim struct_IPI As Struct_INTERNET_PROXY_INFO
    
'Filling in structure
     struct_IPI.dwAccessType =
INTERNET_OPEN_TYPE_PROXY
     struct_IPI.proxy =
Marshal.StringToHGlobalAnsi(strProxy)
     struct_IPI.proxyBypass =
Marshal.StringToHGlobalAnsi("local")
     'Allocating memory
     Dim
intptrStruct As IntPtr =
Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
     'Converting
structure to IntPtr
     Marshal.StructureToPtr(struct_IPI, intptrStruct,
True)
     Return InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY,
intptrStruct, Marshal.SizeOf(struct_IPI))
    End Function

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

方法:
Public Sub Increment(ByVal value As Integer)
以指定的數量來前移進度列的目前位置。
Public Sub PerformStep()
以 ProgressBar.Step 屬性的數量前移進度列的目前位置。
屬性:
Public Property MarqueeAnimationSpeed() As
Integer
取得或設定進度區塊捲動完整個進度列所需的時間長度 (以毫秒為單位)。
Public Property Maximum()
As Integer
取得或設定控制項範圍的最大值。
Public Property Minimum() As
Integer
取得或設定控制項範圍的最小值。
Public Overridable Property
RightToLeftLayout() As Boolean
取得或設定值，指出 ProgressBar 及其所包含的文字是否由右至左顯示。
Public Property [Step]() As Integer
取得或設定數量，以其做為呼叫
ProgressBar.PerformStep 方法時對進度列目前位置的增量。
Public Property Style() As
ProgressBarStyle
取得或設定在進度列上表示進度所用的方式。
Public Property Value() As
Integer
取得或設定進度列的目前位置。
事件:
Public Event
RightToLeftLayoutChanged(ByVal sender As Object, ByVal e As
System.EventArgs)
當 ProgressBar.RightToLeftLayout 屬性變更時發生。

剛在看 vb.net 中 WebBrowser1的指令 看到 WebBrowser1.Dispose
可以釋放掉使用
WebBrowser1 的所有資源
但是 釋放掉 就無法再使用了 不知如何解決?

這是使用 VB6 的 WebBrowser(Microsoft Internet
Controls) 來做的：
Option Explicit
Dim loadinfo As Boolean
Private Sub Command1_Click()
    Dim i As
Integer
   
    loadinfo = False
    Call
WebBrowser1.Navigate("http://tw.rd.yahoo.com/referurl/wretch/album/head/in/*http://www.wretch.cc/IDintegration/?ref=%2525252Falbum%2525252F")
    Do
        DoEvents
    Loop Until loadinfo =
True
    WebBrowser1.Document.getElementById("username").Value =
"您的帳號"
    WebBrowser1.Document.getElementById("passwd").Value =
"您的密碼"
    Call
WebBrowser1.Document.getElementById("login_form").Submit
End
Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As
Object, URL As Variant)
    loadinfo = True
    Text1 = URL
End
Sub

 

我提供幾種方法給您參考：
1)   
中華電信提供的企業簡訊服務，
只要你申請這個服務，它有提供多種語言的程式範例讓你參考。
你可以寫程式去呼叫它，都很簡單。
如果你使用的次數很瑣碎、很頻繁，這個很好用。
請參考這裡：http://sms.hinet.net/new/sent_program.htm
不過中華電信有基本費
1000 元的門檻，
如果每月發訊不到 1000 元，就不划算。
2)    中華電信提供的 emome
服務，
emome 提供的方式，每次最多可傳送 200
筆號碼。
適合大量集中傳送的場合，它是採先登入的方式，
傳送時不必再輸入帳密，你如果利用 VB2008
來開發，
可以拉一個 WebBrowser，先 Navigate 登入畫面
http://websms1.emome.net/sms/sendsms/new.jsp?msg=
通過認證後，把簡訊內容和電話號碼帶入
WebBrowser 中，
再用程式碼去按傳送鈕即可。
3)    Hinet 網際簡訊
http://hiair.hinet.net/hweb/hiairpost_new.jsp
每次最多可傳送 100
筆號碼，這裡是採取先填資料再認證的方式。
一樣拉一個 WebBrowser，
先 Navigate
"http://hiair.hinet.net/hweb/hiairpost_new.jsp"
把簡訊內容和電話號碼帶入 WebBrowser
中，再用程式碼去按發送鈕，
不過它會彈出一個認證畫面，你要寫程式去捕捉那個視窗，填入帳密。
4)   
民營業者提供的服務更齊全，類似第一種，也很方便，
但是它是採用先儲值的方式，如果你是幫客戶開發，
可能要先跟客戶溝通，避免有金錢上的糾紛。

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