مشكل با اضافه كردن به ليست combobox

سلام دوستان من يه مشكل دارم
ديوز هرچي تلاش كردم نتونستم به ليست كمبو يه مقدار اضافه كنم
مثلا من ميخاي همهي فايلهاي موجود رو به اليستم اضافه كنم نميدونم مشكل كجاست
اگه به دستور زير توجه كنيد متوجه ميشين چي ميگم
ممنون

کد:

---

Dim ret As String
Dim f As String
f = Dir$(App.Path & "\bc\pmdb\*.*")
Do While Len(f) > 0
ret = f
f = Dir$()
combo1.list =combo1.list & vbcrlf & ret

Loop

---

يا بگزاريد به زبان ساده بگم
من تو مسير برنامه تو پوشه ي \bc\pmdb
ميخام هرچي فايل هست نامش بياد تو ليست كومبو
ممنون ميشم كمكم كنيد

سلام
combobox که متن نیست برایش از جمع string استفاده کردید!

کد:

---

'VB6
Me.ComboBox1.List(Me.ComboBox1.ListCount) = "newstring"

'VB9=VB2008
Me.ComboBox1.Items.Add("newstring")

---

سلام دوست عزيز واقعا از لطف شما ممنون هستم
ديگه نميدونم چه طوري ميشه از لطف شما تشكر كرد:11:
اينم شكل كلي دستور

کد:

---

Private Sub Form_Load()
Dim ret As String
Dim f As String
f = Dir$(App.Path & "\bc\pmdb\*.*")
Do While Len(f) > 0
ret = f
f = Dir$()
Me.Combo1.List(Me.Combo1.ListCount) = ret
Loop
End Sub

---

:40::40::40::40:

سلام مجدد ...
متغیر ret برای چه است؟
اسلش را هم چک کنید! کار از مهم کاری عیب نمیکند!
کد پیشنهادی

کد:

---

'VB6
Dim f As String
f = App.Path
If (Right$(f, 1) = "\") Then
    f = Dir$(f & "bc\pmdb\*.*")
Else
    f = Dir$(f & "\bc\pmdb\*.*")
End If

Do While Len(f) > 0
    Me.Combo1.List(Me.Combo1.ListCount) = f
    f = Dir$()
Loop


'VB9 = VB2008
Me.ComBox1.DataSource = System.IO.Directory.GetFiles(System.IO.Path.Combine(System.Windows.Forms.Application.StartupPath, "bc\pmdb"), "*.*")

---

البته میتوانید از کنترلر آماده FileListBox هم استفاده کنید و نیازی به این کد نویسی ها نیست!

کد:

---

'VB6
Dim f As String
f = App.Path
If (Right$(f, 1) = "\") Then
    f = Dir$(f & "bc\pmdb\")
Else
    f = Dir$(f & "\bc\pmdb\")
End If

Me.FileListBox1.Path = f
Me.FileListBox1.Pattern = "*.*"

---

موفق باشید.

نقل قول:

---

نوشته شده توسط navid_ice_heart_128 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان من يه مشكل دارم
ديوز هرچي تلاش كردم نتونستم به ليست كمبو يه مقدار اضافه كنم
مثلا من ميخاي همهي فايلهاي موجود رو به اليستم اضافه كنم نميدونم مشكل كجاست
اگه به دستور زير توجه كنيد متوجه ميشين چي ميگم

يا بگزاريد به زبان ساده بگم
من تو مسير برنامه تو پوشه ي \bc\pmdb
ميخام هرچي فايل هست نامش بياد تو ليست كومبو
ممنون ميشم كمكم كنيد

---

دوست عزیز برنامه ی خوبی نوشتی ولی مگر نمی دونی که برای اضافه کردن یک آیتم به شی کمبو باید از متد additem کمبو استفاده کنی؟
کدت درسته فقط به جای خط
combo1.list =combo1.list & vbcrlf & ret

باید بنویسی combo1.additem f
به همین سادگی به همین خوشمزگی
برای مطرح کردن سوالات وی بی خود می توانید به وبلاگ من به نشانی

کد:

---

www.-----------------------

---

مراجعه کنید