VB.net 算術(shù)運(yùn)算導(dǎo)致溢出

題主這個FunctionFindWindow(一堆參數(shù))AsLong，返回值是個Long，而下面wd=FindWindow()，wd卻是個Integer類型的，當(dāng)然會溢出。樓上說都改成Long確實(shí)可以，不過題主的API聲明是從VB里拷貝過來的吧？VB里的Long到.NET中就是Int32了，所以應(yīng)該把上面FindWindow的返回類型由Long改為Int32（或者Integer）才是正解。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、微信小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了靜樂免費(fèi)建站歡迎大家使用！

VB里面integer和long，也就是整型和長整型有什么不同？double和single，也就是

現(xiàn)在的vb指的是vb.net，所有的類型都是.net framework提供的（而不是vb自己的），int是4字節(jié)（32位）整數(shù)，long是64位整數(shù)，double和single分別是64和32位的浮點(diǎn)數(shù)，string。。。就是字符串類型啊

VB6與VB.NET的差異有哪些？

.Net平臺引入了很多先進(jìn)的技術(shù)，導(dǎo)致了VB6和VB.Net之間產(chǎn)生了一個巨大的鴻溝

就語言功能上來講，VB.net完全是為了.Net技術(shù)而生，具有更好的運(yùn)行效率和更加強(qiáng)大的功能（某些方面甚至超過了C#)

從語法角度上來講，VB.net成為了真正的OOP(面向?qū)ο笳Z言），不但支持類的繼承、派生，還支持委托、泛型等等更加高級的編程技術(shù)

如果你是從VB6升級到.net的話，建議要將VB.net當(dāng)作一門新的語言來學(xué)。以VB6的經(jīng)驗(yàn)來應(yīng)用到VB.net上是會犯很多錯誤的

關(guān)于從VB6升級到VB.net的代碼變換問題，注意以下幾個重要的要點(diǎn)即可：

1.不再支持Load、Shell、.LoadPicture等語句

請用相關(guān)的.net語句替換

2.String類為引用類，也就是說

Dim s1,s2 as String

s1="FFFFFFF"

s2=s1

此時修改s2的值s1也會跟著相應(yīng)變化

3.不再支持Variant型和Currency型變量

分別用Object和Demical類型代替

4.變量長度的變化：

VB6的byte、Integer、long型分別被vb.net的byte、short、integer代替，而long型則成為64位大小的整數(shù)。新增了UInteger、ULong、SByte等無符號整數(shù)類型

如何實(shí)現(xiàn)兩臺主機(jī)之間的通信

VB用winsock控件吧，網(wǎng)上例子太多了，你也可以看看書

用Winsock實(shí)現(xiàn)點(diǎn)對點(diǎn)通信

作者不詳

Winsock控件是VB5.0的新增功能,它解決了以往應(yīng)用VB編程時網(wǎng)絡(luò)中應(yīng)用程序之間無法實(shí)現(xiàn)點(diǎn)對點(diǎn)通信的難題。Winsock使用的TCP協(xié)議和UDP協(xié)議允許建立并保持一個到遠(yuǎn)程計算機(jī)上的連接,且可以在連接結(jié)束之前實(shí)時地進(jìn)行數(shù)據(jù)交換。用戶僅通過設(shè)置屬性并借助事件處理就能夠輕而易舉地連接到一個遠(yuǎn)程的計 算機(jī)上,而且只用兩個命令就可以實(shí)現(xiàn)數(shù)據(jù)交換。

使用TCP協(xié)議時,如果需要創(chuàng)建一個客戶應(yīng)用程序,就必須識別服務(wù)器的名稱或IP地址。

應(yīng)用程序的通信端口隨時都將仔細(xì)監(jiān)測對方發(fā)出的消息,這是系統(tǒng)進(jìn)行可靠連接的保證。一旦連接發(fā)生,任何一方都可以通過SendData發(fā)送和接收數(shù)據(jù),并借助GetData把自己的數(shù)據(jù)分離出來。傳送數(shù)據(jù)時,需要先設(shè)定客戶機(jī)的LocalPort屬性,服務(wù)器則只需要把RemoteHost屬性設(shè)定為客戶機(jī)以太網(wǎng)的地址,并設(shè)定與客戶機(jī)LocalPort屬性相同的端口地址, 借助SendData方法開始發(fā)送消息?？蛻魴C(jī)則在GetData事件中通過DataArrival事件分離出發(fā)送的信息。

一個Winsock控件可以讓本地計算機(jī)連接到遠(yuǎn)程的計算機(jī)上,同時使用UDP或TCP協(xié)議,兩個協(xié)議都能創(chuàng)建客戶機(jī)和服務(wù)器應(yīng)用。

使用Winsock控件時,通信的雙方需要選定相同的協(xié)議。TCP協(xié)議適用于傳送大容量、需要安全性保證的數(shù)據(jù)文件;而UDP協(xié)議適用于需要分別與很多下屬通信,或者建立的連接比較多且為時變的情況,特別是在數(shù)據(jù)量很小的時候。設(shè)定時可以使用Winsock1.Protocol =

sckTCPProtocol方法,首先要找到你的計算機(jī)的名稱,并把它添入Winsock的LocalHost屬性中。

創(chuàng)建一個應(yīng)用程序時,首先要確定你建立的是客戶方應(yīng)用還是服務(wù)器服務(wù),只有建立的服務(wù)器應(yīng)用開始工作,并進(jìn)入監(jiān)聽狀態(tài)時,客戶應(yīng)用程序才開始建立連接,進(jìn)入正常的通信狀態(tài)。筆者建立了一個應(yīng)用程序,它的功能是當(dāng)客戶方的鼠標(biāo)移動時,服務(wù)器應(yīng)用程序上能夠?qū)崟r顯示該鼠標(biāo)的位置。下面是建立服務(wù)器應(yīng)用的方法:

1.創(chuàng)建一個新的標(biāo)準(zhǔn)EXE文件;

2.加入一個Winsock控件;

3.加入如下代碼:

Private Sub Form Load()

tcpServer.LocalPort = 1001

tcpServer.Localhost = 〃servser〃

tcpServer.remotePort = 1002

tcpServer.Localhost = 〃klint〃

tcpServer.Listen

End Sub

′連接檢查

Private Sub tcpServer ConnectionRequest

(ByVal requestID As Long)

If tcpServer.State sckClosed Then

tcpServer.Close

tcpServer.Accept requestID

End Sub

′發(fā)送數(shù)據(jù)

Private Sub frmserver monsemove(x,y)

tcpServer.SendData 〃x〃 str(x)

tcpServer.SendData 〃y〃 str(y)

End Sub

建立客戶應(yīng)用的方法為:

1.創(chuàng)建一個新的標(biāo)準(zhǔn)EXE文件;

2.加入一個Winsock控件;

3.加入兩個TEXT框—— txt x和 txt y;

4.加入如下代碼:

Private Sub Form Load()

tcpServer.LocalPort = 1002

tcpServer.Localhost = 〃klint〃

tcpServer.remotePort = 1001

tcpServer.Localhost = 〃servser〃

tcpServer.Listen

End Sub

′連接檢查

Private Sub tcpklint ConnectionRequest

(ByVal requestID As Long)

If tcpklint.State sckClosed Then

tcpklint.Close

tcpklint.Accept requestID

End Sub

Private Sub tcpClient DataArrival

(ByVal bytesTotal As Long)

Dim strData As String

tcpklint.GetData strData

if left(strData,1)=〃X〃then

txt x.Text = strData

else

txt y.Text = strData

endif

End Sub

以上例程實(shí)現(xiàn)的是一個非常簡單的點(diǎn)對點(diǎn)通信,在此基礎(chǔ)上略加改造,可以形成功能復(fù)雜的實(shí)時計算機(jī)網(wǎng)絡(luò)A-A交互通信系統(tǒng),用于控制、圖形仿真等。

使用UDP協(xié)議建立對等通信和通過TCP建立客戶/服務(wù)器通信的方法略有不同,它不需要建立客戶和服務(wù)器,而是建立對等通信。此過程通過以下幾步實(shí)現(xiàn):

1.設(shè)定Winsock的RemoteHost 屬性為一個通信的計算機(jī)名稱;

2.設(shè)定 RemotePort 為一個接口號;

3.調(diào)用Winsock的Bind 事件綁定本地的接口號。具體設(shè)定方法為:

Private Sub Form Load()

With Winsock1

.RemoteHost= 〃PeerB〃

.RemotePort = 1001 ′遠(yuǎn)程連接號

.Bind 1002

′綁定的本地號

End With

End Sub

程序的其它部分與TCP方法類似,即通過SendData 和GetData 方法發(fā)送或提取數(shù)據(jù)。UDP和TCP協(xié) 議在使用中各有特點(diǎn),如果靈活使用,可以得到很好的效果。令人欣慰的是,VB5.0 中Winsock給我們提供了一種簡便的數(shù)據(jù)傳送方法,使我們得以輕松地實(shí)現(xiàn)網(wǎng)絡(luò)點(diǎn)對點(diǎn)通信。