Permalink
Browse files

maj deconnexion

  • Loading branch information...
Dahevos committed May 19, 2012
1 parent e89d594 commit 10d075830363cd6293d0044b6352ed2c705b3ced
View
@@ -41,7 +41,7 @@ Module=modXp; Modules Sources\modXp.bas
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL3N.OCX
Form=Forms Sources\frmSplashScreen.frm
IconForm="frmMirage"
-Startup="Sub Main"
+Startup="frmSplashScreen"
HelpFile=""
Title="FRoG"
ExeName32="Client.exe"
@@ -126,10 +126,10 @@ Begin VB.Form frmMainMenu
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 315
- Left = 3000
+ Left = 3120
TabIndex = 21
Top = 0
- Width = 420
+ Width = 300
End
Begin VB.Image imgPers
Height = 3600
@@ -213,6 +213,14 @@ Begin VB.Form frmMainMenu
Top = 1560
Width = 195
End
+ Begin VB.Label Label6
+ BackStyle = 0 'Transparent
+ Height = 255
+ Left = 3120
+ TabIndex = 30
+ Top = 0
+ Width = 255
+ End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Musique"
@@ -687,6 +695,10 @@ Private Sub Label2_Click()
fraNewAccount.Visible = False
End Sub
+Private Sub Label6_Click()
+ Call GameDestroy
+End Sub
+
Private Sub lbl_creer_Click()
fraNewAccount.Visible = True
fraLogin.Visible = False
@@ -740,13 +752,10 @@ If KeyAscii = vbKeyReturn Then Call picUseChar_Click: KeyAscii = 0
End Sub
Private Sub picCancel_Click()
- Dim i As Integer
- For i = 1 To MAX_INV - 1
- Unload frmMirage.picInv(i)
- Next
+
+
Call TcpDestroy(1)
- frmsplash.Show
- frmsplash.Visible = True
+ Sleep (2000)
fraLogin.Visible = True
fraPers.Visible = False
End Sub
@@ -890,3 +899,4 @@ Private Sub txtpassword22_GotFocus()
txtpassword22.SelStart = 0
txtpassword22.SelLength = Len(txtpassword22)
End Sub
+
@@ -50,10 +50,10 @@ Begin VB.Form frmServerChooser
Begin VB.Label Label1
BackStyle = 0 'Transparent
Height = 375
- Left = 4560
+ Left = 4800
TabIndex = 3
Top = 0
- Width = 615
+ Width = 375
End
End
Attribute VB_Name = "frmServerChooser"
@@ -14,26 +14,6 @@ Begin VB.Form frmsplash
ScaleWidth = 4200
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
- Begin VB.Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "Moteur : FRoG Creator frogcreator.fr"
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FF0000&
- Height = 195
- Left = 240
- TabIndex = 1
- Top = 120
- Width = 3690
- End
Begin VB.Label lblStatus
Alignment = 2 'Center
BackStyle = 0 'Transparent
@@ -27,11 +27,7 @@ Sub TcpDestroy(Optional ByVal Bypass As Byte = 0)
frmMirage.sync.Enabled = False
If Bypass Then
- frmsplash.Visible = True
- frmsplash.lblStatus = "Déconnexion en cours"
- frmsplash.SetFocus
- Sleep 2000
- frmsplash.Visible = False
+ MsgBox ("Vous vous êtes déconnecté. Valider et patienter quelques secondes.")
End If
If frmMainMenu.fraPers.Visible Then frmMainMenu.fraPers.Visible = False
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.

0 comments on commit 10d0758

Please sign in to comment.