meno93 (Normal User)
Rookie
Messaggi: 33
Iscritto: 08/01/2008
|
il codice del mio programmino il seguente:
Codice sorgente - presumibilmente VB.NET |
Dim i As Double On Error GoTo attenzione Dim dir As String dir = "c:\" & Text1.Text Open dir For Output As 1 CommonDialog1.FileName = dir For i = 1 To Text2.Text Write #1, "Y3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPgdgPY3WPfgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3gdgPY3fgdgfgdgPY3fgdgPY3" ProgressBar1.Value = ProgressBar1.Value + (150 / Text2.Text) Next MsgBox "File stato creato con successo nella directory c:\" & Text1.Text, vbInformation, "genera file 1.0" Close 1 attenzione: MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo alta possono ferifixcarsi problemi", vbInformation, "Genera file 1.0"
|
Quando nelle due textbox nn ce scritto niente mi da un errore e per coprire cio ho agiunto l'istruzione On Error GoTo attenzione dove attenzione sarebbe il messaggio che deve comparire...e fin qui ok...adesso se pero creo un file va tt ok alla fine scatta il messaggio il file stato creato...ma poi anche il messaggio attenzione...e in seguito nn mi fa creare piu file che riscatta il messaggio attenzione...AIUTATEMI X FAVORE nn so come devo fare....
|
|
Roberto VB (Member)
Expert
Messaggi: 419
Iscritto: 29/01/2007
|
Postato originariamente da meno93:
il codice del mio programmino il seguente:
Codice sorgente - presumibilmente VB.NET |
Dim i As Double On Error GoTo attenzione Dim dir As String dir = "c:\" & Text1.Text Open dir For Output As 1 CommonDialog1.FileName = dir For i = 1 To Text2.Text Write #1, "Y3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPgdgPY3WPfgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3gdgPY3fgdgfgdgPY3fgdgPY3" ProgressBar1.Value = ProgressBar1.Value + (150 / Text2.Text) Next MsgBox "File stato creato con successo nella directory c:\" & Text1.Text, vbInformation, "genera file 1.0" Close 1 Exit Sub attenzione: MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo alta possono ferifixcarsi problemi", vbInformation, "Genera file 1.0"
|
Prova questo e dimmi se va
|
|
meno93 (Normal User)
Rookie
Messaggi: 33
Iscritto: 08/01/2008
|
hai risolto solo uno dei problemi......cioe che appena finito la creazione nn mi da piu il messaggio di errore..ma non capisco ancora perche nn me ne fa creare nessun altro..infatti finito di crearne uno se passo alla creazione di un altro e premo il pulsante mi da il messaggio di attenzione e nn prosegue alla creazione del file
|
|
meno93 (Normal User)
Rookie
Messaggi: 33
Iscritto: 08/01/2008
|
ho risolto il problema mettendo dopo il ciclo for:
Codice sorgente - presumibilmente Plain Text |
|
|
Roberto VB (Member)
Expert
Messaggi: 419
Iscritto: 29/01/2007
|
di nulla
|
|
meno93 (Normal User)
Rookie
Messaggi: 33
Iscritto: 08/01/2008
|
Adesso di problema ne insorto un altro!!!!!se il programma lo eseguo da Visual basic tt ok..ma se lo compilo in exe e lo avvio quando finisce di creare il file nn mi dice piu il file stato creato con successo ma mi da il messaggio Attenzione..come devo fare?? ti lascio il codice aggiornato:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command1_Click() Dim i As Double On Error GoTo attenzione Dim dir As String dir = "c:\" & Text1.Text Open dir For Output As 1 CommonDialog1.FileName = dir For i = 1 To Text2.Text Write #1, "Y3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPgdgPY3WPfgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3WPfgdgPY3fgdgPY3WPfgdgPY3gdgPY3fgdgfgdgPY3fgdgPY3" ProgressBar1.Value = ProgressBar1.Value + (150 / Text2.Text) Next ProgressBar1.Value = 0 MsgBox "File stato creato con successo nella directory c:\" & Text1.Text, vbInformation, "genera file 1.0" Close 1 Exit Sub attenzione: MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo elevata possono ferificarsi problemi", vbInformation, "Genera file 1.0" End Sub
|
AIUTO!!
|
|
Roberto VB (Member)
Expert
Messaggi: 419
Iscritto: 29/01/2007
|
Postato originariamente da
attenzione:
MsgBox "controllare i dati immessi nelle due caselle di testo!!se la grandezza del file e troppo elevata possono ferificarsi problemi", vbInformation, "Genera file 1.0"
End Sub
|
Sostituisci quello che ho citato e inserisci questo codice:
attenzione:
MsgBox err.Description
Quindi riavvia il programma e quando ti da l'errore postalo, cos posso capire di che si tratta |
|
meno93 (Normal User)
Rookie
Messaggi: 33
Iscritto: 08/01/2008
|
ho notato che il problema avviene solo se il programma e nella cartella dove e stato salvato il progetto infatti ho copiato l'exe e il file manifest e adesso va tt ok grazie per il messaggio di prima ho imparato una nuova cosa!!!
|
|
Roberto VB (Member)
Expert
Messaggi: 419
Iscritto: 29/01/2007
|
Perfetto!
|
|