textbox et une fonction!

Question

Developpeur_Fou

salut a tous

voila une fonction qui s'applique a plusieure Form, que j ai mi ds un module:

Public Sub calcul()

If nbr_jour =  "" Then
nbr_jour = InputBox("Entrez le nombre de jour", "Nombre de jour")
End If

End Sub

 nb_jour est une Textbox. 

Le controle se fait bien, mais la valeur n'est pas renvoyé.
Pour que sa marche, il faut que je mette par exemple 
Form1.nb_jour
Chose que je veux pas car cela limite ma fonction.

Je voudrais savoir si il est possible de faire ca:

Dim var as .....

'var étant le nom d'une Form'

var.nbr_jour  = ................

merci de votre aide

cs_DARKSIDIOUS · Answer

Dim var as Object

'var étant le nom d'une Form'

Set var = Me
var.nbr_jour = ................
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

Renfield · Answer

On pourrait imaginer :


Public Sub Calcul( Obj as Object )
If lenb(Obj.text) = 0 Thenlenb(Obj.text) 0 InputBox("Entrez le nombre de jour", "Nombre de jour")
End If
End Sub


et dans tes Forms :


Calcul nbr_jour


Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

jrivet · Answer

Salut,

en reprenant l idee de Renfield, tu peux directement passer ton textbox en parametre...

Public Sub calcul(nbr_jour as TextBox)
If nbr_jour = "" Then
nbr_jour = InputBox("Entrez le nombre de jour", "Nombre de jour")
End If

End Sub


@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

cgarbite · Answer

Developpeur_Fou

Merci. 

Je vais tester tous ca et je vous tient au courant

cgarbite · Answer

Developpeur_Fou

Nikelllllllllllllllllllllllllllllllllll

J'ai tous testé sauf sa ............ 	 :( 

Merci à vous 3 !!

 :question) Par contre  Renfield, peut tu me dire a quoi correspond  ' lenb' ??
Curiosité oblige  	 :) 

moi

Renfield · Answer

Renvoie la taille en bits... plus rapide, parait-il que len (qui lui divise par 2 la longueur du fait de l'Unicode interne a VB)

suffisant pour un test <> 0

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

Textbox et une fonction!

6 réponses

Discussions similaires