ラベルをスクロールするには？

解決

YKJ 2003-11-14 23:00:40 No: 109965

はじめまして。
ラベルの中に文章を入れてスクロールさせたいのですが、
どうしてもできません。どなたか教えてください。

いちゆ 2003-11-14 23:44:24 No: 109966

ラベルのCaptionをMid$関数などで切り出して表示する。
一定時間ごとに切り出す部分を変化させる。

これでできるはずですけど、ちゃんと考えました？

特命君 2003-11-15 01:26:29 No: 109967

スクロールでも電光掲示板のようにスクロールする方法と
テキストボックスのようにスクロールバーをつけて部分的に
スクロールしながら表示する方法がありますが、どちらかな？

YKj 2003-11-20 18:36:53 No: 109968

レス遅れました。VScrollをつけて縦にスクロールしたいのです。

特命君 2003-11-21 03:20:07 No: 109969

FormにPictureBoxを貼り付け、そのPictureBox上にLabelとVScrollを貼り付け
下記のコードを実行して見て下さい。

Private Sub Form_Load()
    With Label1
        .Caption = "はじめまして。" & vbCrLf & _
            "ラベルの中に文章を入れてスクロールさせたいのですが、" & _
            "どうしてもできません。どなたか教えてください。"
        .Move 0, 0, 2570, 2000
        .FontSize = 9
    End With
    With Picture1
        .Move 420, 375, 2595, 630
        .Appearance = 0
    End With
    With VScroll1
        .Move 3015, 375, 240, 645
        .Max = -2000
        .SmallChange = 100
    End With
End Sub

Private Sub VScroll1_Change()
Label1.Top = VScroll1.Value
End Sub

YKJ 2003-11-21 18:32:58 No: 109970

ありがとうございました。解決できました。