Ocx

[Résolu]
Signaler
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonsoir

je suis entrain de creer mon premier ocx  ( Ip textbox)

mon usercontrol contient 4 textbox l'un a côté de l'autre.

et je vous savoir comment pourais -je faire quand je taperai dans un autre projet iptextbox.text = ip encodée
exemple

text1(0).text = 192
text1(1).text = 168                    ----> les 4 textbox de mon ocx
text1(2).text = 80
text1(3).text = 10

dans un projet

iptextbox.text = "192.168.80.10"

je pense a ceci mais je ne sais pas quoi mettre a l'interrieur

Public Property Get text() As String


End Property

je reprécise que c'est mon premier ocx 
merci d'avance dodo 1309

13 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
       Dim MyIP() As String




Avec Split, il ne faut pas utiliser des tableaux de taille fixe

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut Casy, il me semble que si.
Par contre, c'est moi qui ai oublié ça :

MyIP = Split(new_MyText, ".")

(j'ai pas précisé le Delimiter)

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Effectivement, Casy avait raison.

Public Property Let MyText(new_MyText As String)
        Dim MyIP() As String  'enleve le 3 entre parenthèse
        Dim i As Byte
        
    ReDim MyIP(3) 'et ajoute cette ligne
    MyIP = Split(new_MyText)
    
    For i = 0 To 3
        Text1(i) = MyIP(i)
    Next i
    Erase MyIP
End Property

Ensuite, c'est comme ceci :

    MsgBox Me.MyText ' pour avoir la valeur
    Me.MyText = "192.168.80.10" ' pour attribuer la valeur

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

et si vous avez quelque conseil a me donner ce serait gentil
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

essaie un truc de ce genre là (pas testé, je suis sans vb6 au taf) :

Public Property Get MyText() As String
    MyText =  Text1(0) & "." & Text1(1) & "." & Text1(2) & "." & Text1(3)
End Property

Public Property Let MyText(new_MyText As String)
        Dim MyIP(3) As String
        Dim i As Byte
        
    MyIP = Split(new_MyText)
    
    For i = 0 To 3
        Text1(i) = MyIP(i)
    Next i
    Erase MyIP
End Property

~ <small> Mortalino </small> ~

@++

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

euh il me met pour

MyIP = Split(new_MyText)

impossible d'affecter au tableau
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

merci sa marche déja un peu mieux

j'ai testé l'ocx dans un projet pour voir ce que cela donné

et quand dans la propriète Mytext je tappe une ip j'ai un message d'erreur disant " indice en dehors de la plage "
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Arf, décidémment...

et dans
MyIP = Split(new_MyText, ".")

(désolé, je me suis fait avoir avec mes copier / coller

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

merci cela marcge trés bien !!!!
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

encore une question :

Aurez vous quelque conseil a me donner pour paufiner mon ocx

merci d'avance dodo1309
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Oui, il faudrait vérifier la saisie, cad est ce que toutes les texbox sont remplies, est ce bien du numérique, ce genre de chose.

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011

okok grand merci
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
    ReDim MyIP(3) 






'Ligne inutile




    MyIP = Split(new_MyText,".")









Renfield





Admin CodeS-SourceS

- MVP Visual Basic