Désolé , je commence a comprendre...
En fait sur la form a changer il faudrai placer un timer qui verifie les conditions
toutes les secondes par exemple. Le fichier INI doit avoir le meme
nom /emplacement que la form maitresse.
Apres sur la form maitresse tu peux appliquer les modifications quand tu veux en
appelant le fichier INI.
Exemple :
Tu crée un nouveau module pour le fichier INI que tu mettra sur les deux form:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Dim fichier
fichier = App.Path & "\data.ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), fichier))
End Function
'
Public Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
Dim fichier
Dim WriteINI
fichier = App.Path & "\data.ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, fichier)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''
sur la form qui va commander l'autre tu crée un bouton:
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
Dim a As String
a = EcrireINI("actions", "bouton", "0")
a = EcrireINI("actions", "label", "0")
a = EcrireINI("actions", "form", "0")
End Sub
'pour initialiser
Private Sub Form_Load()
Dim a As String
a = EcrireINI("actions", "bouton", "1")
a = EcrireINI("actions", "label", "1")
a = EcrireINI("actions", "form", "1")
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
Sur la form a changer tu crée un label, un bouton, et un timer:
'''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
'
Private Sub Timer1_Timer()
If LireINI("actions", "bouton") = 1 Then
Command1.Visible = True
Else
Command1.Visible = False
End If
'
If LireINI("actions", "label") = 1 Then
Label1.BackColor = &H8000000F
Else
Label1.BackColor = &HFF&
End If
'
If LireINI("actions", "form") = 1 Then
Me.Caption = "test"
Else
Me.Caption = "test reussit"
End If
'
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''
Tu n'a plus qu'a lancer les deux form,
Voila,
a+
-----------------
|