Questo, in effetti, lo avevo capito, però questo programma è ancora molto indietro, perciò se io riuscissi a sistemarlo, forse potrei continuare con VB .NET...
Se mi potete dare un aiuto con questi codici, vi sarei grato...
codice:
'Questo è stato tradotto
Private Sub Load_Renamed(ByRef str_Renamed As String)
FileOpen(1, str_Renamed, OpenMode.Binary)
FileGet(1, Map)
FileClose(1)
End Sub
'Originale
Private Sub Load(str As String)
Open str For Binary As #1
Get #1, , Map
Close #1
End Sub
Poi c'è questo problema con il filesystemobject...
codice:
'Questo è stato tradotto
Dim sys As Object
sys = CreateObject("Scripting.filesystemobject")
Dim txt As Object
'UPGRADE_WARNING: Couldn't resolve default property of object sys.opentextfile. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
txt = sys.opentextfile(VB6.GetPath & "\Immagini\dat.lnd")
'Originale
Dim sys
Set sys = CreateObject("Scripting.filesystemobject")
Dim txt
Set txt = sys.opentextfile(App.Path & "\Immagini\dat.lnd")
L'ultima cosa che volevo chiedervi è questa: Come si fa a dichiarare un array nel VB .NET?
Infatti ogni volta che provo a far partire il programma mi da svariati errori, tutti sugli array (Infatti errori sul filesystemobject, ecc. non me ne da...)
Grazie ancora!