vbnet联机,vbnet网络传输

vb.net怎么做联机帮助

现自己做个帮助文档，.chm，.txt, .doc的都可以，然后直接在帮助按钮那里写代码运行你的帮助文档就可以了

相关问答

Q1: vb.net 如何连接网络access

ACCSOURCE = "\\sever1\test.mdb" 'access的网路路经

Set conn = CreateObject("ADODB.Connection")

Set myrs = CreateObject("ADODB.Recordset")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" ACCSOURCE '123为密码，access有密码时需要输入正确密码

Q2: 用vb.net实现网络通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

Q3: VB.NET 如何写TCP WINSOCKET?

监听： Try

Dim CtrlListener As New TcpListener(New IPEndPoint(IPAddress.Any, Iport1))

CtrlListener.Start(10) '监听队列

While Not ShutDownServerPROC

Threading.ThreadPool.QueueUserWorkItem(AddressOf GetCtrlCMD, CtrlListener.AcceptTcpClient)

Threading.Thread.Sleep(500) '等待指定时间后继续监听

End While

Catch ex As Exception

Dim ErrMsg As String = ex.ToString

Console.WriteLine(ErrMsg)

WriteErrorMessage("connection", ErrMsg, "CtrlListener")

End Try

客户端用TCPCLIENT

Dim tc As Net.Sockets.TcpClient = New Net.Sockets.TcpClient("192.168.4.201", 6000)

连接就可以了

Q4: vb.net 中怎么制作帮助文档，要有联机帮助

设置Region属性：DimpathAsNewSystem.Drawing.Drawing2D.GraphicsPathpath.AddEllipse(0,0,400,300)Region=NewRegion(path)