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

解決


YKJ  2003-11-14 23:00:40  No: 109965  IP: [192.*.*.*]

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

編集    削除
いちゆ  2003-11-14 23:44:24  No: 109966  IP: [192.*.*.*]

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

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

編集    削除
特命君  2003-11-15 01:26:29  No: 109967  IP: [192.*.*.*]

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

編集    削除
YKj  2003-11-20 18:36:53  No: 109968  IP: [192.*.*.*]

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

編集    削除
特命君  2003-11-21 03:20:07  No: 109969  IP: [192.*.*.*]

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  IP: [192.*.*.*]

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

編集    削除