Discussion :

[pierre2410]

bonjour,
comment empecher la modification du texte des combox afin d'eviter la possibilité de rentrer nimporte quoi dans ma base ?
lorsque je met "locked" a true, on ne peux pas modifier le texte mais on ne peut rien selectionner
avez eu une solution ?
cordialement
pierre

[OhMonBato]

Change la propriété Style à "2" (DropDownList)

[sovo]

Ou alors tu bloques les entres dans le textebox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private sub Text1_keypress (keyascii as integer)
    keyascii = 0
end sub

[zazaraignée]

Ou alors tu bloques les entres dans le textebox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private sub Text1_keypress (keyascii as integer)
    keyascii = 0
end sub

mais ce faisant, tu bloques aussi la possibilité de sélectionner un item juste en tapant les premières lettres.

[sovo]

Oui c vrai. Mais est que c'est vraiment necessaire, enfin je veux dire est qu'il le veux vraiment ?? car en lisant sont message ne vois pas paraitre un truc de ce genre.

[OhMonBato]

Je veux pas me la péter, mais ma réponse n'est elle pas la plus simple ?

[label55]

Bonjour,

je cherche exactement à faire ceci. cependant je n'y arrive pas. Je commence par charger ma combo puis je la met en read only mais j'ai un retour d'erreur "can't assigne read only property"
voila mon code #

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
17
18
sql = "SELECT CodeFourn From fournisseurs ;"
    Set record = stock.OpenRecordset(sql, dbOpenDynaset)
    If record.RecordCount <> 0 Then
        Do Until record.EOF
            CboFournisseur(0).AddItem record![CodeFourn]
            CboFournisseur(1).AddItem record![CodeFourn]
            CboFournisseur(2).AddItem record![CodeFourn]
            CboFournisseur(3).AddItem record![CodeFourn]
            CboFournisseur(4).AddItem record![CodeFourn]
            CboFournisseur(5).AddItem record![CodeFourn]
        record.MoveNext
        Loop
    End If
    record.Close
    Dim i As Integer
    For i = 0 To 5
        CboFournisseur(i).Style = 2
    Next i

Merci d'avance pour votre aide

Cordialement
Pierre

[imparator_42]

Comment on fait pour qu'on pisse rentrer que "des chiffres" dans un textbox?
la meme question pour "des lettres"?
('si possible' la meme question pour "des signes etc..."?)

Sympa de repondre , merci davance

[ProgElecT]

Regardes du coté de Vos contributions VB6 entre autre [Trucs & Astuces] Forcer les touches clavier en numerique devrait te permetre d'arriver à tes fins.