Dans le petit programme suivant je souhaite figer la=20
valeur que je viens de calculer dans=20
l'objet "Text"....Autrement dit je souhaite que personne=20
ne puisse la modifier, ce qui n'est pas le cas pour le=20
moment !
Private Sub Command1_Click()
Dim lNb1 As Long, lNb2 As Long
Dim lTot As Long
lNb1 =3D Val(Text1.Text)
lNb2 =3D Val(Text2.Text)
lTot =3D lNb1 * lNb2
Text3.Text =3D lTot
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Tof a écrit :
Bonsoir ou bonjour ! !
Dans le petit programme suivant je souhaite figer la valeur que je viens de calculer dans l'objet "Text"....Autrement dit je souhaite que personne ne puisse la modifier, ce qui n'est pas le cas pour le moment !
Private Sub Command1_Click() Dim lNb1 As Long, lNb2 As Long Dim lTot As Long lNb1 = Val(Text1.Text) lNb2 = Val(Text2.Text) lTot = lNb1 * lNb2 Text3.Text = lTot End Sub
Merci à vous !
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Tof <moreauchris@wanadoo.fr> a écrit :
Bonsoir ou bonjour ! !
Dans le petit programme suivant je souhaite figer la
valeur que je viens de calculer dans
l'objet "Text"....Autrement dit je souhaite que personne
ne puisse la modifier, ce qui n'est pas le cas pour le
moment !
Private Sub Command1_Click()
Dim lNb1 As Long, lNb2 As Long
Dim lTot As Long
lNb1 = Val(Text1.Text)
lNb2 = Val(Text2.Text)
lTot = lNb1 * lNb2
Text3.Text = lTot
End Sub
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Tof a écrit :
Bonsoir ou bonjour ! !
Dans le petit programme suivant je souhaite figer la valeur que je viens de calculer dans l'objet "Text"....Autrement dit je souhaite que personne ne puisse la modifier, ce qui n'est pas le cas pour le moment !
Private Sub Command1_Click() Dim lNb1 As Long, lNb2 As Long Dim lTot As Long lNb1 = Val(Text1.Text) lNb2 = Val(Text2.Text) lTot = lNb1 * lNb2 Text3.Text = lTot End Sub
Merci à vous !
Patrice Henrio
Pourquoi ne pas utiliser un label dans ce cas ?
"ng" a écrit dans le message de news:
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Tof a écrit :
> Bonsoir ou bonjour ! ! > > Dans le petit programme suivant je souhaite figer la > valeur que je viens de calculer dans > l'objet "Text"....Autrement dit je souhaite que personne > ne puisse la modifier, ce qui n'est pas le cas pour le > moment ! > > Private Sub Command1_Click() > Dim lNb1 As Long, lNb2 As Long > Dim lTot As Long > lNb1 = Val(Text1.Text) > lNb2 = Val(Text2.Text) > lTot = lNb1 * lNb2 > Text3.Text = lTot > End Sub > > Merci à vous !
Pourquoi ne pas utiliser un label dans ce cas ?
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:OPJRLC0eEHA.3928@TK2MSFTNGP11.phx.gbl...
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Tof <moreauchris@wanadoo.fr> a écrit :
> Bonsoir ou bonjour ! !
>
> Dans le petit programme suivant je souhaite figer la
> valeur que je viens de calculer dans
> l'objet "Text"....Autrement dit je souhaite que personne
> ne puisse la modifier, ce qui n'est pas le cas pour le
> moment !
>
> Private Sub Command1_Click()
> Dim lNb1 As Long, lNb2 As Long
> Dim lTot As Long
> lNb1 = Val(Text1.Text)
> lNb2 = Val(Text2.Text)
> lTot = lNb1 * lNb2
> Text3.Text = lTot
> End Sub
>
> Merci à vous !
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Tof a écrit :
> Bonsoir ou bonjour ! ! > > Dans le petit programme suivant je souhaite figer la > valeur que je viens de calculer dans > l'objet "Text"....Autrement dit je souhaite que personne > ne puisse la modifier, ce qui n'est pas le cas pour le > moment ! > > Private Sub Command1_Click() > Dim lNb1 As Long, lNb2 As Long > Dim lTot As Long > lNb1 = Val(Text1.Text) > lNb2 = Val(Text2.Text) > lTot = lNb1 * lNb2 > Text3.Text = lTot > End Sub > > Merci à vous !
ng
Parce qu'il veut peut être figer son textbox qu'a un moment précis puis le défiger après ? Peut être aussi parce que le textbox permet le sélectionné/copié...
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Patrice Henrio a écrit :
Pourquoi ne pas utiliser un label dans ce cas ?
"ng" a écrit dans le message de news:
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Tof a écrit :
Bonsoir ou bonjour ! !
Dans le petit programme suivant je souhaite figer la valeur que je viens de calculer dans l'objet "Text"....Autrement dit je souhaite que personne ne puisse la modifier, ce qui n'est pas le cas pour le moment !
Private Sub Command1_Click() Dim lNb1 As Long, lNb2 As Long Dim lTot As Long lNb1 = Val(Text1.Text) lNb2 = Val(Text2.Text) lTot = lNb1 * lNb2 Text3.Text = lTot End Sub
Merci à vous !
Parce qu'il veut peut être figer son textbox qu'a un moment précis puis le
défiger après ?
Peut être aussi parce que le textbox permet le sélectionné/copié...
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Patrice Henrio <patrice.henrio.pasdepub@laposte.net> a écrit :
Pourquoi ne pas utiliser un label dans ce cas ?
"ng" <ng@ngsoft-fr.com> a écrit dans le message de
news:OPJRLC0eEHA.3928@TK2MSFTNGP11.phx.gbl...
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Tof <moreauchris@wanadoo.fr> a écrit :
Bonsoir ou bonjour ! !
Dans le petit programme suivant je souhaite figer la
valeur que je viens de calculer dans
l'objet "Text"....Autrement dit je souhaite que personne
ne puisse la modifier, ce qui n'est pas le cas pour le
moment !
Private Sub Command1_Click()
Dim lNb1 As Long, lNb2 As Long
Dim lTot As Long
lNb1 = Val(Text1.Text)
lNb2 = Val(Text2.Text)
lTot = lNb1 * lNb2
Text3.Text = lTot
End Sub
Parce qu'il veut peut être figer son textbox qu'a un moment précis puis le défiger après ? Peut être aussi parce que le textbox permet le sélectionné/copié...
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Patrice Henrio a écrit :
Pourquoi ne pas utiliser un label dans ce cas ?
"ng" a écrit dans le message de news:
Salut,
Regarde du coté de la propriété Property :
MonControle.Locked = True
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Tof a écrit :
Bonsoir ou bonjour ! !
Dans le petit programme suivant je souhaite figer la valeur que je viens de calculer dans l'objet "Text"....Autrement dit je souhaite que personne ne puisse la modifier, ce qui n'est pas le cas pour le moment !
Private Sub Command1_Click() Dim lNb1 As Long, lNb2 As Long Dim lTot As Long lNb1 = Val(Text1.Text) lNb2 = Val(Text2.Text) lTot = lNb1 * lNb2 Text3.Text = lTot End Sub
