Bonjour à tous,
j'ai créé un activex que j'introduis dans une page html dans laquelle je modifie les propriété par procédure vbscript coté client.
dans la page html il ya
sub submit_onclick
UserControl1.le_prog_iso=document.form1.fichier_xml.value
//alert document.form1.fichier_xml.value
end sub
<form name="form1" >
<p>
<input name="fichier_xml" type="file" class="texteboite" id="fichier_xml" size="30" />
</p>
<p>envoyer
<input type="submit" name="Submit" value="Submit" />
</p>
</form>
et bien sur l'appel de l'activex X
l'active x se charge bien, je sélectionne un fichier avec le input name, je l'envoi, je vois le texte s'écrire dans l'activex, puis celui-ci revenir à son état initial.
Ou est mon erreur ?
un bout de l'active x
Public Property Get le_prog_iso() As String
le_prog_iso = le_prog.Text
End Property
Public Property Let le_prog_iso(programme As String)
'le_prog.Text = programme
le_prog.Text = lecture_fichier(programme)
PropertyChanged "le_prog_iso"
End Property
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
RaiseEvent WriteProperties(PropBag)
Call PropBag.WriteProperty("le_prog_iso", le_prog.Text, "rien")
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
RaiseEvent ReadProperties(PropBag)
le_prog.Text = PropBag.ReadProperty("le_prog_iso", "rien")
End Sub
cordialement à tous,
Phoebus