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

Version imprimable

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 ;)
01/06/2006, 14h43
gaetan.tranvouez

quand je fais outil, référence: j'ai un tableau avec indiqué "références d'objets", je sélectionne donc les références qui sont décochés, et ensuite j'ai ce mesage:

nom de module, de projet ou de bibliothèque d'objet déjà utilisés.

voila je ne sais pas quoi dire d'autres...
01/06/2006, 14h50
ThierryAIM

dans les références déjà cochées, est-ce que l'une d'elle est marquée MANQUANTE, oui ou non ????

(je ne parle pas français ou quoi 8O )
01/06/2006, 14h58
gaetan.tranvouez

Apparement non, aucune n'est signalé manquante...

donc ca veut dire???
02/06/2006, 08h59
AdHoc

Malheureusement pour toi, je crois que ton vb est mal installé.
Essayes d'ouvrir un nouveau projet vierge et dans un bouton

Code:

Text1.text = Mid("Coucou",3,2)

Si cela ne fonctionne pas, tu es mal, sinon, c'est ton projet qui a de mauvaises références (bien qu'il me semble que dans ce cas, c'est signalé au chargement).
02/06/2006, 09h15
gaetan.tranvouez

Cela fonctionne, ca m'indique uc dans le text...

Sauvegarde ce nouveau projet,edite avec un editeur de texte les deux .vbp et compare les références des librairies (cle de registre, version, chemin)
Code:

1 2 3 Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINNT\System32\scrrun.dll#Microsoft Scripting Runtime Reference=*\G{1BCD446E-7095-11D0-9C4E-00AA00BDD685}#1.0#0#E:\VisualStudio6\Common\Tools\APE\REGTOOL5.DLL#Registry Access Functions
Bonne nouvelle, je pense qu'en créant un nouveau projet vierge dans le même répertoire et en ajoutant tous les composant (frm, modules,etc) , tu devrais pouvoir repartir sans trop de casse.
Conseil: Sauvegardes avant !

02/06/2006, 10h22
gaetan.tranvouez

J'ai rien compris dsl

:oops: ,
Tu sauvegarde le nouveau projet avec les mêmes références que ton projet.
Ex: projet1.vbp dans D:\Essai
Tu ouvre un editeur de texte (notepad, ultraedit) et avec tu charges le projet1.vbp (fichier, Ouvrir, fichier de type: " tous les fichiers").
Meme procédure avec ton projet.
Tu as donc quelque chose qui ressemble à cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 Type=Exe Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation Reference=*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Fichiers communs\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library Form=ControleFactureAvoir.frm Module=ModServeurFactureAvoir; ServeurFactureAvoir.bas Module=ModRapatrieAvoir; RapatrieAvoir.bas Module=ModDiversControleFactureAvoir; DiversControleFactureAvoir.bas Module=ModPesee; Pesee.bas Module=ModFichier; Fichier.bas Form=Facture.frm Module=ModPassage; Passage.bas Module=ModPreparation; Preparation.bas Module=ModDeposeAvoir; DeposeAvoir.bas Module=ModEditionManuelle; EditionManuelle.bas Module=ModDemandeAvoir; DemandeAvoir.bas Module=ModDeposeFacture; DeposeFacture.bas Module=ModDepile; Depile.bas Module=ModDemandeFacture; DemandeFacture.bas Module=ModEditionTerminee; EditionTerminee.bas Module=ModFactureNonValidee; FactureNonValidee.bas Startup="Sub Main" HelpFile="" Command32="" Name="ControleFactureAvoir" HelpContextID="0" CompatibleMode="0" MajorVer=1 MinorVer=0 RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="Mon Entreprise" CompilationType=0 OptimizationType=0 FavorPentiumPro(tm)=0 CodeViewDebugInfo=0 NoAliasing=0 BoundsCheck=0 OverflowCheck=0 FlPointCheck=0 FDIVCheck=0 UnroundedFP=0 StartMode=0 Unattended=0 ThreadPerObject=0 MaxNumberOfThreads=1
J'ai mis en orange les types de lignes que tu dois comparer (elles commencent par "reference").
cela se décompose en :
*\G{00025E01-0000-0000-C000-000000000046} c'est la clé de registre
#2.0# la version
#0# je sais pas
#C:\WINNT\System32\stdole2.tlb# le chemin
#OLE Automation le nom

Si tu as une différence (notament versions ou chemin), corrige dans ton projet "d'origine".
Si tu ne vois rien de spécial, tu crées un nouveau projet dans le meme répertoire que ton projet original et tu ajoutes toutes les feuilles et tous les modules que tu utilise (Ex: Dans Vb, menu projet, ajouter une feuille, existant, etc ) .
N'oublies pas les références et les composants.

Bon courage, j'espère que ce n'est pas trop gros ;)

02/06/2006, 12h02
gaetan.tranvouez

merci bcp c'est parfais

Mon pb était surement du a une référence

encore merci pour ton aide
ciao