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時間設定為正確時間,然後按下面程式來做,那個比較的時...
你在令後的學習生活中該怎樣珍惜時間 利用時間呢?想好了再說
時間不等人,有什麼特別想做的,就立馬行動起來,別到沒時間沒機會時,後悔遺憾 做任何事都要有所意義。要定好自己的目標,一切行動皆為目標。做事切不可三心二意,學習也好,工作也是。朋友不可以 要有所選擇,對自己有所助力的才好。人的時間是很有限的,大沒必要為了那些意義不大或自己無力更改的事糾結,那是浪費時間...