Raven87
05-05-2005, 19:24
Qualcuno capisce qualcosa di vb.net?
Se ci capite qualcosa mi spiegate perchè non mi funzia sto prog(domani ho compito su una cosa del gen) :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LunghezzaRec = Len(Album)
filenum = FreeFile()
FileOpen(FileNum, "c:\archivio\archivio.txt", OpenMode.Random, , , LunghezzaRec)
UltimoRec = LOF(FileNum) \ LunghezzaRec
Posizione = 1
Label7.Text = CStr(UltimoRec + 1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Album
.id = Val(Label7.Text)
.nome_album = TextBox1.Text
.artista = TextBox2.Text
.casa_discografica = TextBox3.Text
.anno = TextBox4.Text
.numero_brani = Val(TextBox5.Text)
.durata = TextBox6.Text
End With
FilePut(FileNum, Album, (UltimoRec + 1))
A sto punto si ferma il prog dicendomi che la lunghezza del record non è valida..
Da debug la lunghezza del record tipo short è 24
Ecco la dichiarazione del recod:
Structure cd
Public id As Short
<VBFixedArray(50)> Public nome_album As String
<VBFixedArray(50)> Public artista As String
<VBFixedArray(50)> Public casa_discografica As String
<VBFixedArray(50)> Public anno As String
Public numero_brani As Int16
<VBFixedArray(5)> Public durata As String
End Structure
Public Album As cd
Se ci capite qualcosa mi spiegate perchè non mi funzia sto prog(domani ho compito su una cosa del gen) :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LunghezzaRec = Len(Album)
filenum = FreeFile()
FileOpen(FileNum, "c:\archivio\archivio.txt", OpenMode.Random, , , LunghezzaRec)
UltimoRec = LOF(FileNum) \ LunghezzaRec
Posizione = 1
Label7.Text = CStr(UltimoRec + 1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With Album
.id = Val(Label7.Text)
.nome_album = TextBox1.Text
.artista = TextBox2.Text
.casa_discografica = TextBox3.Text
.anno = TextBox4.Text
.numero_brani = Val(TextBox5.Text)
.durata = TextBox6.Text
End With
FilePut(FileNum, Album, (UltimoRec + 1))
A sto punto si ferma il prog dicendomi che la lunghezza del record non è valida..
Da debug la lunghezza del record tipo short è 24
Ecco la dichiarazione del recod:
Structure cd
Public id As Short
<VBFixedArray(50)> Public nome_album As String
<VBFixedArray(50)> Public artista As String
<VBFixedArray(50)> Public casa_discografica As String
<VBFixedArray(50)> Public anno As String
Public numero_brani As Int16
<VBFixedArray(5)> Public durata As String
End Structure
Public Album As cd