Bonjour à tous

 

J'ai un formulaire, sur mon formulaire il y a un textbox.

Avec une valeur quelconque.

Ensuite avec l'aide d'un bouton j'appelle un module :

« Call module.traitement () »

Dans ce module je place une variable qui doit normalement

Prendre la valeur de mon textbox.

« Dim i AsShort »

« i = frmform1.textbox1.Text »

Mais en faite la valeur est toujours nulle.

Pourquoi ?

Avec VB6 je n'avais pas ce problème.

Merci d'avance.

salut,

ci j?ai bien compris tu veux caharger ta variable short avec le contenu de ta textbox?
donc la valeur de ta text box ce sont des numero?
pour passer la valeur sur la variable tu dois transformer le text em short

i=CType(Me.txtbox1.Text.Trim, Short)

mais avant cela tu dois verifier que ta textbox ne sois pas =""
e q se soit des numero.

NDB

Merci pour la réponse
Mais malheureusement la valeur de ma variable reste toujours à 0

je sais pas quoi t dire alors..
j?ai essayé ici et ça marche..

bonne chance..


[8D]

J'ai trouver un bug
lorsque j'arrive sur la ligne d'affectation de la variable dans mon module
i=CType(frmform1.txtbox1.Text.Trim, Short)
le programme sort du module et continu par le code qui ce trouve sur mon form1
SANS me donnée un message d'erreur !!!
Mais bon je vais surement trouver  la solution lundi.
Merci

il sort parce q il trouve une erreur..
essaye de voir l erreur

try

i=CType(frmform1.txtbox1.Text.Trim, Short)


Catch

ex As ApplicationException

MsgBox(ex.Message, MsgBoxStyle.OKOnly

)

EndTry

[8D]

En faite lorsque j'écris la ligne de code suivante :

i =CType(me.txtbox1.Text.Trim, Short)

 dans le form1 ou ce trouve le textBox dont j'aimerais récupérer la valeur

pas de problème ça marche.

Mais dès que j'écris  cette ligne

i =CType(frmform1.txtbox1.Text.Trim, Short)

dans un autre formulaire ou dans un module cela ne marche pas.
Message d'erreur:

L'exception System.InvalidCastException n'a pas été gérée

  Message="La conversion de la chaîne "" en type 'Short' n'est pas valide."

Essayer de envoyer la valeur de textbox au module (ne pas l’appeler dans le module). Donc dans ton formule t’écrire (je c pas) nommodule.tonvariable = textbox..text