17-10-12, 12:54 AM
كاتب الموضوع : 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