Visual Basic 中学校 掲示板 投稿内容
タグのない投稿を抽出 統計 RSS

Visual Basic 中学校 > 投稿一覧 >

スクロール

タグの編集...

投稿者 ゆうた   (社会人)   投稿日時 2016/12/21 15:49:22
スクロールのプログラミングについてです。

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

投稿者 masaX   (社会人)   投稿日時 2016/12/21 16:27:04
テキストボックス1と2だけなら、単純に

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

ではダメですか?


投稿者 魔界の仮面弁士   (社会人)   投稿日時 2016/12/21 16:29:10
題名を見た段階ではスクロールバーを想像してましたが、どうやら違ったようで。


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

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

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

投稿者 スクロール   (社会人)   投稿日時 2016/12/21 16:39:51
MasaXさん、魔界の仮面弁士さん、有難うございます。
説明の仕方が下手ですみません。スクロールバーではなく、配置したボタンを押したらテキストボック1に入力されたものがテキストボックス2でスクロール(左に流れる?)ようにしたいのです。

投稿者 魔界の仮面弁士   (社会人)   投稿日時 2016/12/21 17:59:37
http://on-ze.com/demo/css3-marquee/

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

投稿者 ねぼすけ   (社会人)   投稿日時 2016/12/23 13:22:11
カキカキで良ければ
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




投稿者 ゆうた   (社会人)   投稿日時 2016/12/25 21:17:28
ねぼすけさん、ありがとうございます!
後ほど試してみたいと思います。m(_ _)m