VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/05/22(Thu) 15:08
投稿者： Say
Ｅメール：
ＵＲＬ：
タイトル： Re: 表示の拡大縮小について

質問の意味がつかみづらいのですが、こういうことでしょうか？

Option Explicit

Private Sub Form_Load()
    Picture1.AutoSize = True
    Picture1.Picture = LoadPicture("C:\WinNT\winnt.bmp")
    Picture2.Width = Picture1.Width
    Picture2.Height = Picture1.Height
End Sub


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Cls
    Picture2.PaintPicture Picture1, _
                          0, _
                          0, _
                          Picture1.Width, _
                          Picture1.Height, _
                          X, _
                          Y, _
                          Picture1.Width / 4, _
                          Picture1.Height / 4

                          
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -