وين الخطأ؟؟؟

هل تريد من البرنامج أن يضع ال commandButton الذي قام المستخدم بإدخال اسمه في إحداثيات (0,0)

في الحقيقة الموضوع أبعد من ذلك لكن وضعت هذا كسؤال يحل لي المشكلة إذا تم حله.

فأنا أريد أن أمرر للدالة الControl الذي يحتاج غلى نفس التهيئة في عدد مختلف من الForms وذلك من اجل عدم تكرار اسطر تهيئة الControl .

أقصد بالتهيئة: مثلاً بالنسبة لل Grid تحديد عدد الأعمدة وعرض الأعمدة، عناوين الأعمدة، عرض الGrid نفسها....الخ.

وطبعاً الأمر يختلف بالنسبة لل Button ... وهكذا.

فأنا أريد أن أخبر الدالة بأن تقوم بتهيئة ال Grid مثلاً في الForm فأكتب sub ذو هدف عام في Module وأمرر له الControls المراد تهيئتها.

فقط.

السلام عليكم

لا يجوز انك تمرر الcontrol باسمه على شكل نص

يعني في البرنامج اللي انت كاتبه يجب ان تمرر الcommand بالصيغة التالية::

Control(command1)

و ليس ::

Control("command1")

الفارق

هو في كيفية تمرير الكنترول.. تمرير الاسم بعلامات التنصيص سيسبب خطأ لانك بهذه الطريقة تمرر متغير من نوع string و ليس متغير من نوع command

لو اصريت على استخدام الاسم كنص فالحل الاسهل هو انك تستخدم if statement في دالة Control لكي يتم على اساسها معرفة الكنترول المطلوب..

يعني في هذا المثال::

Function Control(X as string)
if x = "command1" then
	dim y as command
y=form1.command1
	With y
  .Left = 0
  .Top = 0
	End With
end if
End Function