1樓：匿名使用者
新增兩個picture控制元件，先載入picture2，然後根據picture1的大小自動調整顯示。
**如下：
private sub form_load()
picture1.autoredraw = true '重繪**
picture1.autosize = false '**框大小不變
picture1.visible = true
'picture1.backcolor = rgb(255, 255, 255) '設定**框背景顏色
picture2.autosize = true 'picture2自動縮放以適應**，不可見
picture2.visible = false
end sub
private sub command1_click()
載入到pic2
if picture2.scalewidth > picture2.scaleheight then
imagewidth = picture1.scalewidth
imageheight = picture1.scaleheight * picture2.scaleheight / picture2.scalewidth
else
imagewidth = picture1.scalewidth * picture2.scalewidth / picture2.scaleheight
imageheight = picture1.scaleheight
end if
picture1.cls
picture1.paintpicture picture2, (picture1.scalewidth - imagewidth) / 2, (picture1.
scaleheight - imageheight) / 2, imagewidth, imageheight, 0, 0, picture2.scalewidth, picture2.scaleheight
end sub
2樓：人間四月
主要是座標的換算，將picturebox的座標與shape的座標一致，如此只要用滑鼠調節shape大小來調節picture的大小調整相片。
3樓：網海1書生
picture1.paintpicture picture1.picture, 0, 0, picture1.width, picture1.height
在vb程式設計中如何把小寫變成大寫，VB中如何把原來字母中的小寫改為大寫，大寫改為小寫
vb6.0可使用ucase 函式可將小寫字母變成大寫。ucase 函式，返回 variant string 其中包含轉成大寫的字串。ucase 函式示例 本示例使用 ucase 函式來將某字串轉成全部大寫。說明，只有小寫的字母會轉成大寫 原本大寫或非字母之字元保持不變。dim lowercase,u...
vb中如何生成不同的隨機數，VB如何生成隨機數
為了生成某個範圍內的隨機整數，可使用以下公式 int upperbound lowerbound 1 rnd lowerbound 這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。注意若想得到重複的隨機數序列，在使用具有數值引數的randomize 之...
在VB中如何使用DOEVENTS
doevents 是轉移系統控制權，一般都是在用到迴圈裡比如，你做一個安裝程式.do while not eof 0 filecopy localfile,tragertpathlabel1.caption 正在複製 localfiledoevents loop 如果在label1上顯示正在複製的檔...