VB有關image控制項的問題

1樓：匿名使用者

在form.load裡面

下一張.click裡面

上一張.click裡面

2樓：

dim tu as integer

private sub command1_click() '上一張if tu>1 then tu=tu-1:image1.picture = loadpicture("n" & tu & ".

private sub command2_click() '下一張if tu<15 then tu=tu+1:image1.picture = loadpicture("n" & tu & ".

3樓：匿名使用者

假如**在c盤的tup這個資料夾內，擴充套件名為：jpg。**如下。可複製

dim i as integer

private sub command1_click()

if i > 1 then i = i - 1 else msgbox "這已經是第一張！": exit sub

if i < 14 then i = i + 1 else msgbox "這已經是最後一張！": exit sub

vb問題timer控制項的用法，VB問題，timer 控制項的用法。

dim t private sub command1 click t 0 timer1.interval 1000 計時事的毫秒數,即每1秒呼叫一次timer1 timer timer1.enabled trueend sub private sub timer1 timer t t 1 text1...

求VB幫助控制項陣列的問題

品牌3個按鈕為command1控制項組 品牌資訊3個文字框為text1控制項組 各個品牌數量及總價為text2控制項組 確定取消結束為command2控制項組 private sub command1 click index as integer if index 0 then text1 0 愛國...

有關VB程式設計的問題，什麼是VB程式設計

用7個文字框 設定為控制項陣列，即連續複製乙個文字框，跳出提示框點是 輸入7個成績。private sub command1 click dim a 7 as single,i as integer,max as single,min as single,s as single,sum as sin...