Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18680

Re: [VB6] errore di runtime 5 solo su win XP

Show all headers | View raw

Il 04/02/2016 15:23, GbC ha scritto:
> Il 04/02/2016 14:57, carmelo ha scritto:
>> Private Type OPENFILENAME
>>      lStructSize As Long
>>      hwndOwner As Long
>>      hInstance As Long
>>      lpstrFilter As String
>>      lpstrCustomFilter As String
>>      nMaxCustFilter As Long
>>      nFilterIndex As Long
>>      lpstrFile As String
>>      nMaxFile As Long
>>      lpstrFileTitle As String
>>      nMaxFileTitle As Long
>>      lpstrInitialDir As String
>>      lpstrTitle As String
>>      flags As Long
>>      nFileOffset As Integer
>>      nFileExtension As Integer
>>      lpstrDefExt As String
>>      lCustData As Long
>>      lpfnHook As Long
>>      lpTemplateName As String
>> End Type
>> Private OFName As OPENFILENAME
>>
>> Dim FilePath As String
>> FilePath = Left$(OFName.lpstrFile, OFName.nFileOffset - 1)
>>
>> Mi sapreste dire perchè la riga sopra, su Win XP mi da errore di runtime
>> 5: chiamata di routine o argomento non valido.
>>
>> Mentre su Vista, Seven e win 8 funziona regolarmente.
>>
>> Carmelo
>
>
> A) Metti un breakpoint prima dell'istruzione incriminata e controlli il
> contenuto delle due stringhe.
>
> debug.print "lpstrFile|" & OFName.lpstrFile & "|"
> debug.print "nFileOffset|" & OFName.nFileOffset & "|"
> stop
> ' riga esistente
> FilePath = Left$(OFName.lpstrFile, OFName.nFileOffset - 1)
>
> B) In alternativa aggiungi una messagebox che mostri il contenuto delle
> due stringhe, magari controllando con un parametro nella command-line se
> vuoi visualizzare i messaggi o no. Può anche essere utile in altri casi.
>
> Setti una variabile globale booleana in un modulo .bas
>
> global myDebugMODE as boolean
>
> nel form di avvio (o quel che è) controlli se è stato attivato il debug,
> che si attiverà indicando come parametro nella commandline la parola -debug
>
> if instr(1,command,"-debug",1) > 0 then myDebugMODE = true
>
> (lo so che si può fare meglio ma per ora va bene lo stesso)
>
> prima di eseguire la linea incriminata metti un
>
> if myDebugMODE = True then
>      MsgBox "lpstrFile|" & OFName.lpstrFile & "|" & vbnewline & _
>             "nFileOffset|" & OFName.nFileOffset & "|" , _
>          vbinformation, _
>          "myDebugMODE: FilePath"
>
> end if
>
> ' riga esistente
> FilePath = Left$(OFName.lpstrFile, OFName.nFileOffset - 1)
>
>
> Così cosa è che genere quell'errore.
>
Ho provato cosi:
Dim FilePath As String, iPos as Integer
iPos = (OFName.nFileOffset - 1) ==== > questa riga da errore
FilePath = Left$(OFName.lpstrFile, iPos)

L'errore lo genera OFName.nFileOffset
solo in win XP perchè?

Carmelo

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

[VB6] errore di runtime 5 solo su win XP carmelo <carmelo.giu@alice.it> - 2016-02-04 14:57 +0100
  Re: [VB6] errore di runtime 5 solo su win XP GbC <info@gbcdepot.com> - 2016-02-04 15:23 +0100
    Re: [VB6] errore di runtime 5 solo su win XP carmelo <carmelo.giu@alice.it> - 2016-02-04 17:49 +0100
      Re: [VB6] errore di runtime 5 solo su win XP Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2016-02-04 18:04 +0100
      Re: [VB6] errore di runtime 5 solo su win XP Luca D <antaniserse@yahoo.it> - 2016-02-04 10:16 -0800
      Re: [VB6] errore di runtime 5 solo su win XP "salclem2" <salclem2@yahoo.it> - 2016-02-04 19:38 +0100
        Re: [VB6] errore di runtime 5 solo su win XP "salclem2" <salclem2@yahoo.it> - 2016-02-04 19:39 +0100
      Re: [VB6] errore di runtime 5 solo su win XP GbC <info@gbcdepot.com> - 2016-02-05 11:05 +0100
        Re: [VB6] errore di runtime 5 solo su win XP carmelo <carmelo.giu@alice.it> - 2016-02-05 14:28 +0100
          Re: [VB6] errore di runtime 5 solo su win XP GbC <info@gbcdepot.com> - 2016-02-05 15:24 +0100
  Re: [VB6] errore di runtime 5 solo su win XP Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2016-02-04 18:07 +0100

csiph-web