Restriction

Question

Restriction


 <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


 


Salut, quelqu&#8217;un sait comment restreindre une suite de caract&#232;re dans un listbox?


 


Exemple : je veux seulement afficher les lignes qui commence par "abc" et "xyz"


 


=>abcsdjfklsdjf;lakjdfsofiwuefwe
=>xyzsdiouweriouwe
sdflskdjfklsjdfsdf
=>xyz3405893490583490
sdfsdf


=>abcsdfjsdklfjsdkfjsdlkfsdf


=>abcoptiwerpotergjdflkgjdf
=>xyzxcvxm,cnxcv,mxcnv,mcnx
sdfsdfjksdhfjhsdjksdfsd


=>abceoprtieropitpeoreropti


&#8230;


 


merci de votre r&#233;ponse

nitroptik · Answer

J'aimerais aussi savoir comment enlever les pointill&#233; et le focus bleu sans perdre le droit de cliquer dans les cases a cocher lors dune selection dans une listbox

cboulas · Answer

Salut, lorsque ton utilisateur entre les donn&#233;es dans un champs textbox, puis valide, avant que ces infos soit mise dans une liste box, il faudrait que tu convertisse un &#224; un les caract&#232;re en code ASCii, afin de v&#233;rifier si les nombres se suivent.

exemple pour le stockage des infos :

    Dim i As Integer 'Compteur de lettre
    Dim TheTexte() As Integer   'Tableau pour comparaison
    ReDim TheTexte(Len(TextBox1.Text))   'Resize le tableau &#224; la longeur du texte
    For i = 1 To Len(TextBox1.Text)
        TheTexte(i - 1) = Asc(Mid(TextBox1.Text, i, 1)) 'Entre les caract&#232;res dans le tableau
    Next
    'TODO : L&#224; il faut que tu fasse du code pour tester les valeurs du tableau      'Si TheTexte(0) TheTexte(1)-1 ou si TheTexte(0) TheTexte(1)+1, etc..., etc...

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

cboulas · Answer

Voici la suite pour le 'TODO :

    For i = 0 To (Len(TextBox1.Text) - 1)
        If TheTexte(i) = (TheTexte(i + 1) + 1) Then '1er test - partie 1
            If TheTexte(i + 1) = (TheTexte(i + 2) + 1) Then '1er test - partie 2
                MsgBox "3 caract&#232;res se suivent"
                Exit Sub
            Else
                MsgBox "2 caract&#232;res se suivent"
                Exit Sub
            End If
        ElseIf TheTexte(i) = (TheTexte(i + 1) - 1) Then '2nd test - partie 1
            If TheTexte(i + 1) = (TheTexte(i + 2) - 1) Then '2nd test - partie 2
                MsgBox "3 caract&#232;res se suivent"
                Exit Sub
            Else
                MsgBox "2 caract&#232;res se suivent"
                Exit Sub
            End If
        End If
    Next


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

nitroptik · Answer

Est-ce que sa serait plus simple de bloquer tout sauf ce qu&#8217;on voudrait laisser passer? (tout ce qui va appara&#238;tre dans le listbox sera de l&#8217;hexad&#233;cimal)

cboulas · Answer

Il te suffit pour cela d'inclure un test interne aux autres afin de faire le test exemple :

if blabla = "3F4E" then toto


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

nitroptik · Answer

Comment faire pour introduire une ou plusieur valeur?

nitroptik · Answer

j'ai une form + bouton + listbox + text

et ceci

Private Sub Command1_Click()
Dim i As Integer 'Compteur de lettre
    Dim TheTexte() As Integer   'Tableau pour comparaison
    ReDim TheTexte(Len(Text1.Text))   'Resize le tableau &#224; la longeur du texte
    For i = 1 To Len(Text1.Text)
        TheTexte(i - 1) = Asc(Mid(Text1.Text, i, 1)) 'Entre les caract&#232;res dans le tableau
    Next
    For i = 0 To (Len(Text1.Text) - 1)
        If TheTexte(i) = (TheTexte(i + 1) + 1) Then '1er test - partie 1
            If TheTexte(i + 1) = (TheTexte(i + 2) + 1) Then '1er test - partie 2
                MsgBox "3 caract&#232;res se suivent"
                Exit Sub
            Else
                MsgBox "2 caract&#232;res se suivent"
                Exit Sub
            End If
        ElseIf TheTexte(i) = (TheTexte(i + 1) - 1) Then '2nd test - partie 1
            If TheTexte(i + 1) = (TheTexte(i + 2) - 1) Then '2nd test - partie 2
                MsgBox "3 caract&#232;res se suivent"
                Exit Sub
            Else
                MsgBox "2 caract&#232;res se suivent"
                Exit Sub
            End If
        End If
    Next


End Sub

mais je sais pas ou introduire les valeurs a retenir et je suis pas dur davoir bien compris non plus

merci de maider

nitroptik · Answer

j'ai r&#233;ussis a faire fonctionner le code mais disont que sa marche tres mal. cest surement mon erreur. j'aurais encore besoin d'un peu d'aide.

help !!

cboulas · Answer

Essai de faire une &#233;x&#233;cution pas &#224; pas afin de voir pourquoi cela ne passerais pas, cela te permet de visualiser le contenu des variables, etc... c'est un bon moyen de trouver les erreurs


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

Restriction

9 réponses

Discussions similaires