投稿日	： 2002/12/16(Mon) 19:41
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: 画像の拡大縮小で。

コードを書いている内に先を越されてしまったようですね！
せっかくですので投稿しておきます。

> こういった場合はどのようにすればいいのでしょうか？

どの部分をですか？

> いろいろと試行錯誤してみましたが、どうにもなりませんでした。ご教授願います。

どこがでしょうか？　質問はもう少し具体的に的を絞ったものにして頂くと回答もし易いのですが。

一度下記を試して見て下さい。（ヒントだけという事で）

Option Explicit
Private Sub Form_Load()
    Picture1.Move 400, 400, 4000, 3800
    Picture2.Move 0, 0, 8000, 7000
    HScroll1.Move 400, 4170, 3970, 255
    VScroll1.Move 4370, 400, 255, 3770
    With Picture2
        .AutoRedraw = True
        .ScaleMode = vbCharacters  
        .CurrentX = 0
        .CurrentY = 7
        .FontSize = 12
    End With
    Picture2.Print "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほ"
    With HScroll1
        .Max = 4000
        .Min = 0
        .SmallChange = 400
    End With
    With VScroll1
        .Max = 3200
        .Min = 0
        .SmallChange = 320
    End With
End Sub

Private Sub HScroll1_Change()
    Picture2.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
    Picture2.Top = -VScroll1.Value
End Sub

★ - 画像の拡大縮小で。 - nd 12/16-15:52No.1867
• Re: 画像の拡大縮小で。 - これ 12/16-19:05 No.1870
• Re: 画像の拡大縮小で。 - 花ちゃん 12/16-19:41 No.1871