[VB6]pb pour la déclaration d'un tableau

Version imprimable

Voir 40 message(s) de cette discussion en une page

Hello

J'ai un soucis, quand je veux rentrer une valeur dans mon text, jai cette erreur: Erreur de compilation, projet ou bibliothèque introuvable
Il me surligne "Mid"

Voila mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Text3_Change(Index As Integer)
Dim msg, car As String
Dim valasc As Byte
Dim var As Integer
 
msg = Text3(Index).Text
For j = 1 To Len(msg)
    car = Mid(msg, j, 1)
    valasc = Asc(car)
    If valasc <> 44 Then
        If (valasc < 48 Or valasc > 57) Then
                Text3(Index).Text = ""
                var = MsgBox("Vous devez rentrer une valeur numérique!", vbOKOnly, "Erreur")
        End If
    End If
Next
End Sub

Merci

31/05/2006, 14h15
AlainTech

Pas de faux espoir, je ne réponds pas à ta question.

J'ai juste vu ça:

Code:

Dim msg, car As String

Sache qu'avec cette syntaxe, seul car est typé String. msg est de type Variant.
Si tu veux faire plusieurs déclarations sur une ligne, la syntaxe est:

Code:

Dim msg As String, car As String
31/05/2006, 14h22
gaetan.tranvouez

Merci quand meme pour le conseil!!
J'aurai cru que cela était comme en C par exemple int a, b;
Cela ne modifie certes rien mais c'est quand meme mieux et moins gourmand je crois...

Pour vérifier qu'une chaine est numérique, utilise la fonction IsNumeric et non une boucle + une comparaison caractères par caractères.

Pour vérifier la cohérence des valeurs saisie en cours de frappe utilise l'évènement KeyPress :
Code:

1 2 3 4 5 6 7 8 9 10 Private Function FiltrerSaisie(ByRef KeyAscii As Integer) Dim Filtre As String Filtre = "0123456789" If InStr(1, Filtre, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Function Private Sub TextBox1_KeyPress(ByVal KeyAscii As Interger) FiltrerSaisie KeyAscii End Sub

31/05/2006, 14h32
gaetan.tranvouez

RE Catbull

ok merci
mais c'est laquelle de bibliothèque qu'il faut choisir...
Car il ne la trouve pas
31/05/2006, 14h42
gaetan.tranvouez
Car la ca m'a enlevé une erreur mais ca m'a rajoué la meme, mais sauf que c'est un code différent
Mais je ne comprend pas ceci:
Code:

1 2 If InStr(1, Filtre, Chr(KeyAscii)) = 0 Then KeyAscii = 0
Tu pourrais m'éclairer stp
31/05/2006, 14h49
Catbull

En français, cela donne "Si le caractères correspondant à la valeur Ascii de la variable KeyAscii passée en paramètre de la fonction n'est pas présente dans la chaine de caractères Filtre alors je modifie la valeur KeyAscii à 0"

Instr permet de déterminer la position d'une sous-chaine dans une chaine de caractère. En cas d'échec Instr renvoie 0.

Chr permet de déterminer le caractère correspondant à un code Ascii.

KeyAscii est passé par référence, donc modifier KeyAscii du coté appelé provoque une modification du coté appelant (ByRef = passage par adresse et non par valeur)
31/05/2006, 14h52
AdHoc

A mon avis, il te manque les références "par défaut" du projet ou ces dll sont mal installées.
Chez moi, l'explorateur d'objet me classe Mid dans MSVBVM60.DLL.
Pour info, ton code fonctionne avec les modifs de AlainTech (sans je n'ai pas essayé).
Personnellement, je ne met jamais du code dans les événements change des champs de saisie.
L'utilisateur saisie, puis valide, si les infos sont incorrectes, :bug:
raz et on repart au debut :mouarf:.
Dans ton cas tu as juste à tester si la chaine est un nombre.
31/05/2006, 15h00
gaetan.tranvouez

J'ai cette dll, et je la sélectionne mais toujours rien...
31/05/2006, 15h18
gaetan.tranvouez

Si je supprime cette partie du code alors cela fonctionne correctement, ce n'est pas une solution mais pour l'instant je fais ainsi...
Si cela vient su paramétrage de vb ou de mon ordi je ne peux rien y faire je pense...Donc ca reste comme ca pour l'instant...merci a tous
01/06/2006, 10h19
AdHoc

Est -ce que tu voies ces méthodes dans l'explorateur d'objet ?
01/06/2006, 12h02
gaetan.tranvouez

si je tape mid dans l'explorateur d'objet je le voit, dans un paquet de liste...
Mais je dois faire quoi ensuite???
01/06/2006, 13h03
AdHoc

Je demandais cela pour savoir si l'objet était correctement reconnu.
Sur mon poste,
Sur "Résultat de la recherche",je ne le vois que dans "bibliotheque": VBA, "Classe": Strings, "membre": Mid et Mid$
Sur la partie "classes", string est encadré en pointillé
Sur la partie "membres de strings", Mid est encadré en pointillé
Dans la partie description, j'ai

Citation:

Function Mid(String, Start As Long, [Length])
Membre de VBA.Strings
Renvoie un nombre spécifié de caractères à partir d'une chaîne

Si tu en as plusieurs autres, de plusieurs classes ou bibliotheques, il y a peut etre un conflit.
01/06/2006, 13h56
gaetan.tranvouez

J'ai la meme chose que toi...
C'est tout a fait ca
01/06/2006, 14h06
AdHoc

et si tu commence à taper "mid(", vb t'indique la syntaxe ?
01/06/2006, 14h13
gaetan.tranvouez

malheureusement non...
01/06/2006, 14h28
jmfmarques

Et pour cause ...!
Alors : Installation de la MSDN fournie avec ton achat de VB6 !
Si ce n'est pas ton achat, demander ces disques à celui qui te demande d'utiliser son VB6 !... S'il ne les a pas .... change d'employeur sans attendre !
01/06/2006, 14h32
gaetan.tranvouez

Si je suis ta logique, je change d'employeur de suite... car il n'a plus les disques... Il n'y a pas moyen de les trouver quelques part par hasard??? Car sans la collection MSDN c'est plutot dur d'avancer si tu vois ce que je veux dire.
01/06/2006, 14h33
ThierryAIM

Pour la nieme fois, vérifie dans tes références projet que tu n'en a pas une marquée MANQUANTE !!
01/06/2006, 14h34
ThierryAIM

et msdn est consultable ICI

(cf la signature de jmf ;)

Voir 40 message(s) de cette discussion en une page