هيثم أحمد قام بنشر يناير 6, 2018 مشاركة قام بنشر يناير 6, 2018 السلام عليكم ورحمة الله وبركاته هل في امكانية لجلب اسماء صفحات ال tabcontrol ووضعهم في Combobox بمعني لو عندي ٣ صفحات كيف يمكن تعبئة كومبوبوكس باسماء الصفحات رابط هذا التعليق شارك More sharing options...
هيثم أحمد قام بنشر يناير 6, 2018 الكاتب مشاركة قام بنشر يناير 6, 2018 انا وصلت للكود ده بس الناتج هو ا 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 بس انا محتاج استبدل الاندكس باسم التاب رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر يناير 7, 2018 مشاركة قام بنشر يناير 7, 2018 السلام عليكم استخدم هذا الكود أخي: 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 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.