1樓:匿名使用者
private sub timer1_timer()timer1.enabled = falseif label1.left < -1000 then'這裡的-1000根據你的label1的長度來定.
label1.left = me.widthelse
label1.left = label1.left - 20'-20表示從右到到左滾動,+20表示從左向右滾動end if
timer1.enabled = trueend sub
2樓:
從左至右:
private sub timer1_timer()if label1.left left = label1.left + 20 else label1.left=0 end sub 從右至左: private sub timer1_timer()if label1.left<0 then label1.left = label1. left - 20 else label1.left=me.width end sub 3樓:牛人影視 private sub timer1_timer()if label1.left<-label1.width then label1.left=me.scalewidth label1.left = label1.left - 15end sub 4樓:鉛筆 private sub timer1_timer()if label1.left < me.width then label1. left = label1.left + 20 else label1.left = 0 end sub 這個可以啊,我試了一下 5樓:匿名使用者 要想重複滾動,就是不停的在timer事件中進行timer觸發。我想這樣應該可以的。我機器上沒有vb,所以無法幫你試了。你可以自己試一下的。 這裡i是當做計數器用的,每次迴圈遞增1。r 是當做累加器用的,將 i的值進行累加。這裡沒有用for迴圈,而是用的while迴圈,其實是一樣的,而且while迴圈更為通用 sh不支援for迴圈 迴圈的次數也是有定義的,while i 100 這句就是定義,只要 i沒遞增到100,就會一直迴圈。其實這句... 這個是郵箱嗎?我發給你,只是我自己編的 private sub command1 click dim shengao as integer,tizhong as integer dim biaozhun shuchu shenggao val text1.text tizhong val text2... 唐軍 非常理解你的心情,知道你提問時是多麼著急,以至於光顧著客氣了卻連遇到什麼棘手的問題都沒說。還是冷靜冷靜,也許你的問題我給不了你滿意的答覆,但還有其他的更多的朋友可能會幫到你。那麼,請把你棘手的問題說出來吧。 你遇到了什麼棘手的問題?想諮詢什麼你倒是說啊,你不說大家怎麼知道你要問什麼?怎麼給你回...LINUX shell遇到的問題。我想計算1 2 3 4 到
VB問題,我編的程式不好用,請幫忙
你好,我現在遇到棘手的問題,想諮詢一下