تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية قلب الشاشة من خلال الكود
#1
كاتب الموضوع : AhmedEssawy

يستخدم هذا الكود لقلب الشاشة ، وتعتمد فكرته على استخدام مجموعة من API's التي تعمل على مستوى ال pixels وتحديداً StretchBlt حيث نمرر لها متغيرات مقلوبة .

في قسم التصاريح General أو في مويول Module :


كود :
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
وهذا لتطبيق هذه العملية في حدث Initializ للفورم :


كود :
Private Sub Form_Initialize()
Dim W, H
W = Screen.Width / 15
H = Screen.Height / 15
StretchBlt hdc, 0, H, W, -H, GetDC(0&), 0, 0, W, H, vbSrcCopy
End Sub
وهذا عند الضغط على الفورم لانهاء العملية :


كود :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
End
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 1,010 03-03-15, 12:38 AM
آخر رد: shalapyx
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 6,093 01-08-13, 06:20 AM
آخر رد: derbaliammar
  افتح ملفّ الوورد والأكسل والباوربوينت من خلال برنامجك RaggiTech 0 1,156 17-10-12, 03:41 PM
آخر رد: RaggiTech
  معرفة دقة الشاشة RaggiTech 0 691 17-10-12, 01:06 AM
آخر رد: RaggiTech
  للعمل من خلال Dos وارسال واستقبال البيانات RaggiTech 0 589 17-10-12, 12:58 AM
آخر رد: RaggiTech
  لتشغيل فيديو ملء الشاشة RaggiTech 0 508 17-10-12, 12:56 AM
آخر رد: RaggiTech
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 537 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 774 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 785 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 500 17-10-12, 12:52 AM
آخر رد: RaggiTech

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


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