Namespace
創(chuàng)新互聯(lián)專注于企業(yè)網(wǎng)絡營銷推廣、網(wǎng)站重做改版、上思網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、成都h5網(wǎng)站建設、商城網(wǎng)站定制開發(fā)、集團公司官網(wǎng)建設、成都外貿(mào)網(wǎng)站建設、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為上思等各大城市提供網(wǎng)站開發(fā)制作服務。
包含類似或相關(guān)功能的類的集合
Class
用來定義一個對象,包含對象的屬性(包括變量)、方法(包括過程sub和函數(shù))
Sub
子過程,可以把要使用的數(shù)據(jù)以參數(shù)形式傳入,但不返回值
Function
函數(shù),同樣可以傳參數(shù),但要求有返回值
Property
屬性過程,設置或返回對象的屬性值
Return
結(jié)束當前sub或function,若是函數(shù)則返回一個函數(shù)值
Dim
聲明或定義一個變量
New
創(chuàng)建一個新的實例對象
Nothing
表示一個變量沒有值,與其他語言或數(shù)據(jù)庫中的null等價
Me
當前類的實例對象的引用
Console
.NET
用于訪問和操作命令窗口的類,主要用于命令行應用程序
Module
模塊,定義一個不是類的代碼塊,但它同樣可以包含變量和方法
運算符
算術(shù)運算符:/(除),\(整除),Mod(取模)
串聯(lián)運算符:,+亦可
邏輯/按位運算符:Not、And、Or、Xor、AndAlso、OrElse
賦值運算符:= ,^= ,*= ,/= ,\= ,+= ,-= ,=,=,=
比較運算符: ,= , ,= ,= , ,Is ,IsNot ,Like
移位運算符: ,
其他運算符:AddressOf 運算符 ,GetType 運算符 ,函數(shù)表達式,If 運算符 ,TypeOf 運算符,Await 運算符
DirectCast 運算符
TryCast 運算符
New 運算符
*運算優(yōu)先級:算術(shù)連接比較邏輯運算(用括號可改變優(yōu)先級)
詳細:
如果表達式中出現(xiàn)幾種運算,將按照預先確定的稱為“運算符優(yōu)先級”的順序計算和解析各個部分。
算術(shù)運算符和串聯(lián)運算符
求冪 (^)
一元標識和非(+、–)
乘法和浮點除法(*、/)
整數(shù)除法 (\)
取模 (Mod)
加法和減法(+、–),字符串連接 (+)
字符串連接 ()
算術(shù)移位(、)
比較運算符
所有比較運算符(=、、、=、、=、Is、IsNot、Like、TypeOf...Is)
邏輯運算符和位運算符
非 (Not)
與 (And、AndAlso)
或 (Or、OrElse)
異或 (Xor)
都可以,可以用winsock,也可以自己重寫SOCKET套接字.建議你如果工期緊,可以先用WINSOCK.當然最好是自己學用SOCKET套接字.這對未來開發(fā)網(wǎng)絡通訊是很有幫助的.因為用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沒多少關(guān)系
把你程序中的Dim去掉
當前標題:關(guān)于vbnet實戰(zhàn)的信息
文章源于:http://chinadenli.net/article34/dodcope.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供面包屑導航、動態(tài)網(wǎng)站、手機網(wǎng)站建設、網(wǎng)站設計、網(wǎng)站建設、網(wǎng)站制作
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)