投稿時間:2002/12/16(Mon) 19:41 投稿者名:花ちゃん
Eメール:
URL :
タイトル: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
|