자유롭게 이야기를 적는 공간
글 수 15,188
VB전체화면 스크립트
케르메스먼저 DirectX라이브러리를 추가해야합니다.
vb제목표시줄에서
프로젝트--->참조 --->
DirectX 7 for Visual Basic Type Library 를 체크하시고
나오셔서 밑에 소스를 붙여넣기 시면됩니다.
DirectX 8을 쓰셔도 되지만 나중에 exe실행할대
다이렉트 8이 안깔린 컴에서는 프로그램이 실행도지 않을껍니다^^
Dim DX As New DirectX7
Dim DDraw As DirectDraw7
Dim DDSD0 As DDSURFACEDESC2
Dim DDSD1 As DDSURFACEDESC2
Private Sub Form_Click()
Set DDraw = Nothing
Set DX = Nothing
End
End Sub
Private Sub Form_Load()
Set DDraw = DX.DirectDrawCreate("")
DDraw.SetCooperativeLevel Me.hWnd, '이 줄과
DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN '이줄은 같은줄입니다.
'두줄을 한줄로 고치세요. 안그러면 에러남.
DDraw.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
End Sub
vb제목표시줄에서
프로젝트--->참조 --->
DirectX 7 for Visual Basic Type Library 를 체크하시고
나오셔서 밑에 소스를 붙여넣기 시면됩니다.
DirectX 8을 쓰셔도 되지만 나중에 exe실행할대
다이렉트 8이 안깔린 컴에서는 프로그램이 실행도지 않을껍니다^^
Dim DX As New DirectX7
Dim DDraw As DirectDraw7
Dim DDSD0 As DDSURFACEDESC2
Dim DDSD1 As DDSURFACEDESC2
Private Sub Form_Click()
Set DDraw = Nothing
Set DX = Nothing
End
End Sub
Private Sub Form_Load()
Set DDraw = DX.DirectDrawCreate("")
DDraw.SetCooperativeLevel Me.hWnd, '이 줄과
DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN '이줄은 같은줄입니다.
'두줄을 한줄로 고치세요. 안그러면 에러남.
DDraw.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
End Sub