1樓:匿名使用者
dim a, b // 定義兩個變體型變數a,b,在該模組範圍內有效
private sub form_load() // 窗體載入事件觸發的函式
a = picture1.width // 記錄**框控制元件picture1的寬度到a變數
b = picture1.height // 記錄**框控制元件picture1的高度到b變數
hscroll1.max = 10 // 設定滾動條控制元件hscroll1的最大滾動值
hscroll1.min = 0 // 設定滾動條控制元件hscroll1的最小滾動值,結合上一句**,控制了滾動條控制元件hscroll1的滾動範圍
end sub
private sub hscroll1_change() // 滾動條值改變時觸發的函式
picture1.width = a // 設定**框控制元件的之寬度為視窗開啟時的寬度
picture1.height = b // 設定**框控制元件的之寬度為視窗開啟時的高度
// 下面的**控制**框的寬度和高度
// 滾動條向後拖動一格,**的寬度和高度就比上一次增加30px
// 同理,滾動條向前拖動一格,**的寬度和高度就比上一次減少30px
// 根據你的設定,**大小控制範圍為:a,b -> a+300, b+300
picture1.width = picture1.width + hscroll1.value * 30
picture1.height = picture1.height + hscroll1.value * 30
end sub
2樓:梅花香自臨洮河
好像沒有錯誤。沒有refresh重新整理或者 redraw 重新繪畫的**。
VB程式設計問題
1 private sub command1 click vscroll1.value 0 timer1.enabled true end sub private sub form load vscroll1.max 100 vscroll1.min 0 timer1.interval 100 en...
vb程式設計,VB程式設計
大哥你這個問題很簡單,只不過在這裡不能把 全給你,你的問題描述的不清楚,我吧幾個關鍵的技術點告訴你 字型變化有font屬性來實現 按鈕始終在窗體又下放可以再窗體的form resize中設定 按鈕的top和left屬性讓他們分別 me.whith 50,me.heght 50 4 4個按鈕每單擊一次...
VB程式設計題(簡單),VB 程式設計題(簡單)
做個標記,等會發你郵箱 private sub form load timer1.interval 1000timer1.enabled trueend sub private sub timer1 timer if option1.value true then text1.text format...