vb.net开发通讯软件 vb通信控件

我想用VB.NET 2005来编一个简单的通讯录软件,向高手请教之

先构造一个类，属性有姓名性别之类。还是要用数据库，不是要存在文本文件里吧。VB 有类的模板，但是内容还是你自己做吧……才 10 分啊

创新互联公司专注于华池网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供华池营销型网站建设，华池网站制作、华池网页设计、华池网站官网定制、成都微信小程序服务，打造华池网络公司原创品牌,更为您提供华池网站排名全网营销落地服务。

我想用VB.NET 2005 编一个通讯录软件,请教几个问题

你可以定义一个数组，其中每一个元素都是一个结构，在每一个结构中存放每一个人的姓名、年龄等信息。这需要用到类。

创建类，然后定义结构中包含的所有数据，然后在程序中创建数组，定义每一个数组的元素都是一个这样的类，并且在定义后使用New子句将其实力化.关于类,你可以参考你的学习用书,定义应该不成问题,关键看这种思路吧.

例如定义类,内容:

Public Class VarClass

Public Class Student

Public Name As String

Public NamePass As String

Public Number As UInt16

Public Dis, Stu As New Collection

Public ToDis, ToStu As Decimal

End Class

End Class

然后在程序代码中:Public People(10) As Object

注意一定要先定义Object,因为数组无法使用New子句

然后实例化:

For a = 0 To (My.Forms.Form1.StuNum - 1)

People(a) = New VarClass.Student

Next

定义完成!

For a=0 to 10 do

If People(a).Name=Name(选中的名字) then

textbox1.text=People(a).Age

exit for

End if

然后根据ListBox中选中项的Text,使用For.Each(在数量无法确定的情况下)或者For.do语句,遍历数组中每个元素,即结构中的姓名域,如果找到,就把该结构中的其它几项内容分别赋给TextBox的Text,并且用Exit For跳出For语句.

成功!

vb.NET中用mscomm控件编写串口通信软件数据无法接收

.net中不用mscomm 而改用 searport

AxMSComm1.Input 只能一次，会把输入缓冲区的内容全都读出来并清空

如果没有产生Oncomm事件，你可以把输入经部区的大小改一下改成1就行了

用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