|
Private Sub cmdclear_Click()
txtkey.Text = ""
End Sub
Private Sub cmdsave_Click()
cmndialog.Filter = "Tutti i file di testo(*.txt)|*.txt"
cmndialog.ShowOpen
Open cmndialog.FileName For Append As #1
Print #1, txtkey.Text
Close #1
MsgBox "Logs salvati correttamenti in " & cmndialog.FileName & "!", vbInformation, Me.Caption
End Sub
|
|