1樓:不落的夕陽羊
貌似**沒什麼問題,如果textbox的multiline屬性沒設定為true,最多也就不能顯示多行文字,應該不會只是傳送第一次迴圈時的資料,可能是其它地方有問題吧,把接收部分的**也貼出來看看。
暈~,傳送前你用了vbcrlf作為資料識別符號,那麼在do while內面可能會有n條資料,接收部分既然用了split函式以vbcrlf為特徵生成陣列,而你只取x(1)元素的資料,當然是只有一條資料了,那麼x(2)、x(3)、x(4)、......的資料呢!,應該這樣才能讀出全部資料:
dim x() as string
dim i as integer
dim mstr as string
winsock1.getdata strdatax = split(strdata, vbcrlf)if x(0) = "*" then
for i = 1 to ubound(x)mstr = mstr & x(i)
next
text1.text = mstr
end if
2樓:匿名使用者
dim n as integer
private sub form_load()n = 0
timer1.interval = 3000end sub
private sub timer1_timer()if n >= 1000 then
n = 0
end if
if n mod 4 = 0 then
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys "同屏"
sleep 1000
sendkeys ""
sendkeys text1.text
sendkeys ""
end if
if n mod 4 = 1 then
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys "國家"
sleep 1000
sendkeys ""
sendkeys text1.text
sendkeys ""
end if
if n mod 4 = 2 then
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys "地圖"
sleep 1000
sendkeys ""
sendkeys text1.text
sendkeys ""
end if
if n mod 4 = 3 then
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys ""
sendkeys "職業"
sleep 1000
sendkeys ""
sendkeys text1.text
sendkeys ""
end if
end sub
vb for迴圈怎麼在迴圈內設定停止迴圈?
3樓:典修敏
for i=0 to 20
response.write(i)
if i >= 10 then
exit for
end if
next
用exit for 可以無條件退出當前for迴圈
vb中迴圈語句巢狀條件語句時,怎樣讓條件一旦滿足一次就跳出迴圈?
4樓:網海1書生
for i = 1 to 1000
if i mod 80 = 0 then
print i
exit for
end if
next i
vb如何連續讀取串列埠資料
5樓:萍水e相逢
設定 mscomm1.rthreshold 為10在 oncomm 事件中 處理!
當 rthreshold 為10 時 就接收詳細 請看 msdn 吧
vb中利用winsock如何迴圈傳送檔案(即檔案一生成,就立刻自動傳送) 100
6樓:
即檔案一生成,就立刻自動傳送
這裡的意思是指vb生成exe檔案後就自動傳送生成的exe檔案呢,還是其他意思?
7樓:
問題太大了。
在檔案生成的語句結束後呼叫winsock傳送過程不就行了?
VB中的迴圈語句有哪些,vb中的迴圈語句
1 do while.loop 當條件為true時迴圈,在進入迴圈之前檢查條件。2 do.loop while 當條件為true迴圈,在迴圈至少執行一次後檢查條件。3 do until.loop 當條件為false迴圈,在進入迴圈之前檢查條件。4 do.loop until 當條件為false迴圈,...
VB停止迴圈的問題
什麼亂七八糟啊,整這樣幹嘛。去和系統搶執行緒的優先權啊,直接在程式裡判斷就好了。定義一個全域性變數,isend 當按f10的時候,isend 1 for i 0 to 20 if isend 1 then endelse command1 click end if next ctrl break肯定...
vb中for迴圈step的問題VB中FOR迴圈STEP的問題
如果沒有其他條件使迴圈變數的值發生變化,當第一次迴圈條件滿足時,step為0將造成死迴圈,當第一次迴圈條件不滿足時,step為0不迴圈 先看這幾句執行時的作用 1 s 0,給s設初值0 2 for i 1 to 5,第一次執行這一句時,對i設初值1,以後每次執行這一句時都判斷i的值是否介於初值和終值...