VB.net檔案傳輸|C#檔案傳輸

久違的程式POST( C#傳檔 / VB.net VB2005 VB2008傳檔 )，

心血來潮寫完=A=，
網路上也沒夠強大的程式碼，
Socket本身的BeginSendfile則沒有進度說明，
因此下面這個，
有進度Event(ProgressChanged)，也有完成Event(ProgressFinished)

函式都註解的很清楚，所以我就不多打了~

VB.net程式碼(已測試)

C#程式碼(未測試)

使用範例:

(對指定IP進行檔案傳送，當然對方也要開著本程式才行)

(Form1上有一條進度列、一個文字框、一個按鈕)

Public Class Form1
Public F As New FileServer(Me)
Private Dia As New OpenFileDialog()
Private Sub Prog1(ByVal sender As TransferTask, ByVal P As Integer)
   ProgressBar1.Value = P
End Sub
Public Sub Fin(ByVal sender As TransferTask, ByVal [Error] As Boolean)
   Button1.Enabled = True
   MsgBox("檔案傳送成功 " & Not [Error])
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   If Not Dia.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
       Button1.Enabled = False
       BeginTransFile(Dia.FileName, "C:\" & My.Computer.FileSystem.GetFileInfo(Dia.FileName).Name, TextBox1.Text, AddressOf Fin, AddressOf Prog1)
   End If
End Sub
End Class