スクロール

スクロールのプログラミングについてです。

ボタンを配置して、それを押したら、テキストボックス1のものがテキストボックス2にスクロールされるようにするプログラミングをご存知の方いますか？

テキストボックス１と２だけなら、単純に

テキストボックス2.Text = テキストボックス1.Text 
テキストボックス1.Text = ""

ではダメですか？

題名を見た段階ではスクロールバーを想像してましたが、どうやら違ったようで。


> テキストボックス1のものがテキストボックス2にスクロールされる

いわゆる marquee のことだとしたら、こんな感じで。

http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=11243
https://www.youtube.com/watch?v=41cCbh0KBc8

MasaXさん、魔界の仮面弁士さん、有難うございます。
説明の仕方が下手ですみません。スクロールバーではなく、配置したボタンを押したらテキストボック１に入力されたものがテキストボックス２でスクロール（左に流れる？）ようにしたいのです。

http://on-ze.com/demo/css3-marquee/

上記のようなものを想定しているのだとしたら、
前回紹介した URL を参照してみてください。

カキカキで良ければ

Public Class Form1

    Private TickCount As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Timer1.Interval = 100

        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        TickCount += 1

        Dim tx1 As String = TextBox1.Text

        Dim tx2 As String = Mid(tx1, TickCount)

        If tx2 = "" Then

            Timer1.Stop()

        End If

        TextBox2.Text = tx2

    End Sub

End Class

ねぼすけさん、ありがとうございます！
後ほど試してみたいと思います。m(_ _)m