Forum - Visual Basic 6 - Salvare impostazioni Forms in un file .ini
Pagine: [ 1 2 ]
M@d_Hacker Messaggi: 254Iscritto: 25/02/2008
Dovo salvare le impostazioni delle Forms in un file .ini...
Codice sorgente - presumibilmente Delphi
Open "C: \config. ini " For Append As #1
Write #1 , 'Impostazioni Form??
Close #1
End sub
Ultima modifica effettuata da M@d_Hacker il 19/03/2008 alle 19:26
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
Esempio:
Codice sorgente - presumibilmente Visual Basic 6
Open app.path & "\Impostaziiooni.ini" for output as #1
print #1, "Altezza form: " & Form1.Height & vbcrlf & "Larghezza form: " & Form1.Width
close #1
M@d_Hacker Messaggi: 254Iscritto: 25/02/2008
si intendo questo...
write nn quella print ...
Ultima modifica effettuata da M@d_Hacker il 19/03/2008 alle 19:52
GrG Member )Messaggi: 3430Iscritto: 21/08/2007
Ecco, così dovrebbe andare ma cerca di capire come ho applicato questo ciclo...anke tu lo avresti potuto fare benissimo, perchè è molto semplice.
Codice sorgente - presumibilmente VB.NET
Dim X As Integer
Private Sub Command1_Click( )
Open App.Path & "\Impostazioni.ini" For Output As #1
For X = 1 To 4 '4 è il numero delle form
Print #1 , "Altezza form: " & Form & X & Height & vbCrLf & "Larghezza form: " & Form & X & Width & vbCrLf
Next X
Close #1
End Sub
P.s. la funzione write #1 non la conosco
ke differenza c'è?
antometal Member )Messaggi: 691Iscritto: 12/09/2007
io uso questo
Codice sorgente - presumibilmente VB.NET
Public inipath, dectext As String
Option Explicit
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
( ByVal lpApplicationname As String , _
ByVal lpKeyName As Any , _
ByVal lpDefault As String , _
ByVal lpReturnedString As String , _
ByVal nSize As Long , _
ByVal lpFileName As String ) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
( ByVal lpApplicationname As String , _
ByVal lpKeyName As Any , _
ByVal lpString As Any , _
ByVal lpFileName As String ) As Long
Public Const MaxBuf As Integer = 32767
Public Function LeggiIni( ByVal nomeFileIni As String , nomeSezione As String , nomeChiave As String ) As String
Dim default As String , nomeValore As String
Dim ret As Long
ContrNomeFile nomeFileIni
default = Chr$ ( 0)
nomeValore = String $( MaxBuf, 0)
ret = GetPrivateProfileString( nomeSezione, nomeChiave, default , nomeValore, MaxBuf, nomeFileIni)
If ret <> 0 Then
LeggiIni = Left ( nomeValore, ret)
Else
LeggiIni = ""
End If
End Function
Public Sub ScriviIni( ByVal nomeFileIni As String , nomeSezione As String , nomeChiave As String , tempStringa As String )
Dim ret As Long , nomeStringa As String
If tempStringa <> "" Then nomeStringa = tempStringa
ContrNomeFile nomeFileIni
ret = WritePrivateProfileString( nomeSezione, nomeChiave, nomeStringa, nomeFileIni)
End Sub
Public Sub ContrNomeFile( nomeIni As String )
If InStr ( nomeIni, "." ) = 0 Then nomeIni = nomeIni & ".ini"
If InStr ( nomeIni, "\" ) = 0 Then nomeIni = App.Path & "\" & nomeIni
End Sub
M@d_Hacker Messaggi: 254Iscritto: 25/02/2008
@antometal
Formprinc = -5, 341, 519, 773, C, 22, 29, 546, 459, C
Form1 = 48, 127, 572, 557, C, 77, 62, 601, 492, C
Form2 = 88, 211, 612, 641, C, 94, 72, 618, 502, C
Form3 = 0, 0, 524, 430, C, 40, 167, 564, 597, C
Form4 = 110, 145, 634, 575, C, 88, 116, 612, 546, C
E' così?!?
Edit: NN è così, questo me lo fa quando chiudo un qualsiasi progetto vb6...
Ultima modifica effettuata da M@d_Hacker il 20/03/2008 alle 15:01
lupus63 Messaggi: 2Iscritto: 16/03/2008
Se un File lo si apre in modalita' Open qualsiasi variabile scritta sara' interpretata come una stringa di testo in alternativa si dovrebbe aprire un fie in Modalita' Binaria "Binary" ( Sia per Scrivere che per Leggere)
M@d_Hacker Messaggi: 254Iscritto: 25/02/2008
Ho risolto in altro modo...
Overflow Messaggi: 334Iscritto: 11/01/2008
Postato originariamente da GrG :
Codice sorgente - presumibilmente VB.NET
Dim X As Integer
Private Sub Command1_Click( )
Open App.Path & "\Impostazioni.ini" For Output As #1
For X = 1 To 4 '4 è il numero delle form
Print #1 , "Altezza form: " & Form & X & Height & vbCrLf & "Larghezza form: " & Form & X & Width & vbCrLf
Next X
Close #1
End Sub
che cosa è questo codice??? questa sintassi: Print #1, "Altezza form: " & Form & X & Height & vbCrLf & "Larghezza form: " & Form & X & Width & vbCrLf
è un nuovo linguaggio...???
queste cose non esistono, chiamare il nome di un oggetto concatenando due variabili... bhaaa
Ultima modifica effettuata da Overflow il 28/03/2008 alle 18:43
| 
