[vb6] petit problemeRésolu

Question

Voila mon probleme : quand je compile mon code avec cette partie, je recois l'erreur suivante : erreur 438 : l'objet ne gere pas cette propriete ou cette methode... Je ne sais pas ce que ca peut etre, si quelqu'ubn pouvait trouver mon erreur...
Merci d'avance

On Error GoTo msgErreur
Form16.Show
Form22.Hide
For Each TextBox In Form22
   TextBox.Text = ""
Next
Exit Sub
msgErreur:
Form16.Show



(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

BasicInstinct · Accepted Answer

dans ton code


TextBox est une variable declar&#233;e en variant et tu passes dans tous les controles de ta feuille. Au 1er qui ne connait pas .text (label par exemple) ca plante... logique 

essaie comme ca

Dim T As Control
For Each T In Me.Controls
    If TypeName(T) = "TextBox" Then
        T.Text = "toto"
    End If
Next

 BasicInstinct

tof008 · Answer

ben en fait g fait comme ca... 
For Each Text In Form22
  Text = "0"
Next
et ca marche...



(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

BasicInstinct · Answer

fais gaffe, ton code modifie aussi tous les label.caption....

++

 BasicInstinct

[vb6] petit probleme

3 réponses

Discussions similaires