#1 Sat 23 September 2006 10:12
- Maro
- Juste Inscrit !
- Date d'inscription: 23 Sep 2006
- Messages: 1
[mapinfo 8.0 + Vb6] Probleme De Code
Bonjour a tous
voila je suis un peu nouveau dans le domaine des sig on m'incombe la tache de realiser une application sous vb 6.0 avec map info 8.0 pour m'aider j'ai pu trouve une application de depart mais j'ai un probleme dans un module
La compilation bloque a ce niveau la :
Code:
Private Function GetField(ByVal theStr As String, _
ByVal delimiter As String, _
ByVal whichField As Integer) As String
Dim i As Integer
Dim startPos As Integer
Dim argCount As Integer
Dim tmpStr, result As String
If Len(theStr) = 0 Or whichField < 1 Then
GetField = ""
Exit Function
End If
argCount = 0
tmpStr = theStr
While InStr(tmpStr, delimiter) > 0 And argCount < whichField
argCount = argCount + 1
result = [b]Left$[/b](tmpStr, Len(tmpStr) - 1)
tmpStr = [b]Mid$[/b](tmpStr, InStr(tmpStr, delimiter) + 1)
Wend
If argCount < whichField Then
argCount = argCount + 1
result = tmpStr
End If
If argCount = whichField Then
GetField = result
Else
GetField = ""
End If
End Functionmon programme bloque sur la partie en gras (left$ ,mid$) avec comme message "bibliotheque introuvable" si quelqun peut m'aide merci de me repondre """c'est tres important pour moi """"""""""""
Dernière modification par Robin (Mon 25 September 2006 10:15)
Hors ligne
#2 Sat 23 September 2006 11:44
- Damien BEAUSEIGNEUR
- Participant assidu
- Lieu: meyzieu
- Date d'inscription: 5 Sep 2005
- Messages: 425
Re: [mapinfo 8.0 + Vb6] Probleme De Code
Salut
essaye en remplaçant par Left$ par left et Mid$ par Mid, si tu ne trouve pas passe par l'aide pour voir quel composant manque pour que ton programme reconnaisse ce code.
Hors ligne
#3 Mon 25 September 2006 09:56
Re: [mapinfo 8.0 + Vb6] Probleme De Code
Salut Maro,
Pour info, pas besoin d'envoyer ce message individuellement aux membres du forum, le moteur de la liste s'en charge déjà, quand tu envoies ton message il est retransmis aux autres abonnés.
Consulte aussi les FAQ du forum tu y trouvera plein de lien utiles.
Quand tu place un code sur le forum, tu peux utiliser les balises code (avec crochets) qui éviteront que des parties de ton code soient supprimées.
Code:
Exemple
Enfin, n'oublie pas de créer un nouveau sujet, plutôt que de répondre à la suite d'un autre qui n'a pas a voir avec ta question.
Bon courage.
Robin.
Hors ligne
#4 Mon 25 September 2006 11:59
- ChristopheV
- Membre
- Lieu: Ajaccio
- Date d'inscription: 7 Sep 2005
- Messages: 3185
- Site web
Re: [mapinfo 8.0 + Vb6] Probleme De Code
Bonjour,
1) Vérifier que vous n'avez pas nommer une variable mID.
2) Dans VB6 menu "projet" "reference" vérifier que les bibliothèques VB sont cochées.
Visual Basic for applications
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE automation
Ce genre de pbs arrive quand il y a un conflit de classe pour VB.
Vous pouvez consulter le newsgroup : microsoft.public.fr.vb
Faire une recherche avec google sur ce groupe avec "mid$" comme clef, vous trouverez des explications
Christophe Vergon
NB: il faut toujours utiliser la fonction avec $ pour les traitements de chaîne (Mid$ et non mid) car elles sont beaucoup plus rapides.
Dernière modification par DIANA2D.dev (Mon 25 September 2006 12:01)
Christophe
L'avantage d'être une île c'est d'être une terre topologiquement close
Hors ligne
