fichier ini

salut a tous en fait je charge une application quelconque a partir de ma propre application(avec la fonction call shell execute)en vb6,et je voudrais savoir si on pourrait modifier les controles existantes sur les forms de l'application chargeé.(rendre des boutons invisibles,changer la couleur des controles,etc...)a l'aide des fichier ini.?? est ce que c'est posible tout d'abord ,et comment le faire. si quelqu'un a une ideé SVP une petite ça sera genial mérçi pour votre aide.

Tu peux parfaitement faire ces actions avec les fichiers INI.
Il suffira de reccourir à une condition. Par exemple:
'
if LireINI("occurenceBouton", "1" ) = 1 then
bouton.visible = true
else
bouton.visible = false
end if
'
Evidement il faut utiliser les actions sur le fichier INI.
Il y a beaucoup d'exemples sur VBFrance.

Gmni
-----------------

salut voulez vous dire que sur un projets vb6 avec ses formes avec l'extension .frm on peut acceder aux formes et les modifier mais à conditions de les rendre fichier .ini.????

j'ai pas bien compris le petit code que vous aves mis,a quoi ça sert??

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+
-----------------

Salut,

Si je comprend bien, tu veux modifier l'aspect d'une application (dont tu n'as pas les sources) à partir de la tienne ?

Si c'est ça, cherche avec l'api sendmessage, plein d'exemples sur le site.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

SALUT oui,je veux modifier l'aspet d'une application a partir de la mienne,mais pas forçément des application sans codes sources,juste je veux les modifier. et quoi ça sert ce send message?? merçi beaucoup