首頁>Club>
6
回覆列表
  • 1 # 快樂與我同行9

    加入一個時間控制元件:timer1.

    加入一個橫向的捲軸:hscroll1.把:min屬性設為2,max屬性設為100,smallchange設為1。

    下面程式碼:

    privatesubcommand1_click()

    timer1.enabled=true

    timer1.interval=10

    endsub

    privatesubform_load()

    command1.caption="開始"

    text1.backcolor=&h8000000f

    text1.borderstyle=0

    text1.text="測試區域"

    timer1.enabled=false

    endsub

    privatesubhscroll1_change()

    timer1.interval=10*hscroll1.value/10

    endsub

    privatesubhscroll1_scroll()

    timer1.interval=10*hscroll1.value/10

    endsub

    privatesubtimer1_timer()

    text1.left=text1.left-50

    iftext1.left<0then

    text1.left=form1.width

    endif

    endsub

    技術含量不高,供參考!

  • 中秋節和大豐收的關聯?
  • 英語介詞for的用法口訣?