IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Problème avec Strconv


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2011
    Messages : 7
    Par défaut Problème avec Strconv
    Bonjour,
    je suis nouveau ici et la programmation n'a jamais mon domaine mais j'en ai fait un peu c'est à moi que revient le boulot et je n'ai personne pour m'aider dans mon entreprise.

    j'ai trouvé une source sur un autre site utilisant un module dans lequel est la fonction StrConv.. aucun souci la fonctione fonctionne très bien.

    Or quand je recopie le module dans l'application sur laquelle je bosse j'ai une erreur à la compilation "Can't find project or library".
    J'ai vérifié que j'avais bien activé les meme control est c'est bien le cas...

    Le reste dépasse mes compétence en informatique. si vous pouviez m'indiquer d'où vient le problème

    merci par avance


    voici ledit code : dans l'appli que j'ai chopé elle fonctionne... mais pas quand je recopie (ou meme importe) le module dans la mienne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    Option Explicit
     
    Public Function Crypt(Value As String) As String
      Dim b() As Byte
      Dim iPnt As Integer
      b = StrConv(Value, vbFromUnicode)
      For iPnt = 0 To UBound(b)
        If iPnt Mod 2 Then
          b(iPnt) = b(iPnt) + 1
        Else
          b(iPnt) = b(iPnt) - 1
        End If
        Crypt = Crypt & Chr(b(iPnt))
      Next
    End Function

  2. #2
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    Bonjour,

    merci de joindre le code (à mettre entre les balises CODE, le bouton # au dessus de la zone d'édition des messages) et de spécifier la ligne sur laquelle se produit l'erreur.

  3. #3
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 140
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 140
    Par défaut
    Salut
    aucun souci la fonction fonctionne très bien
    Cela dans l'éditeur VB6 ?
    Si tu programmes bien en VB6, fais un projet tout neuf avec seulement le code de la fonction et dans le load tu y mes cette ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox Crypt("coucou francis")
    Que ce passe t-il?
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  4. #4
    Membre régulier
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2011
    Messages : 7
    Par défaut
    Pour le coup quand je crée une nouvelle appli en y mettant le module ça fonctionne (alors que j'ai remis les meme controls et references...
    Je ne compend pas

    du coup j'ai recopier tout le code dans cette nouvelle appli où ça fonctionne... meme si je n'ai pas le fin mot de l'histoire ça fonctionne

    merci pour le coup de main

  5. #5
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    dans l'application qui ne fonctionne pas à tu contrôler la liste des références ..? n'y as t'il pas une référence marquée "MANQUANTE!" ( même si elle n'as rien à voir avec StrConv) ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. VC++ Direct3D8, problème avec LPD3DXFONT et LPD3DTEXTURE8
    Par Magus (Dave) dans le forum DirectX
    Réponses: 3
    Dernier message: 03/08/2002, 11h10
  2. Problème avec [b]struct[/b]
    Par Bouziane Abderraouf dans le forum CORBA
    Réponses: 2
    Dernier message: 17/07/2002, 10h25
  3. Problème avec le type 'Corba::Any_out'
    Par Steven dans le forum CORBA
    Réponses: 2
    Dernier message: 14/07/2002, 18h48
  4. Problème avec la mémoire virtuelle
    Par Anonymous dans le forum CORBA
    Réponses: 13
    Dernier message: 16/04/2002, 16h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo