[VB6] Lunghezza del record non valida

[error 404]

Questo è il codice:

Private Sub cmdAvanti_Click()
            
            DimensioneRecord = Len(Personaggio)
            Open "C:\VB6\gioco\prsg\personaggio.dat" For Random As #1 Len = DimensioneRecord
                
                Personaggio.nome = nome
                Personaggio.casata = casata
                Personaggio.sesso = sesso
                Personaggio.razza = razza
                Personaggio.forza = lblForzaTot.Caption
                Personaggio.destrezza = lblDestrezzaTot.Caption
                Personaggio.difesa = lblDifesaTot.Caption
                Personaggio.resistenza = lblResistenzaTot.Caption
                Personaggio.magia = lblMagiaTot.Caption
                Personaggio.difesaMagica = lblDifesaMagicaTot.Caption
                
                Put #1, 1, Personaggio
                
            Close #1
End Sub

mi segna la riga: "Put #1, 1, Personaggio".

Non riesco a trovare il problema... ma sono pronto a scometterci che è più semplice di quanto credo...

Spero possiate aiutarmi. Grazie ciao.

[MarcoGG]

Un gioco di ruolo in VB6 ?
Il problema è che forse non hai dato una dimensione fissa ai campi stringa nel tuo Type :

Private Type Personaggio
    id As Long
    nome As String * 20
    casata As String * 20
    sesso As String * 10
    '... altri attributi ...
End Type

Questo nel caso "Personaggi.dat" sia una collezione di personaggi... :

'questa è roba mia...
Dim percorso As String
percorso = App.Path & "\"
Dim nomeFile As String
nomeFile = "Personaggi.dat"

Dim mioPsg As Personaggio
Dim numRec As Long
Open percorso & nomeFile For Random As #1 Len = Len(mioPsg)
For numRec = 1 To 3 'Inserisco 3 personaggi
    mioPsg.id = numRec
    mioPsg.nome = "NomePsg_" & numRec
    mioPsg.casata = "Casata_" & numRec
    mioPsg.sesso = "Femmena"
    '... altri attributi ...
    Put #1, numRec, mioPsg
Next numRec
Close #1

Se Personaggi.dat è invece un personaggio per file, ometti l'id che è superfluo.

[error 404]

Originariamente inviato da MarcoGG

Un gioco di ruolo in VB6 ?

Che brutta cosa vero?
No non è un GDR, è un giochino così fatto alla scazzona tanto per mettere in atto qualcosa di nuovo con VB e non andare a passo-professoressa.

Originariamente inviato da MarcoGG

Il problema è che forse non hai dato una dimensione fissa ai campi stringa nel tuo Type :

Private Type Personaggio
    id As Long
    nome As String * 20
    casata As String * 20
    sesso As String * 10
    '... altri attributi ...
End Type

Si, era proprio la mancanza della dimensione delle stringa a generare il problema, adesso è risolto. Grazie mille.

[error 404]

Già che ci sono: sapete mica dirmi se è possibile far si che quando il mouse passa sopra un oggetto (che sia una label, un bottone o altro) appaia come un'etichetta che spieghi cosa è ciò su cui è posizionato il cursore?

Grazie

[error 404]

Originariamente inviato da error 404

Già che ci sono: sapete mica dirmi se è possibile far si che quando il mouse passa sopra un oggetto (che sia una label, un bottone o altro) appaia come un'etichetta che spieghi cosa è ciò su cui è posizionato il cursore?

Grazie

Nessuno?

[MarcoGG]

E' il classico ToolTip, no ?

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Command3.ToolTipText = Command3.Name
   
End Sub