Le portail francophone de la géomatique

Maro · Sat 23 September 2006 10:12

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 Function

mon 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)

Damien BEAUSEIGNEUR · Sat 23 September 2006 11:44

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.

Robin · Mon 25 September 2006 09:56

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.

ChristopheV · Mon 25 September 2006 11:59

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)

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

Annonce

#1 Sat 23 September 2006 10:12

[mapinfo 8.0 + Vb6] Probleme De Code

Code:

#2 Sat 23 September 2006 11:44

Re: [mapinfo 8.0 + Vb6] Probleme De Code

#3 Mon 25 September 2006 09:56

Re: [mapinfo 8.0 + Vb6] Probleme De Code

Code:

#4 Mon 25 September 2006 11:59

Re: [mapinfo 8.0 + Vb6] Probleme De Code

Pied de page des forums