在vb中,利用時鐘和滾動條設計字幕滾動程式,並且滾動條可以控制字幕的位置

2021-04-25 09:20:55 字數 1673 閱讀 2767

1樓:匿名使用者

private sub form_load()with label1

.autosize = true

.caption = "字幕滾動"

.fontsize = 16

.forecolor = vbred

end with

with timer1

.enabled = true

.interval = 100

end with

with hscroll1

.min = 0

.max = me.scalewidth

end with

end sub

private sub timer1_timer()with label1

.left = hscroll1.value.top = .top - 100

if .top <= 0 then .top = me.scaleheight - .height

end with

end sub

用vb設計一個滾動字幕程式,要求用一個時鐘控制字幕滾動的速度,用一個標籤放置滾動字幕。字幕是window... 40

2樓:匿名使用者

因為你是匿名copy提問,我們的回答最多隻能100字。**寫不完,你看我的部落格吧。

3樓:互唯互

已修改 新建個窗體畫個

標籤caption 屬性為windows2000 畫個時版鍾 interval 屬性為100 timer事件**權

label1.left <=4000 thenlabel1.left = label1.left+10else

label1.left= -300

endif

4樓:手機使用者

我是互唯互 答案有點錯誤 時鐘 interval 屬性 為 100

下面還有

vb設計一個滾動字幕程式

5樓:匿名使用者

'在窗體form1上面放上一個picture1,picture1上面放上一個label1,在窗體上再放上一個計時器timer1

option explicit

private sub form_load()

label1.caption = "windows2000"

timer1.enabled = true

timer1.interval = 10 '調整這個內值可控制標籤label1的移容動速度

在vb中利用隨機函式產生,在 VB中,利用隨機函式產生 10個 1 100 之間的隨機整數,找出其中能被 5 整除的數並求其和

private sub command1 click text1.text dim aa 1 to 20 as integer,ss as integer,sda as integer for i 1 to 20 randomize aa i int rnd 99 1 next i for i 1 ...

PLC用時鐘指令控制路燈的定時接通和斷開,20 00時開燈,06 00是關燈,要梯形圖語句表

先將cpu時間設定為正確時間,然後按下面程式來做,那個比較的時間不完全正確,我忘了晚上8點和早上6點具體對應的數字了,你按你係統改下那個時間就可以。用實時時鐘指令控制路燈的定時接通和斷開,20 00時開燈,07 00時關燈,請設計出程式。先將cpu時間設定為正確時間,然後按下面程式來做,那個比較的時...

你在令後的學習生活中該怎樣珍惜時間 利用時間呢?想好了再說

時間不等人,有什麼特別想做的,就立馬行動起來,別到沒時間沒機會時,後悔遺憾 做任何事都要有所意義。要定好自己的目標,一切行動皆為目標。做事切不可三心二意,學習也好,工作也是。朋友不可以 要有所選擇,對自己有所助力的才好。人的時間是很有限的,大沒必要為了那些意義不大或自己無力更改的事糾結,那是浪費時間...