FullScreen
Página 1 de 1
FullScreen
~Descrição~
•Trata-se do Sistema de FullScreen elaborado por "Mitus"
do Forum Internacional para o Eclipse Origins,com as dimensões em
800x600
~Tutorial~
Server~Side
No modConstant procure por:
No modConstants procure por:
E mude para:
Embaixo dele coloque:
Depois encontre "Private Sub imgExit_Click ()" e logo em seguida por:
Em "frmMenu" nas ferramenta ao lado mude:
•Antes
de fazer esse tutorial faça uma backup, e ao usa-lo no game não vai ter
opção de deixar em Modo de Janela,mas tem como colocar essa opção com
alguns if e tals ..
•Trata-se do Sistema de FullScreen elaborado por "Mitus"
do Forum Internacional para o Eclipse Origins,com as dimensões em
800x600
~Tutorial~
Server~Side
No modConstant procure por:
- Código:
Public Const MAX_MAPX As Byte = 14
Public Const MAX_MAPY As Byte = 11
- Código:
Public Const MAX_MAPX As Byte = (800 / 32 - 1)
Public Const MAX_MAPY As Byte = (608 / 32 - 1)
No modConstants procure por:
- Código:
Public Const MAX_MAPX As Byte = 14
Public Const MAX_MAPY As Byte = 11
- Código:
Public Const MAX_MAPX As Byte = (800 / 32 - 1)
Public Const MAX_MAPY As Byte = (608 / 32 - 1)
- Código:
' running at the same time will be allowed to access the screen as well.
Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_NORMAL)
E mude para:
- Código:
' running at the same time will be allowed to access the screen as well.
Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
Call DD.SetDisplayMode(800, 600, 32, 0, DDSDM_DEFAULT)
- Código:
Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean
Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Declarations
Public Const CCDEVICENAME = 32
Public Const CCFORMNAME = 32
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const CDS_TEST = &H4
Type typDevMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Embaixo dele coloque:
- Código:
Dim ScreenWidth As Integer
Dim ScreenHeight As Integer
- Código:
Private Sub Form_Load()
picAdmin.Left = 10
picCurrency.Left = txtMyChat.Left
picCurrency.Top = txtMyChat.Top
Me.width = 10545
End Sub
- Código:
Private Sub Form_Load()
Dim typDevM As typDevMODE
Dim lngResult As Long
ScreenWidth = Me.ScaleWidth
ScreenHeight = Me.ScaleHeight
lngResult = EnumDisplaySettings(0, 0, typDevM)
With typDevM
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
.dmPelsWidth = ScreenWidth 'ScreenWidth (640,800,1024, etc)
.dmPelsHeight = ScreenHeight 'ScreenHeight (480,600,768, etc)
End With
' Change the display settings to the specified graphics mode.
lngResult = ChangeDisplaySettings(typDevM, CDS_TEST)
picScreen.width = ScreenWidth
picScreen.height = ScreenHeight
picAdmin.Left = 10
picCurrency.Left = txtMyChat.Left
picCurrency.Top = txtMyChat.Top
End Sub
Depois encontre "Private Sub imgExit_Click ()" e logo em seguida por:
- Código:
txtChat.text = vbNullString
- Código:
Call DestroyGame
- Código:
BorderStyle = 0-None
StarUpPosition = 2-CenterScreen
WindowState = 2-Maximized
Em "frmMenu" nas ferramenta ao lado mude:
- Código:
BorderStyle = 0-None BorderStyle = 0-None
StarUpPosition = 2-CenterScreen
WindowState = 2-Maximized
•Antes
de fazer esse tutorial faça uma backup, e ao usa-lo no game não vai ter
opção de deixar em Modo de Janela,mas tem como colocar essa opção com
alguns if e tals ..
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Sex Dez 05, 2014 10:00 am por Fabio-3dgames
» Lost In Dreams chapter 01
Seg Nov 24, 2014 7:22 pm por slipknot
» A Makers Brasil ressuscitara em breve!!
Sáb Nov 01, 2014 2:26 pm por Francisco Souza
» Elysium Diamond 3.3.2
Sáb Nov 01, 2014 2:17 pm por Francisco Souza
» personagens e objetos 3d game builder
Seg Jul 28, 2014 2:33 pm por Reginaldo Aparecido Zanus
» fala galera \o obs auhsaush digita galera asygasyga
Dom Jul 06, 2014 1:40 am por anastiel
» tutorial headshot fps creator
Seg Jun 09, 2014 6:08 pm por EspinhosoGamer
» SnakeMod fps creator
Seg Jun 09, 2014 5:55 pm por EspinhosoGamer
» serial fps creator
Seg maio 26, 2014 7:35 pm por slipknot