Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Problema per aprire txt in vb.net: codice non uguale a vb6
Forum - C# / VB.NET - Problema per aprire txt in vb.net: codice non uguale a vb6

Avatar
salerno90 (Normal User)
Newbie


Messaggi: 20
Iscritto: 02/11/2011

Segnala al moderatore
Postato alle 18:31
Lunedì, 14/05/2012
Vi posto un progettino che ho convertito da vb6. Funziona così: ogni pulsante è collegato ad un file di testo txt che si aprirà nella casella di testa.

http://www.2shared.com/file/enVlITvy/Relazioni.html

Con vb6 tutto ok, ma ho delle difficoltà con visual basic 2008. Il problema sarà sicuramente una scemenza, potete aiutarmi per favore?

Ci ho messo un solo file txt per provare, quello che è collegato a GIOCO AEREO

GRAZIE

Ultima modifica effettuata da salerno90 il 14/05/2012 alle 18:34


Essere creativi significa soltanto saper combinare in modo unico le cose che già esistono [Steve Jobs]
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 15:25
Martedì, 15/05/2012
Ciao, devi usare la classe http://msdn.microsoft.com/it-it/library/6aetdk20 con i suoi relativi metodi

Ecco alcuni esempi:
http://msdn.microsoft.com/it-it/library/db5x7c0d(VS.80).aspx

;)


Il silenzio non è sempre tempo perso
PM Quote
Avatar
salerno90 (Normal User)
Newbie


Messaggi: 20
Iscritto: 02/11/2011

Segnala al moderatore
Postato alle 19:56
Martedì, 15/05/2012
grazie. cmq non sono molto pratico di vb.net, e la realizzazione di questo programma è di vitale importanza per me. siccome l'errore che sta nel codice è stupidissimo, ti chiedo troppo di portemelo aggiustare tu per favore? te ne sarei molto grato, ti prego :(


Essere creativi significa soltanto saper combinare in modo unico le cose che già esistono [Steve Jobs]
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 21:12
Mercoledì, 16/05/2012
Il forum viene usato appositamente per dare aiuto agli utenti che ne hanno bisogno. Risolvere il problema privatamente, o comunque all'oscuro del forum non è una buona cosa per le persone che in futuro potranno avere il tuo stesso problema. Posta quindi il codice qua...

;)


Il silenzio non è sempre tempo perso
PM Quote
Avatar
salerno90 (Normal User)
Newbie


Messaggi: 20
Iscritto: 02/11/2011

Segnala al moderatore
Postato alle 23:48
Mercoledì, 16/05/2012
i codici iniziano con questo: (importato nel vb.net, l'intera riga si fa rossa e da errore)

Codice sorgente - presumibilmente Delphi

  1. Private Const FileDaAprire1 = "Database/fisico.TXT"
  2. Private Const FileDaAprire2 = "Database/atletic.TXT"
  3. Private Const FileDaAprire4 = "Database/velocit.TXT"
  4. Private Const FileDaAprire5 = "Database/aereo.TXT"



e in ogni pulsante c'è questo ad esempio

Codice sorgente - presumibilmente VB.NET

  1. Private SubFisico_Click(Index As Integer)
  2. Dim BUFFER As String
  3.     Dim NRFILE As Integer
  4.     CasellaTesto.Text = ""
  5.     NRFILE = FreeFile
  6.     If Index = 0 Then
  7.         Open App.Path & "\" & FileDaAprire1 For Binary As NRFILE
  8.     Else
  9.         Open App.Path & "\" & FileDaAprire1 For Binary As NRFILE
  10.     End If
  11.        
  12.     If LOF(NRFILE) > 20000 Then MsgBox "Il file è più grande di 20KB. Si potrebbe verificare un errore", vbCritical
  13.     While Not EOF(NRFILE)
  14.         BUFFER = Space(2048)
  15.         Get NRFILE, , BUFFER
  16.         BUFFER = CasellaTesto.Text & BUFFER
  17.         CasellaTesto.Text = BUFFER
  18.     Wend
  19.     Close NRFILE
  20. End Sub



Essere creativi significa soltanto saper combinare in modo unico le cose che già esistono [Steve Jobs]
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 15:18
Giovedì, 17/05/2012
L'errore che ti restituisce quale sarebbe?


Il silenzio non è sempre tempo perso
PM Quote
Avatar
salerno90 (Normal User)
Newbie


Messaggi: 20
Iscritto: 02/11/2011

Segnala al moderatore
Postato alle 15:42
Giovedì, 17/05/2012
ogni riga di queste: Private Const FileDaAprire1 = "Database/fisico.TXT"

diventa di colore rosso, e il software non si apre.

posso inviarti il software tramite email e ci dai una controllata se non ti rompi? per favore. sono sicuro che l'errore sarà una scemenza, quindi non ti sottraggo molto tempo


Essere creativi significa soltanto saper combinare in modo unico le cose che già esistono [Steve Jobs]
PM Quote
Avatar
Dark_light (Member)
Pro


Messaggi: 108
Iscritto: 11/04/2012

Segnala al moderatore
Postato alle 19:47
Giovedì, 17/05/2012
Ho dato uno sguardo al progetto... Hai addirittura superato il limite di errori consentiti da Visual Studio...
Comunque, se ti è poco chiara o totalmente opaca la strada per leggere un txt e collegarlo ad una textbox allora significa che ti mancano le basi più elementari. Ti ho fornito anche la documentazione che presenta degli esempi semplicissimi...!
Inoltre anche una piccola ricerca su google poteva aiutarti a trovare il codice pronto.
Comunque...
Codice sorgente - presumibilmente Plain Text

  1. textbox1.text = My.Computer.FileSystem.ReadAllText("directoryfile")



;)


Il silenzio non è sempre tempo perso
PM Quote