基礎VB問題,急用

1樓：匿名使用者

private sub form_load()command2.enabled = falseend sub

private sub command1_click()if command1.caption = "顯示" thentext1.text = "這是我的第一個vb程式"

command2.enabled=falseelse

text1.text = "敬請指教"

command1.caption="顯示"

command2.enabled=trueend if

end sub

private sub command2_click()end

end sub

2樓：匿名使用者

if command1.caption = "顯示" thentext1.text = "這是我的第一個vb程式"

command1.caption="繼續"

elseif command1.caption = "繼續" then

text1.text = "敬請指教"

command1.caption="顯示"

command2.enabled=trueend if

end sub

3樓：

private sub command2_click()end

end sub

是不是多了一個end

vb程式設計問題，VB程式設計問題

設 text1 text2 text3 text4 command1 label1 4個test輸入資料 command1是按鈕 label1顯示內容 我給你寫一個子程式 其它你在工具欄向視窗託就行了,然後把這個子程式複製到 做就ok了 private command1 click dim maxa...

VB設計簡單的計算器急用，VB設計一個簡單的計算器 急用

command1為控制元件陣列 private sub command1 click index as integer 數字鍵text1.text text1.text command1 index captionend subprivate sub command2 click 等號 text1....

VB窗體邊框美化問題，VB窗體邊框美化問題

為窗體新增隨滑鼠移動的功能的 mousedown事件 如果是滑鼠左鍵按下 if button 1 then 標示為移動狀態 movescreen true 得到滑鼠在窗體上的位置 相對與窗體內部座標 mousx x mousy y end if mousemove事件 if movescreen t...