ارجو المساعده بكود لجعل ارتفاع الليست بوكس يتناس مع عدد الصفوف

[إبراهيم ابوليله]

الاخوه الافاضل

هل يوجد كود يجعل الليس بوكس يتناسب مع عدد الصفوف

بحيث يكون ارتفاع الليست بوكس هو نفس ارتفاع الصفوف

بمعنى

انه لو كان لدى سطر واحد فى الليست بوكس فتظهر الليس بنفس حجم السطر

ولا تظهر فراغات لسطور اخرى

واذا كان لدى مثلا 15 سطر

حاولت استخدام الكود التالى لكنى فشلت

Private Sub CommandButton2_Click()
For i = 1 To 15
'i= عدد الصفوف فى الليست بوكس
H = 16
'h= ارتفاع حجم الليست بوكس فى حاله وجود صف واحد

If ListBox1.ListCount = i Then
ListBox1.Height = (i & H)
End If
Next i
End Sub

[أبو حنــــين]

السلام عليكم

هذه حسب البرنامج

هذا مثال على ذلك

Private Sub CommandButton1_Click()

With ListBox1
.Clear
.Height = 13
For i = 1 To .ListCount
.Height = 12 * i
Next
End With

End Sub


Private Sub UserForm_Activate()
With ListBox1
.Font.Size = 10
.Font.Name = "Times New Roman"
.SpecialEffect = 6
.Height = 13
End With

End Sub

[إبراهيم ابوليله]

اخى ابو حنين

بارك الله فيك

الكود جميل ماشاء الله عليك

ولكن يحدث خطأ معى

خصوصا عند استخدام الحدث

textbox_change

وهو

انه عند البحث لاول مره يكون ارتفاع اللست مناسبا لعدد الاعمده

اما عند استخدام backspace

واعاده البحث نجد عدم ملائمه الليست بوكس لعدد الصفوف

وبالتالى يظهر فراغات داخل الليست

ارجو المساعده ان امكن

 

RECEIP.rar

r.rar