Fullscreen на VB

[SapienS]

Вопрос: от нефиг делать решил смастерить в Basic`e небольшую игрушку и захотелось сделать её полноэкранной. Перерыл семь мануалов, но так ничего и не нашел.
Можно ли это сделать в принципе? :help:

 

[Lexandrus]

Если нужно сделать форму на весь экран (даже панель задач закрыть) - это реально. А что именно Вам нужно?

 

[KodRed]

Открытие приложения на весь экран (full screen mode)

На одном из форумов по VB я увидел такой пример.

При нажатии на CommandButton 1 вы получаете форму, развернутую на весь экран. Панель задач Windows при этом будет скрыта. При нажатии на CommandButton 2 вы всего лишь получаете форму, также развернутую на весь экран, но при этои панель задач не спрятана.

Добавьте на форму 2 элемента CommandButton.
--------------------------------------------------------------------------------
'ВАРИАНТ1

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
Dim ll_Width As Long
Dim ll_Height As Long
If Me.WindowState = vbMaximized Then
WindowState = vbNormal
End If
ll_Width = GetSystemMetrics(SM_CXSCREEN)
ll_Height = GetSystemMetrics(SM_CYSCREEN)
Call SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, ll_Width, ll_Height, SWP_SHOWWINDOW)
End Sub

Private Sub Command2_Click()
WindowState = vbMaximized
End Sub

'ВАРИАНТ2

Но возможен и такой вариант: установите свойство формы BorderStyle как 0-None и вставьте следующий код

Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Left = 0
Me.Top = 0
End Sub

 

[nerezus]

Смотреть немспейсы DirectX

 

[Great]

Смотреть интерфейс COM IDirectDraw