[ALL] Full Screen com Check Box

por Gu1lh3rm3 Qui 25 Nov 2010, 10:28

Bom Vamos Começar.
Abra o Client~Side
e crie um novo Class Modules com o nome de clsWindowed
dentro dele você adicione isso!

Código:: 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 ' Used to support captionless drag Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 ' Undocumented message constant. Private Const WM_GETSYSMENU = &H313 ' Used to get window style bits. Private Const GWL_STYLE = (-16) Private Const GWL_EXSTYLE = (-20) ' Style bits. Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_THICKFRAME = &H40000 Private Const WS_SYSMENU = &H80000 Private Const WS_CAPTION = &HC00000 ' Extended Style bits. Private Const WS_EX_TOPMOST = &H8 Private Const WS_EX_TOOLWINDOW = &H80 Private Const WS_EX_CONTEXTHELP = &H400 ' Force total pRedraw that shows new styles. Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOSIZE = &H1 ' Used to toggle into topmost layer. Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private WithEvents mClient As Form Private mhWnd As Long Public Property Get Client() As Form ' Return reference to client form. Set Client = mClient End Property Public Property Set Client(ByVal obj As Form) ' Store reference to client form. Set mClient = obj ' Cache hWnd as it'll be accessed frequently. If mClient Is Nothing Then mhWnd = 0 Else mhWnd = mClient.hWnd End If End Property Public Function fFlipBit(ByVal Bit As Long, ByVal Value As Boolean) As Boolean Dim lStyle As Long ' Retrieve current style bits. lStyle = GetWindowLong(mhWnd, GWL_STYLE) ' Set requested bit On or Off and Redraw. If Value Then lStyle = lStyle Or Bit Else lStyle = lStyle And Not Bit End If Call SetWindowLong(mhWnd, GWL_STYLE, lStyle) Call pRedraw ' Return success code. fFlipBit = (lStyle = GetWindowLong(mhWnd, GWL_STYLE)) End Function Public Property Let Titlebar(ByVal Value As Boolean) ' Set WS_CAPTION On or Off as requested. Call fFlipBit(WS_CAPTION, Value) End Property Public Property Get Titlebar() As Boolean ' Return value of WS_CAPTION bit. Titlebar = CBool(fStyle And WS_CAPTION) End Property Public Sub pRedraw() ' Redraw window with new style. Const swpFlags As Long = _ SWP_FRAMECHANGED Or SWP_NOMOVE Or _ SWP_NOZORDER Or SWP_NOSIZE Call SetWindowPos(mhWnd, 0, 0, 0, 0, 0, swpFlags) End Sub Private Function fStyle(Optional ByVal NewBits As Long = 0) As Long ' ' Set new style bits. ' If NewBits Then Call SetWindowLong(mhWnd, GWL_STYLE, NewBits) End If ' Retrieve current style bits. fStyle = GetWindowLong(mhWnd, GWL_STYLE) End Function

agora vamos no frmLogin
crie uma Check Box dentro dela(pode sem em baixo de salvar mesmo)
se você perceber o nome dela devera estar check2 ou algo parecido
bom continuando no frmLogin mais agora dentro dos Codigos dela!
você proucure por

Código:: If Check1.Value = Checked Then Call PutVar(App.Path & "\config.ini", "CONFIG", "Password", txtPassword.Text) Else Call PutVar(App.Path & "\config.ini", "CONFIG", "Password", "") End If

abaixo disso adicione

Código:: If Check2.Value = Checked Then Call PutVar(App.Path & "\config.ini", "CONFIG", "FullScreen", 1) Else Call PutVar(App.Path & "\config.ini", "CONFIG", "FullScreen", "") End If

agora no modGameLogic proucure por

Código:: ' Menu states

em cima disso adicione

Código:: ' FullScreen ou Normal Public mclsStyle As clsWindowed

no frmMirage dentro do COdigos proucure por

Código:: Private Sub Form_Load()

mude a sub todo por

Código:: Private Sub Form_Load() Dim I As Long Dim Ending As String Set mclsStyle = New clsWindowed Set mclsStyle.Client = Me For I = 1 To 3 If I = 1 Then Ending = ".gif" If I = 2 Then Ending = ".jpg" If I = 3 Then Ending = ".png" If FileExist("GUI\game" & Ending) Then frmMirage.Picture = LoadPicture(App.Path & "\GUI\game" & Ending) Next I End Sub

agora no modDirectX proucure por

Código:: Sub InitDirectX()

mude a Sub Inteira por

Código:: Sub InitDirectX() ' Initialize direct draw If GetVar(App.Path & "\config.ini", "CONFIG", "FullScreen") = "" Then Set DD = DX.DirectDrawCreate("") frmMirage.WindowState = 0 mclsStyle.Titlebar = True Else Set DD = DX.DirectDrawCreate("") DD.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT mclsStyle.Titlebar = False End If frmMirage.Show ' Indicate windows mode application Call DD.SetCooperativeLevel(frmMirage.hWnd, DDSCL_NORMAL) ' Init type and get the primary surface DDSD_Primary.lFlags = DDSD_CAPS DDSD_Primary.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Set DD_PrimarySurf = DD.CreateSurface(DDSD_Primary) ' Create the clipper Set DD_Clip = DD.CreateClipper(0) ' Associate the picture hwnd with the clipper DD_Clip.SetHWnd frmMirage.picScreen.hWnd ' Have the blits to the screen clipped to the picture box DD_PrimarySurf.SetClipper DD_Clip ' Initialize all surfaces Call InitSurfaces End Sub

Bom Testaro e Falaro que Funciona.

Código:: Creditos: Gu1lh3rm3 & MMORPGBR

por lucasvivo25 Qui 25 Nov 2010, 10:41

da erro no

Código:: ' FullScreen ou Normal Public [quote]mclsStyle As clsWindowed[/quote]

por marcosni Qui 25 Nov 2010, 15:04

dica refaça o tutorial pois eu testei e pegou certo +1 cred

por gokured Qui 25 Nov 2010, 16:56

o meu tb deu isso 'mclsStyle As clsWindowed' [ALL] Full Screen com Check Box 539285

por Gu1lh3rm3 Qui 25 Nov 2010, 17:40

eh pq eu errei em uma cosia , kkkk , arrumei o tuto agora!

por lucasvivo25 Sex 26 Nov 2010, 09:44

eu ja tinha consertato antes aki em casa xD

por lucasvivo25 Sex 26 Nov 2010, 09:55

man como faz para tirar aquela barrinha la de cima
se n e fuarada o Fullsren

por gokured Sex 26 Nov 2010, 15:42

Manow isso nem pega malz mais e a verdade !

por Lucas Roberto Sex 26 Nov 2010, 17:36

Testado e aprovado

Teste aki e funfa 100%

+1 de CRED

por Gu1lh3rm3 Ter 07 Dez 2010, 04:58

obrigado!

por Ramonxxd Ter 07 Dez 2010, 10:58

Quando Vai Compila Da Erro Aki]' FullScreen ou Normal
Public mclsStyle As clsWindowed
Helpo Ae xD

por Gu1lh3rm3 Ter 07 Dez 2010, 11:24

tem que criar uma noca Class Module ... com o nome de clsWindowed como ta no tuto... depois adicione o codigo dentro dela que funfa ... eu testei o tuto hoje deu certinho funfo 100%

por Ramonxxd Ter 07 Dez 2010, 11:48

vc mudo o tuto algum dia ?
pq eu fiz isso
e deu esse erro ._.
estranho de mais

{LUTO Pablo martins Membro Do Forum
Ele Morreu ....}

por lucasvivo25 Ter 07 Dez 2010, 11:50

como tira aquela parada de cima a barra============================
?

por Ramonxxd Ter 07 Dez 2010, 11:57

akilo e o borderstyle
so vc deixar 0
Que Funciona

por gabriiell mooreiiraa Ter 07 Dez 2010, 15:03

é, no meu tb, só funciona se eu colocaa o FullScreen = 0, dentroo do config. ai funfa mais vai direto fullscreen, sem marca a opção. Smile

por Gu1lh3rm3 Ter 07 Dez 2010, 15:12

... aqui eu testei funciono certinho, acho que vocês estao fazendo algo errado!

por gabriiell mooreiiraa Qui 09 Dez 2010, 08:44

vo tentaa no meu novoo projeto, que no outroo eu naao vo usaar o fullscreen...

por gabriiell mooreiiraa Sex 10 Dez 2010, 10:22

naao funfoo dinoovo Sad

por Lucas Roberto Sex 10 Dez 2010, 11:34

gabriiell mooreiiraa Olha double post [ALL] Full Screen com Check Box 293620

Bom esse sistema esta testado & Aprovado Funciona Perfeitamente

Uu

Voce Vez algo errado Uu

por gabriiell mooreiiraa Sex 10 Dez 2010, 13:00

Desculpa ae o double post, naao tinhaa vistoo Smile

maas... voltandoo, eu fiiz tudo certinhoo, coloqueei maas naao tá funfandoo :S

por Coyotte Sáb 11 Dez 2010, 17:16

Galera acho ki fiz tudo certinho, mais quando vo copila da esse erro aki:

oq eu faço?

https://2img.net/r/ihimizer/img10/186/semttuloqck.jpg

por **Lendário** Sáb 11 Dez 2010, 17:24

Está faltando colocar o Check2 na frmLogin.

por Coyotte Sáb 11 Dez 2010, 17:28

EDIT 2 !

======================================================

Ja fiz e refiz esse tutorial umas 17 vezes, nao é possivel que todas eu fiz errado.., continua nao funcionando, alguem pode postar outro?

por gtalux Ter 21 Dez 2010, 18:37

da esse ERRO ajuda aew !!!

Código:: Private WithEvents mClient As Form

por Conteúdo patrocinado

[ALL] Full Screen com Check Box

[ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box

Re: [ALL] Full Screen com Check Box