Привет народ!
есть код:
| Код |
Option Explicit
Dim dx As New DirectX7
Dim dd As DirectDraw7
Dim Primary As DirectDrawSurface7
Dim Back As DirectDrawSurface7
Dim Intro As DirectDrawSurface7
Dim Sprites As DirectDrawSurface7
Dim ddsd1 As DDSURFACEDESC2
Dim ddsd2 As DDSURFACEDESC2
Sub Init()
On Local Error GoTo errOut
Set dd = dx.DirectDrawCreate("")
Form1.Show
Call dd.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
Call dd.SetDisplayMode(640, 480, 16, 0, DDSDM_DEFAULT)
errOut:
MsgBox ("error")
End Sub
Private Sub Form_Load()
Call Init
End Sub
|
при запуске формы разрешение экрана меняется, но почему-то выводится моя ошибка Error, по моему проблема в строке:
| Код |
Set dd = dx.DirectDrawCreate("")
|
что делаю не так не пойму, подскажите пожалуйста, кто в курсе!
С уважением Graf |
