Option Explicit
Dim stFile As String
Private Sub cmdOk_Click()
On Error Resume Next
'Disattiva gli effetti. Come impostazione predefinita non sono attivati
'per non rallentare l'applicazione
Timer1.Enabled = False
Shape1.Visible = False
'Aggiunge il nuovo indirizzo nella ComboBox
txtIP.AddItem (txtIP.Text)
'Apro il file per salvare la lista dei server
Open stFile For Append As #1
'Salvo la lista server
Write #1, txtIP.Text
'Chiudo il file
Close #1
'Se lascia la casella di testo vuota manda un messaggio di errore
If txtNick.Text = vbNullString Then
MsgBox "Inserisci il tuo Nickname", vbExclamation, "ATTENZIONE"
txtNick.SetFocus
Exit Sub
End If
'Nascondo la schermata di connessione
frmLogin.Hide
frmClient.Show
End Sub
Private Sub cmdAnnulla_Click()
'Disattiva gli effetti. Come impostazione predefinita non sono attivati
'per non rallentare l'applicazione
Timer1.Enabled = False
Shape1.Visible = False
'Nascondo il Form Login
frmLogin.Hide
'Mostro il Form Client
frmClient.Show
End Sub
Private Sub Form_Load()
stFile = "C:/ListaServer.dat"
Open stFile For Append As #1
'Attivo gli effetti grafici
Shape1.Visible = True
Timer1.Enabled = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Forzo la chiusura del programma
End
End Sub
Private Sub mnuFileDelete_Click()
'Se il file è aperto lo chiude
Close #1
'Cancella la lista dei server
Kill "C:/ListaServer.dat"
End Sub
Private Sub mnuFileEsci_Click()
'Termino il programma
End
End Sub
Private Sub mnuHelpInfo_Click()
'Dico dove si trova la lista server
MsgBox "La lista dei server si trova in C:/, per aprirla basta cliccare su di essa" _
& " e selezionare la voce apri con > blocco note", vbInformation, "INFO"
End Sub
Private Sub Timer1_Timer()
'Effetto grafico
Shape1.BorderColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub