VB的兩道題,求助,題目如下

時間 2021-10-14 21:22:52

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