Listbox multicolonne, probleme pour ajouter dans les colonnes.Résolu

Question

yop yop, comme vous vous en douté c'est encore moi qui ai un problème :) avant lorsque j'étais sour vba excel j'avais un code qui fonctionner pour avoir une listbox multicolonne. maintenant que j'ai vouli le tester sous VB6 j'ai une erreur, voici le code:

Private Sub Form_Load()Set db = OpenDatabase(App.Path & " est.mdb") sql = "select * from client" Set rs = db.OpenRecordset(sql, dbOpenSnapshot) While Not rs.EOF List1.AddItem rs.Fields("auto") Dim ok As Integer ok = List1.ListCount 'MsgBox ok List1.List(ok - 1, 1) = rs.Fields("nom") rs.MoveNext Wend End Sub

la ligne List1.List(ok - 1, 1) = rs.Fields("nom") ne fonctionne pas comme sous excel je ne comprend pas ce qu'il faut y faire. quelqu'un pourai m'aider? merci d'avance

lolpop · Accepted Answer

j'ai réussi a me dépatouillé, mais pourriez vous me dire si mon code est juste, il marche en tout cas:

Private Sub Form_Load()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "40;40"


Set db = OpenDatabase(App.Path & "	est.mdb")


sql = "select * from client"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)


While Not rs.EOF
ListBox1.AddItem rs.Fields("auto")
lst = ListBox1.ListCount
ListBox1.Column(1, lst - 1) = rs.Fields("nom")
rs.MoveNext
Wend


End Sub

tof008 · Answer

si tu fais un clic droit sur la listeBox et que tu va ds propriété, tu arrives pas a rajouter des colonnes?

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire< body>

lolpop · Answer

si je les rajoutes mais lors de l'éxécution ca ne marche pas j'ai le message d'erreur:
erreur de compilation, impossible d'affecter a une lecture seule.
peu etre que ce code n'est pas valable sous vb enfin je veux dire List1.List(ok - 1, 1) ne marche peu etre pas sou vb.

Listbox multicolonne, probleme pour ajouter dans les colonnes.

3 réponses

Votre réponse

Discussions similaires