maj deconnexion

Client/Client.vbp

@@ -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"

Client/Forms Sources/frmMainMenu.frm

@@ -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
+

Client/Forms Sources/frmServerChooser.frm

@@ -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"

Client/Forms Sources/frmsplash.frm

@@ -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

Client/Modules Sources/modClientTCP.bas

@@ -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