Como colocar um check boz para escolher ful escreen ou janela

por halls Seg 08 Nov 2010, 11:55

ae queria saber como faço pra mim criar um check box para quando eu clicar nele o jogo rodar em janela tem como ajuda ae? pale

por **Lendário** Seg 08 Nov 2010, 16:09

Crie na picOptions da frmMirage uma check com nome de chkJanela.
Dê um clique duplo sobre a checkBox e adicione o seguinte código.

Código:: Call PutVar(App.Path & "\config.ini", "CONFIG", "Janela", chkJanela.Value)

procure por:

Código:: frmMirage.chkplayerdamage.Value = Val(GetVar(FileName, "CONFIG", "NPCDamage"))

Abaixo adicione:

Código:: frmMirage.chkJanela.Value = Val(GetVar(FileName, "CONFIG", "Janela"))

procure por:

Código:: Call PutVar(App.Path & "\config.ini", "CONFIG", "NPCDamage", 1)

Abaixo adicione:

Código:: Call PutVar(App.Path & "\config.ini", "CONFIG", "Janela", 1)

Testa e fale se deu.

por halls Seg 08 Nov 2010, 17:03

olha ta dando esse error... ajuda ae porfas da uma olhada nas 2 imagens

https://2img.net/r/ihimizer/i/imagemrs.png/

https://2img.net/r/ihimizer/i/imagem2mk.png/

por Lucas Lôpo Qua 10 Nov 2010, 11:24

Tu deve ter removido o bagulho do IP no Config.ini

por halls Qua 10 Nov 2010, 15:13

nao por que tipo eu compilei antes de faser pq eu ja tinha feito e deu erro ai fexei e abri compilei e n deu erro e so quando eu faço msm q da erro

por Gu1lh3rm3 Qua 10 Nov 2010, 15:41

olha fiz um aqui mais não sei se vai pegar por que não testei! fiz em um Bloco de notas vou da ctrl+C em tudo e cola Como colocar um check boz para escolher ful escreen ou janela 608858

Como colocar um check boz para escolher ful escreen ou janela 608858

______________________________________________________________

Bom Vamos Começar.
Abra o Client~Side
e crie um novo Class Modules
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 Achu que terminei U_U ... Não esta testado ainda por que to sem o Elysium Diamond aquie... mais se não funcionar me avisem;)

por igorfla10 Qua 10 Nov 2010, 18:21

vou testar isso aqui tbm..to precisando de full screen
off : guilherme eu gostava mais de vc com a foto da hanah montana e da selena gomez Smile

por Gu1lh3rm3 Qua 10 Nov 2010, 20:40

kkkkkkkkk ... U_U ... jaja coloco foto delas novamente é que conprei outro pc .. ai perdi todas as fotos tal ...

por igorfla10 Qua 10 Nov 2010, 21:22

bom,o nome da Class module,tem que ser clsWindowed se nao da erro
nao da pra testar seu tuto,pq meu client side ta dando erro¬¬ja é a segunda vez q esse erro da,acho q fiz alguma coisa em meu client(a soluçao pra esse erro nao aparecer,foi começar o client side do ZERO¬¬nao quero faze isso de novo,ja botei muita coisa no meu game..vou ver aqui o problema
aparece isso

Código:: Private Function RT_KeyPress(ByVal Control As CodeSenseCtl.ICodeSense, ByVal KeyAscii As Long, ByVal Shift As Long) As Boolean GetRange End Function

user type not defined,no frmEditor,e eu percebi q mesmo começando do zero,vai da esse erro..vou arranjar outro frmEditor...tentei por outro aqui e quando abro o client side,ja aparece uma mensagem de error do frmEditor...se eu soubesse que mexer com vb,e criar um jogo dava tanto trabalho assim... Como colocar um check boz para escolher ful escreen ou janela 329928

Como colocar um check boz para escolher ful escreen ou janela 329928

off : eba foto da hannah montana Como colocar um check boz para escolher ful escreen ou janela 487483

por Gu1lh3rm3 Qua 10 Nov 2010, 21:50

U_U ... tenso ... aqui tamen esta dando esse error nas engine que baixo soh na minha que nao da, interessanteU_U

Off- U_U hannah '-'

por igorfla10 Dom 21 Nov 2010, 15:13

pra nao dar esse erro,eu peguei a frm editor de outra versao de elysium ,e substitui na minha,ai ta compilando legal Smile

ta funfando
+1 de cred

por Gu1lh3rm3 Qui 25 Nov 2010, 10:23

U_U ... vou postala em tutoriais ...

por Gu1lh3rm3 Qui 25 Nov 2010, 17:43

Dúvida/Pedido/Problema Resolvido com sucesso.
Se houver algo mais por favor pedimos que efetue a criação de um novo tópico na área de Suporte para resolução.

Topico Trancado e Movido

Atenciosamente Equipe MMORPGBR.

por Conteúdo patrocinado

Como colocar um check boz para escolher ful escreen ou janela

Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela

Re: Como colocar um check boz para escolher ful escreen ou janela