🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #2180

Problemi con Ciclo For next

#2180
From: Info
Date: Sat, 13 Sep 2003 08:28
50 lines
2544 bytes
Ciao Ragazzi!

Ho un piccolo problemino e spero voi possiate aiutarmi!
Ebbene:

SCOPO: Creare un form per inserire nome utente e password ogni volta che si
avvia il programma. Una sorta di login insomma.

Azioni:
1. aperto l'editor di VB da una qualsiasi applicazione Office;
2. inserito un form nel progetto (per es. Personal.XLS), aggiunto le caselle
di testo, i controlli label e il pulsante di comando; (Fin qui tutto normale
amministrazione);
3. cominciato a scrivere il codice.

Ho creato una struttura condizionale nell'evento clic del comando button,
tipo questa:

dim user, psw as string
user = txtUser.text
psw = txtPsw.text

If user = "D" and psw = "123" then
 Msgbox "OK", vbInformation", "login"
 thisworkbook.activate
 unload me
 exit sub
else
 Msgbox "Errata, riprova", vbInformation", "login"
 txtPsw.text= ""
 With txtUser
  .text= ""
  .setfocus
End with
end if

Voi mi direte: e allora? E qui che vi chiedo aiuto!
Dunque:
1. Vorrei creare una procedura che se l'utente sbaglia ad inserire i dati
pi� di n volte, l'applicazione si chiude!
Sinceramente ho provato a creare un ciclo For..next, ma i risultati sono
ehhmmm non tanto buoni, anzi per niente.
Essendo un neofita, anzi un ultraneofita, non � che abbia grosse pretese, ma
d'altronde vorrei riuscire a farlo..
2. E' possibile infine, nascondere la cartella di lavoro quando si avvia
l'applicazione e mostrare solo il form di login?

Vi ringrazio per l'aiuto.
Ciao
Fr.
Technical Details
Message-ID: <bjukgo$hff$1@lacerta.tiscalinet.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-05!sn-xit-09!supernews.com!newshosting.com!news-xfer2.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!draco.tiscalinet.it!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,7954ae86da09b1a9,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2003-09-13 01:28:56 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-05!sn-xit-09!supernews.com!newshosting.com!news-xfer2.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!news.mailgate.org!draco.tiscalinet.it!not-for-mail
From: "Info" <francesco.amaraddio@tiscali.it>
Newsgroups: free.it.visual-basic
Subject: Problemi con Ciclo For next
Date: Sat, 13 Sep 2003 10:28:52 +0200
Organization: Tiscali Spa
Lines: 53
Message-ID: <bjukgo$hff$1@lacerta.tiscalinet.it>
NNTP-Posting-Host: ppp-217-133-212-100.cust-adsl.tiscali.it
X-Trace: lacerta.tiscalinet.it 1063441752 17903 217.133.212.100 (13 Sep 2003 08:29:12 GMT)
X-Complaints-To: abuse@tiscali.it
NNTP-Posting-Date: 13 Sep 2003 08:29:12 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000