comparer 2 valeurs

Question

hello malgr&#233; la pr&#233;paration du r&#233;veillon j'esp&#232;re que quelqu'un pourra m'aider 


je m'explique (d&#233;j&#224; cela concerne VB6) :


1) j'ai une image (picture) dans une form1 dont j'active la propri&#233;t&#233; "enabled" &#224; "false"
ainsi quand j'execute le programme je n'ai pas acc&#232;s a cette image!
ce que je voudrais c'est lorsque j'appuie sur un command button d'une form2, permettre l'acc&#233;s a cette image (car elle contient des text box a remplir ... mais que quand je lui autorise l'acc&#232;s ..) voil&#224; !!!
j'espere que c'est assez clair!

2) ce que je veux faire c'est comparer 2 valeurs entre 2 textbox et conserver la valeur la plus importante pour l'&#233;crire dans un fichier .txt

bonne soir&#233;e et faite bien la grosse bourre !!!!!!

darthpolor_I · Answer

salut ,

alors pour l'image c'est pas bien compliqu&#233; : 
dans ta sub du bouton :

Private Sub Command1_Click(...)
   image1.enabled = true;
Endsub

et pour les textbox:

dim StrResult as String
If Textbox1.Text<TextBox2.Text Then
   StrResult = TextBox2.Text
Else
   StrResult = TextBox1.Text
End If

J'espere avoir repondu a ta question.

Darthpolor
--------------
www.ndioumsante.org

jpleroisse · Answer

Bonsoir,

Si ton Image est sur la Form1 et ton CommandButton sur la Form2.



Private Sub Command1_Click()

Form1.Image1.Enabled = True

End Sub



jpleroisse

jpleroisse · Answer

Re,

Pour comparer tes valeurs.



Private Sub Command1_Click()

Dim MaValeur As String

If Val(Text1.Text) < Val(Text2.Text) Then

MaValeur = Text2.Text

Else

MaValeur = Text1.Text

End If

Text3.Text = MaValeur



End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Comparer 2 valeurs

3 réponses

Discussions similaires