现自己做个帮助文档，.chm，.txt, .doc的都可以，然后直接在帮助按钮那里写代码运行你的帮助文档就可以了
创新互联建站是专业的金昌网站建设公司，金昌接单;提供成都做网站、网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行金昌网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
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有密码时需要输入正确密码
用 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
监听： 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)
连接就可以了
设置Region属性：DimpathAsNewSystem.Drawing.Drawing2D.GraphicsPathpath.AddEllipse(0,0,400,300)Region=NewRegion(path)
