[RaggiTech]

كاتب الموضوع : AhmedEssawy

الأمر شديد الشبه بالنسبة لما يحدث في صفحة ال HTML حيث يمكنك وضع صورة كخلفية للصفحة على عدة مراحل حسب حجم الصفحة وحجم الصورة ، الكود بالشكل التالي :

كود :

Public Sub TileBackground(Container As Object, PictureSrc As _
Object, Optional StartY As Long = 0)
On Error Resume Next
Dim lngXArea As Single, lngYArea As Single
Container.AutoRedraw = True
For lngXArea = 0 To Container.ScaleWidth Step PictureSrc.Width

For lngYArea = StartY To Container.ScaleHeight _
Step PictureSrc.Height

Container.PaintPicture PictureSrc.Picture, lngXArea, _
lngYArea,PictureSrc.Width, PictureSrc.Height

Next lngYArea
Next lngXArea
End Sub

وبالنسبة للبارميترس ، فالأول هو الفورم الذي تريد وضع الصورة كخلفية له ، الثاني هي أداة الصور التي تحتوي على الصورة ، الثالث اختياري وهو المكان الذي تبدأ منه الصور في الظهور .