Newsgroup: it.comp.appl.access
Titolo: Gestire proprietà timer da file ini

Salve,
supponendo di voler gestire la proprietà timer di una form da file ini
esterno,
come potrei procedere secondo la Vs. esperienza?
Vorrei gestirlo dall'esterno perchè il dbase sarà convertito in mde e a
seconda
delle installazioni potrei avere la necessità di variare il tempo di
aggiornamento.
Thanx in advance!!!
--
strano...mavero

 ha scritto nel messaggio 
news:4268a...@x-privat.org...

Ciao,
se parli di file ini e di sistema operativo windows una soluzione potrebbe 
essere quella di  ricorrere alle Api...
Fra i vari siti, trovi la descrizione delle funzioni da utilizzare 
(corredate da esempi) ai seguenti...
 -) 
http://members.xoom.virgilio.it/CesareRizzi/
 - made in Italy
-) 
http://www.mentalis.org/index2.shtml
buon lavoro ;-)
Gaspare 

 wrote in message
news:4268a...@x-privat.org

E' estremamente semplice, sul mio sito trovi una Classe
per la gestione del file INI(è un pò complessa perchè consente
anche l'Enum di tutte le KEY ed altri Gadget, ma è ottima).
Scrivi nel File.INI la Key e SubKey=Valore quindi su Open
della Form leggi la SubKey relativa alla Key ed imposti
la proprietà TimerInterval.
Non sò come vuoi impostare il file INI, ma un'idea potrebbe essere
TIMERINTERVAL   'KEY
[NomeForm]=1000 'SubKey+Valore
In questo modo passi alla Funzione di recupero dato il Nome
della Proprietà come KEY ed il NomeForm come SUbKey.
Ti passo in ogni caso le API necessarie e 2 Sub di DEMO:
Private 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
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias
"GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal
lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String)
As Long
Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias
"WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString
As String, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias
"GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal
lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As
String) As Long
Private Sub Form_Load()
'Sample for reading a numbers directly on the INI file
    'Write a number 55 on the sample.ini to be read
    WritePrivateProfileString "Sample", "Sample", "55", App.Path &
"\sample.ini"
    'Then, read the stored number
    'No need to convert the value returned
    MsgBox GetPrivateProfileInt("Sample", "Sample", 0, App.Path &
"\sample.ini")
End Sub
Private Sub Form_Load()
    ' We will create a new section in the INI-file
    ' It's output will be:
    '
    ' [SectionName]
    ' Key=Value
    '
    ' Note that used this ONLY if you are creating a new
    ' section on the INI file, unless you wanted to erase
    ' its existing keys.
    Call WritePrivateProfileSection("SectionName", "Key=Value", App.Path
& "\sample.ini")
    Dim szBuf As String * 255
    Call GetPrivateProfileSection("SectionName", szBuf, 255, App.Path &
"\sample.ini")
    MsgBox szBuf
End Sub
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

[cut]
Chiedo venia, ma non capisco.
supponiamo che voglia definire il tempo aggiornamento della mia form sulla
base di quanto scritto nel file config.ini
TempoAggiornamento = 300000
Sulla base di quanto mi hai gentilmente postato ... cosa dovrei quindi
scrivere nellevento open della mia form?
--
thanx ;o)

[CUT]
RISOLTO!
Ho trovato un altro metodo, finisco di implementarlo e posto i codici per
pubblico dominio!
--
strano...mavero