كود قلب الشاشه عموديا

[gdo]

السلام عليكم
حبيت اخواني اعمل مواضيع في لغة البرمجة فيجول بيسك حيث وان هذه اللغة تعتبر اللغة الاولى المستخدمة في اليمن
وفي هذا الموضوع اتناول كود قلب الشاشة عموديا

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

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
ولا تنسونا بالدعاء
;)

[رحــ أحزان ــال]

شكرا لك على الرغم من اني
مش عارف شو القصد او شو الهدف
بس الله يعطيك العافية

تحياتي