ocxRésolu

Question

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

cs_casy · Accepted Answer

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 #

dodo1309 · Answer

et si vous avez quelque conseil a me donner ce serait gentil

mortalino · Answer

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 ~ Mortalino ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

dodo1309 · Answer

euh il me met pour 

MyIP = Split(new_MyText)

impossible d'affecter au tableau

mortalino · Answer

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>

dodo1309 · Answer

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 "

mortalino · Answer

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>

mortalino · Answer

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>

dodo1309 · Answer

merci cela marcge trés bien !!!!

dodo1309 · Answer

encore une question :

Aurez vous quelque conseil a me donner pour paufiner mon ocx 

merci d'avance dodo1309

mortalino · Answer

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>

dodo1309 · Answer

okok grand merci

Renfield · Answer

ReDim MyIP(3) 






'Ligne inutile




    MyIP = Split(new_MyText,".")









Renfield





Admin CodeS-SourceS

- MVP Visual Basic

Ocx

13 réponses

Votre réponse

Discussions similaires