1樓：匿名使用者
private declare function getasynckeystate lib "user32" (byval vkey as long) as integer
private sub text1_keydown(index as integer, keycode as integer, shift as integer)
call jj(1, index)
end sub
private sub text2_keydown(index as integer, keycode as integer, shift as integer)
call jj(2, index)
end sub
private sub text3_keydown(index as integer, keycode as integer, shift as integer)
call jj(3, index)
end sub
private sub jj(x, y)
if getasynckeystate(vbkeydown) then
if y <> 14 then controls("text" & x)(y + 1).setfocus '2指豎排文字框數-1
elseif getasynckeystate(vbkeyup) then
if y <> 0 then controls("text" & x)(y - 1).setfocus
elseif getasynckeystate(vbkeyleft) then
if x <> 1 then controls("text" & x - 1)(y).setfocus
elseif getasynckeystate(vbkeyright) then
if x <> 4 then controls("text" & x + 1)(y).setfocus ' 4為橫排文字框數
end if
end sub
private sub text4_keydown(index as integer, keycode as integer, shift as integer)
call jj(4, index)
end sub
基於vb60將接收到的下位機資料用影象的形式顯示
首先 獲得資料 一般用rs232 來傳送資料 接收就行了 畫圖簡單多了 picture1.line 一個語句就夠了 我就貼一段隨機產生1500個數字 畫圖的 給你參考一下吧 2個控制元件 picturebox command private sub form load picture1.cls pi...
用VB6 0做簡易的小程式。當作業，要算分數的。跪求高手
跪著吧，這樣的學生，不學無術也就罷了，連基本的常識都沒有，要算分數的 算什麼分，如何個演算法？先學會語言表達再說吧。public x as boolean public oper as integer public z as string public result as string privat...
用什么方法可以追到女朋友，用什麼方法可以追到女朋友？
先見面，再交往。交往過程中，要時時在意，處處留心。多照顧她，理解她，一心一意的為她好，著就夠了。她會投向你的懷抱的。見面了第一次就成功了。相互瞭解對方，去照顧她，體貼她，知道她喜歡什麼，愛好什麼，投其所愛去追就好了。我覺得主要是因人而異，你要看你追求的女生喜歡什麼，然後投其所好，這樣對追求成功會比較...