Rozta₧enφ obrßzku na formulß°

Postup:
Na formulß° p°idejte prvek Image, natßhn∞te do n∞j obrßzek a Visible nastavte na False. Na udßlost Form_Paint zapiÜte:
Private Sub Form_Paint()

    Dim X As Integer, Y As Integer
    Dim ImgWidth As Integer
    Dim ImgHeight As Integer
    Dim FrmWidth As Integer
    Dim FrmHeight As Integer

    ImgWidth = Image1.Width
    ImgHeight = Image1.Height
    FrmWidth = Form1.Width
    FrmHeight = Form1.Height
    
    For X = 0 To FrmWidth Step ImgWidth
       For Y = 0 To FrmHeight Step ImgHeight
          PaintPicture Image1, X, Y      
       Next Y
    Next X
  
End Sub

Zp∞t

Autor: The Bozena