1樓:尚心部落
第一道題**如下:
private sub form_load()
me.scalemode = 6
橫滾動條.move me.scaleleft, me.scaleheight - 橫滾動條.height, me.scalewidth, 橫滾動條.height
**框.autosize = true
with 橫滾動條
.min = me.scalewidth
.max = **框.width
.visible = iif(.max > .min, true, false)
end with
end sub
private sub 橫滾動條_change()
**框.left = 橫滾動條.min - 橫滾動條.value
end sub
第二道題要用到影象框,可以在**框內加入影象框,**載入到影象框,**如下:
private sub command1_click()
timer1.enabled = true
end sub
private sub form_load()
me.scalemode = 1
影象框.stretch = true
影象框.move **框.scaleleft, **框.scaletop, **框.scalewidth, **框.scaleheight
timer1.interval = 500
end sub
private sub 橫滾動條_change()
**框.left = 橫滾動條.min - 橫滾動條.value
end sub
private sub timer1_timer()
**框.height = **框.height + 100
**框.width = **框.width + 100
影象框.move **框.scaleleft, **框.scaletop, **框.scalewidth, **框.scaleheight
end sub
2樓:星語鑫鑫願
應該有本專業的vb程式設計書籍的,程式設計要多靠自己動腦筋,別人做好的對你來說 沒有什麼大的幫助。你要的問題可不能說是難題,其實就是控制項的基本操作,如果你熟悉控制項的屬性,這些是很簡單的。
關於VB的一道題,關於VB的兩道題
private sub form keydown keycode as integer,shift as integer dim left,top as doubleleft top if keycode 37 then left 50elseif keycode 38 top 50 elseif ...
兩道語文題目,兩道語文的題目
他,是乙個長頭髮,小眼睛。小鼻子的人。整天一無所獲。坐街賣場,竟然在人們心中刻下啦深深的印象。從這個人身上看不出有何 天賦,五音不全。沒有明星,專業人士的 氣質。從小到大,從很大到老他一直以普通人身份,默默無聞 應付應付得啦 一 就是做事 做人 都不要自卑,向著不自卑的方向行走。1.自卑具有普遍性 ...
求解兩道C 的題,謝謝大家,求助兩道C 程式設計題,謝謝!
include include include include include include include bool check and msg bool cdt,const char true msg 0,const char false msg 0 else return cdt bool ...