1樓:環業軟體
w.paintpicture pic.picture, i, j, pic.scalewidth, pic.scaleheight
pic.scalewidth , pic.scaleheight
??????????????????對嗎?
nexy j--------->>>>next拼寫錯誤
for j = 0 to w.height step pic.scaleheight
for i = 0 to w.height step pic.scalewidth 兩個都是to w.height ?
private sub fullpic(w as object, pic as picturebox)
'定義變數
dim i as integer, j as integer
dim x as integer
'平鋪圖形,利用雙迴圈語句
for j = 0 to w.height step pic.scaleheight
for i = 0 to w.width step pic.scalewidth
w.paintpicture pic.picture, i, j, pic.scalewidth, pic.scaleheight
next i
next j
end sub
2樓:
private sub fullpic(w as object, pic as picturebox)
'定義變數
dim i as integer, j as integer
dim x as integer
'平鋪圖形,利用雙迴圈語句
for j = 0 to w.scaleheight step pic.scaleheight
for i = 0 to w.scalewidth step pic.scalewidth
w.paintpicture pic.picture, i, j, pic.
scalewidth, pic.scaleheight, 0, 0, pic.scalewidth, pic.
scaleheight
next i
next j
end sub
private sub form_paint()
call fullpic(me, picture1) '列印**
end sub
3樓:匿名使用者
第九行 pic.scalewidth , pic.scaleheight去掉
第十一行 next j
VB 6 0過程問題
public sub jisuan x,y as integer z x y end sub private sub form click jisuan 5,6 print z end sub z定義有問題吧,在過程之外定義,或者定義公有變數。函式的話應該是 private sub form cli...
VB6 0中如何設定延時
private sub form load dim x x shell notepad.exe vbnormalfocus sendkeys 這是一個文字檔案的測試程式.true 模擬輸入英文字串 sendkeys true 兩次回車 waittime 2 延時 2 秒 sendkeys 自動輸入文...
vB6 0裡面的name屬性和caption屬性有什麼區別啊
簡單的說,name是給電腦看的。所以我們使用控制元件時,需要告訴電腦name的值 caption是給人看的,所以我們在顯示名稱給軟體使用者時,用的是caption的值 vb中物件name屬性與caption屬性有何區別 name屬性是一個控制元件 的物件名稱,是每個控制元件都必需有的,是對一個控制元...