tabcontrolكيفية تعبئة كومبو بوكس باسماء صفحات

[هيثم أحمد]

السلام عليكم ورحمة الله وبركاته 

هل في امكانية لجلب اسماء صفحات ال

tabcontrol

ووضعهم في 

Combobox 

بمعني لو عندي ٣ صفحات 

 كيف يمكن تعبئة كومبوبوكس باسماء الصفحات

 

[هيثم أحمد]

انا وصلت للكود ده بس الناتج هو ا

Tabcontrol index 

 

Private Sub SetPartNumbers(ByVal n As Long)
    Dim i As Long
    Dim s As String

    s = "1"
    For i = 2 To n
        s = s & ";" & i
    Next i
    Me!Combo1.RowSource = s
End Sub

حيث

n= tabcontrol.pages.count

بس انا محتاج استبدل الاندكس باسم التاب

 

[صالح حمادي]

السلام عليكم

استخدم هذا الكود أخي:

Me.comb.RowSource = ""
Dim i As Integer
For i = 0 To Me.tab.Pages.Count - 1
   Me.comb.AddItem Me.tab.Pages(i).Name
Next i

و هذا مثال بالمرفق

 

tabcontrol.rar