تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية وضع كلمة كخلفية للفورم
#1
كاتب الموضوع : 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
وبالنسبة للبارميترس ، فالأول هو الفورم الذي تريد وضع الصورة كخلفية له ، الثاني هي أداة الصور التي تحتوي على الصورة ، الثالث اختياري وهو المكان الذي تبدأ منه الصور في الظهور .
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 548 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 625 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 633 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 376 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 665 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القيام باغلاق ال forms المختلفة RaggiTech 0 340 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية القراءة والكتابة إلى INI File RaggiTech 0 359 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اطفاء الشاشة وتشغيلها RaggiTech 0 366 17-10-12, 12:50 AM
آخر رد: RaggiTech
  طريقة عمل Scroll bars للفورم RaggiTech 0 515 17-10-12, 12:45 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم