vb2005
چهارشنبه 18 اردیبهشت 1387, 22:51 عصر
سلام دوستان،برنامه ای دارم که با استفاده از دستور زیر صفحه نمایش رو به اندازه 800در600 تغییر میدم ودر محیط برنامه نویسی هیچ مشکلی نداره اما بعد ازکامپایل این دستور عمل نمیکنه واندازه صفحه نمایش برنامه ام همون اندازه اصلی به نمایش در میاد،لطفاًکمک کنید.
Dim DX_Main As New DirectX7
Dim DD_Main As DirectDraw4
Private Sub DX_Init()
Set DD_Main = DX_Main.DirectDraw4Create("")
DD_Main.SetCooperativeLevel form1.hwnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE
DD_Main.SetDisplayMode 800, 600, 32, 0, DDSDM_DEFAULT
End Sub
Private Sub Form_Load()
DX_Init
End Sub
Dim DX_Main As New DirectX7
Dim DD_Main As DirectDraw4
Private Sub DX_Init()
Set DD_Main = DX_Main.DirectDraw4Create("")
DD_Main.SetCooperativeLevel form1.hwnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE
DD_Main.SetDisplayMode 800, 600, 32, 0, DDSDM_DEFAULT
End Sub
Private Sub Form_Load()
DX_Init
End Sub