vb滾動字幕

2021-09-30 17:09:37 字數 1885 閱讀 5093

1樓:

option explicit

''字幕滾動程式

'使用控制元件:一個label控制元件,一個text控制元件,一個timer控制元件,一個hscrollbar控制元件,2個option控制元件(單選按鈕)

'要滾動的字幕在text1內輸入''

private sub form_load()

hscroll1.max = 10

hscroll1.min = 1

hscroll1.value = 1

hscroll1.smallchange = 1

hscroll1.largechange = 1

option1.value = true

option1.caption = "方式一"

option2.caption = "方式二"

timer1.enabled = true

timer1.interval = 100

text1.text = "利用時鐘和滾動條設計一個字幕滾動程式,並且可以控制滾動的快慢。"

label1.caption = text1.text & space(label1.width \ 96)

end sub

private sub hscroll1_change()

timer1.interval = hscroll1.value * 100

end sub

private sub option1_click()

label1.caption = text1.text & space(label1.width \ 96)

end sub

private sub option2_click()

label1.caption = text1.text

end sub

private sub timer1_timer()

if asc(left(label1.caption, 1)) > 0 then

label1.caption = mid(label1.caption, 3, len(label1.

caption) - 2) & left(label1.caption, 2)

else

label1.caption = mid(label1.caption, 2, len(label1.

caption) - 1) & left(label1.caption, 1)

end if

end sub

2樓:

需要控制元件三個:標籤label1、計時器timer1、水平滾動條hscroll1。全部**如下:

dim bujinliang as singleprivate sub form_load()s = "我在滾動……"

label1 = s

me.fontsize = 24

label1.fontsize = 24

label1.width = textwidth(s)label1.height = textheight(s)hscroll1.max = 1000

hscroll1.min = 100

hscroll1.largechange = 100hscroll1.smallchange = 100timer1.interval = 100end sub

private sub hscroll1_change()bujinliang = hscroll1.valueend sub

private sub timer1_timer()label1.left = label1.left - bujinliang

if label1.left < -label1.width then label1.left = width

end sub

怎樣讓酒吧Led螢幕上的字幕滾動起來

是led單元板拼接的led顯示屏 還是led燈珠鑲嵌的ied發光字?這個沒法滾動 如果是led單元板 那麼你開啟電腦的控制軟體有個設定 向左連移 儲存 傳送 單卡傳送 傳送到u盤 那個需要微控制器來控制的 去買一個像記憶體卡一樣的東西,或者連線電腦在電腦裡設定 led廣告滾動螢幕的文字內容如何輸入 ...

LED電子橫幅滾動字幕顯示屏字只顯一半是什麼問題

應該是電源壞了。這要看具體情況 我 294365072 濟南拓彩光電 李 壓盤的尺寸怎麼定?和摩擦片的尺寸有什麼關 led顯示屏一半正常一半有字顯示但是有閃爍 從三個方面來做排除吧,如果自己沒法搞定,就找給你裝屏的人來搞,這種問題不大。1 排線,鬆動或接觸不良或損壞。2 電源,供電不足。3 控制卡,...

請大家給我提供一下電影后面的滾動字幕一般都有哪些專案,排序習慣,意思是什麼?要英文的

導演 director 編劇 writer 演員 actor 製作人 produced by 攝影 cinematography 剪輯 film editing 藝術指導 production designer美術設計 art direction by服裝設計 costume design by 請...