十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Namespace
创新互联专注于企业网络营销推广、网站重做改版、上思网站定制设计、自适应品牌网站建设、成都h5网站建设、商城网站定制开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为上思等各大城市提供网站开发制作服务。
包含类似或相关功能的类的集合
Class
用来定义一个对象,包含对象的属性(包括变量)、方法(包括过程sub和函数)
Sub
子过程,可以把要使用的数据以参数形式传入,但不返回值
Function
函数,同样可以传参数,但要求有返回值
Property
属性过程,设置或返回对象的属性值
Return
结束当前sub或function,若是函数则返回一个函数值
Dim
声明或定义一个变量
New
创建一个新的实例对象
Nothing
表示一个变量没有值,与其他语言或数据库中的null等价
Me
当前类的实例对象的引用
Console
.NET
用于访问和操作命令窗口的类,主要用于命令行应用程序
Module
模块,定义一个不是类的代码块,但它同样可以包含变量和方法
运算符
算术运算符:/(除),\(整除),Mod(取模)
串联运算符:,+亦可
逻辑/按位运算符:Not、And、Or、Xor、AndAlso、OrElse
赋值运算符:= ,^= ,*= ,/= ,\= ,+= ,-= ,=,=,=
比较运算符: ,= , ,= ,= , ,Is ,IsNot ,Like
移位运算符: ,
其他运算符:AddressOf 运算符 ,GetType 运算符 ,函数表达式,If 运算符 ,TypeOf 运算符,Await 运算符
DirectCast 运算符
TryCast 运算符
New 运算符
*运算优先级:算术连接比较逻辑运算(用括号可改变优先级)
详细:
如果表达式中出现几种运算,将按照预先确定的称为“运算符优先级”的顺序计算和解析各个部分。
算术运算符和串联运算符
求幂 (^)
一元标识和非(+、–)
乘法和浮点除法(*、/)
整数除法 (\)
取模 (Mod)
加法和减法(+、–),字符串连接 (+)
字符串连接 ()
算术移位(、)
比较运算符
所有比较运算符(=、、、=、、=、Is、IsNot、Like、TypeOf...Is)
逻辑运算符和位运算符
非 (Not)
与 (And、AndAlso)
或 (Or、OrElse)
异或 (Xor)
都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止
打开VS , 选择VisualBasic -- Web -- ASP.NET Web 应用程序
如下图:
用 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
ASP要用JavaScript或者VBScript编写,和VB或者VB.NET没多少关系
把你程序中的Dim去掉