اخواني ما المشكلة في هذا الكود

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

اخي يجب وضع رسالة الخطأ حتى نستطيع مساعدتك اكتر

ولكن اعتقد ان لديك مشكلة في استخدام Trim مع frm لأنك عرفتها على انها Form

هذا مجرد تخمين بسيط فالافضل انك تكتب رسالة الخطأ ايضا وياريت بعد كده تضع الكود بدلا من تصويره علشان الاعضاء يقدرو ينسخوه ويساعدوك بسرعة بدلا من كتابته حرف بحرف

=============

الى اللقاء

شكرا اخي على الرد

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

بنسبة للرسالة فهي في المرفق

والكود كامل هو:

Private Function Refresh_FormTabButtons()
	Static sfn As String
	Dim i As Integer
	Dim X As Integer

	Dim Frm As Form
	Dim lv As lvButtons_H
	Dim tLeft As Integer
	Dim tWidth As Integer

	On Error Resume Next
	bgTab.Width = mdiMain.Width - bgTabBack.Left

	i = 0
	For Each Frm In Forms
		If LCase(Trim(Frm.Name)) <> LCase(Trim(mdiMain.Name)) Then
		If Frm.MDIChild = True Then

			Load cmdOpenForms(i)
			cmdOpenForms(i).Caption = Frm.Caption
			cmdOpenForms(i).Visible = True
			fn(i) = Frm.Name

			i = i + 1
		End If
		End If
	Next


	While i <= cmdOpenForms.UBound
		cmdOpenForms(i).Visible = False
		Unload cmdOpenForms(i)
		i = i + 1
	Wend

	tLeft = 0
	tWidth = IIf((bgTab.Width / i) < defCmdOpenFormsWidth, (bgTab.Width / i), defCmdOpenFormsWidth)

	For i = 0 To cmdOpenForms.UBound
		If cmdOpenForms(i).Visible = True Then

			cmdOpenForms(i).Left = tLeft
			cmdOpenForms(i).Width = tWidth
			tLeft = cmdOpenForms(i).Left + cmdOpenForms(i).Width

		End If
	Next


	If sfn <> Me.ActiveForm.Name Then
		For i = 0 To cmdOpenForms.UBound
		If fn(i) = Me.ActiveForm.Name Then
			RefreshTabButtonFace i
			Exit For
		End If
	Next

	End If
	sfn = Me.ActiveForm.Name
End Function

وحتى الان عندي امل ان اجد احد يجيب على سؤالي

شاكرا لكل من فكر ان يساعدني

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

لو سمحت ممكن تحط برنامج في المرفقات يكون افضل

انا بحاول اساعدك بس الكود طويل شوية ومافي وقت كفاية علشان اشوف كل سطر فالاحسن اننا نركز على الخطأ

ونحاول نصلحه

الى اللقاء

شكرا اخي العزيز

لكن العمل جدا كبير فلا يمكن ارفاقه

لكن حسب فهمي البسيط

وبما اني مبتداء وحاول اتعلم

توصلت لهذا

وهو نقص في بعض الادوات في المشروع

لكن لم اجد هذا الادوات وانا حتى الان ابحث عنها

السطر 181: صنف HSES.b8ChildTitleBar من الاداة b8Title لم يحمل اداة الصنف.

السطر 206: صنف MSComctlLib.ImageList من الاداة icoHeader لم يحمل اداة الصنف.

السطر 228: صنف HSES.b8SContainer من الاداة pbBGButton لم يحمل اداة الصنف.

السطر 267: صنف MSComctlLib.ListView من الاداة listRecord لم يحمل اداة الصنف.

السطر 334: صنف MSComctlLib.ImageList من الاداة ilRecordIco لم يحمل اداة الصنف.

السطر 353: صنف HSES.b8Container من الاداة b8cMain لم يحمل اداة الصنف.

فاذا كان ممكن تعطيني الطريقة الحصول عليها