VB程式設計問題,VB程式設計問題

時間 2022-09-13 13:10:02

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...