你可以在timer前用if判斷網(wǎng)絡(luò)狀態(tài),
創(chuàng)新互聯(lián)公司從2013年成立,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目做網(wǎng)站、成都網(wǎng)站建設(shè)網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元太仆寺做網(wǎng)站,已為上家服務(wù),為太仆寺各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575
如斷開,可用
threading.Thread.Sleep(10000) ‘當(dāng)前線程掛起10秒
’可以開一個(gè)新線程去讀取脫機(jī)數(shù)據(jù)。
如連接,則繼續(xù)執(zhí)行。
補(bǔ)充:
dim i as integer
'超過100次退出,避免死循環(huán)
for i=0 to 100
try
'ping你的端口
if ‘ok
exit for
else
threading.Thread.Sleep(10000) ‘當(dāng)前線程掛起10秒
end
Catch ex As Exception
End Try
next
Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶數(shù)"
Else
MsgBox "奇數(shù)"
End If
End Sub
都可以,可以用winsock,也可以自己重寫SOCKET套接字.建議你如果工期緊,可以先用WINSOCK.當(dāng)然最好是自己學(xué)用SOCKET套接字.這對未來開發(fā)網(wǎng)絡(luò)通訊是很有幫助的.因?yàn)橛肳INSOCK有個(gè)毛病就是殺毒軟件總會阻止
vb.net是完全面向?qū)ο蟮恼Z言,支持面向?qū)ο蟮乃膫€(gè)基本屬性:抽象,繼承,多態(tài),封裝,但vb是面向過程的語言,它只支持部分面向?qū)ο蟮膬?nèi)容像多態(tài),接口等。從 VB 7.0 之后的版本俗稱 VB.NET,來源于微軟的.NET戰(zhàn)略,到現(xiàn)在為止有三個(gè)版本
VB 7.0 即VB 2002,對應(yīng).NET Framework 1.0的版本
VB 7.1 即VB 2003,對應(yīng).NET Framework 1.1的版本
VB 8.0 即VB 2005,對應(yīng).NET Framework 2.0的版本
除了語法和使用習(xí)慣的繼承,VB 6.0之前的版本和VB 7.0之后的版本完全沒有聯(lián)系,幾乎沒有相同之處,兩種不同體系的語言