フォームの背景を同じ画像で埋め尽くすってできるの？

おーえん 2004-06-04 12:07:57 No: 83830 IP: [192.*.*.*]

フォームの背景を自分の作成した画像で埋め尽くしたいんですが、可能
なんでしょうか。

ウィンドウズの背景はフィッシィングとかの画像をいくつも並べて表示
することできますよね？

アレと同じようなことができるかということなんですが、、、

イメージコントロールを何個も使って解決しようかと思ったのですが、
もし簡単にできる方法があればと思い、質問しました。

どなたかおねがいします。

編集削除

Say 2004-06-04 15:23:53 No: 83831 IP: [192.*.*.*]

たとえば

Option Explicit

Private Sub Form_Load()
    Dim ix As Single
    Dim iy As Single
    Me.AutoRedraw = True
    Picture1.AutoSize = True
    Picture1.Picture = LoadPicture("C:\WINNT\winnt.bmp")
    For iy = 0 To Me.ScaleHeight Step Picture1.ScaleHeight
        For ix = 0 To Me.ScaleWidth Step Picture1.ScaleWidth
            Me.PaintPicture Picture1.Picture, _
                            ix, iy, _
                            Picture1.ScaleWidth, Picture1.ScaleHeight, _
                            0, 0, _
                            Picture1.ScaleWidth, Picture1.ScaleHeight
        Next
    Next
    Picture1.Visible = False
End Sub

とか？

編集削除