السلام عليكم
انا عندي كود يغير دقة الشاشة ووضعت الكود في اجراء ووضعت الاجراء في وحده نمطيه Module ولما استدعي الاجراء يقوم يتغير دقة الشاشة
الكود شغال تمام الحمد الله
لكن المطلوب شرح الكود من احد الاخوة بارك الله فيهم بالطريقة واسلوب علمي
وبارك الله فيكم
Module Module1
Sub main()
Dim Direct As New DxVBLib.DirectX7
Dim DirectD As DxVBLib.DirectDraw7
Dim ScreenWith, ScreenHight As Short
ScreenWith = 800
ScreenHight = 600
DirectD = Direct.DirectDrawCreate("")
DirectD.SetDisplayMode(ScreenWith, ScreenHight, 0, 0, DxVBLib.CONST_DDSDMFLAGS.DDSDM_DEFAULT)
End Sub
End Module
