السلام عليكم
ارجو من اخواني افادتي الله يجزيكم خير
كيف ممكن تمرير اسم فورم الى procedure اخر مثال
private sub main()
form2 me.name
endsub
---------------
private form2(frm as form)
print frm المفروض هنا يطبع اسم الفورم main
endsub
وشكرا لكم
(f)
كيف ممكن تمرير اسم الفورم الى procedure اخر
مغلق
مرر له الـ me أو الـ form1 أو أي فورم و ليس اسمه
تحياتي
السلام عليكم
اخي شكرا على الرد بس اعتقد مافهمت المقصد
----
انا عندي procedure للالوان اريد عند ما اذهب الى اي فورم ارسل فقط اسم الفورم وهدا ال procedure يقوم بالمهمة بدلا ما انشأ لكل فورم نفس الحالة
اختصارا للكود اذن في الحالة هده يتطلب ان تمرر اسم الفورم
وقد يكون عندي عددة فورم على الشاشة مفتوحة وعى فكرة يوجد داخل البروسيجر شروط لان كل فورم ممكن يعطى لون غير الاخر
وشكرا لك
(f)
استخدم هذا الكود كمثال..
Private Sub Form_Click() ff Me.Name End Sub Public Sub ff(frm As String) Select Case frm Case Form1 Print frm End Select End Sub
يتم استلام اسم الفورم عل هيئه String ومن ثم تتم عمليه الفحص لمعرفه ما هي الفورم و عمل اللازم
السلام عليكم
من فترة استخدمت هذه الطريقة و لكن على Frame و هي كالتالي :
Public ShowFrame (Fra as Frame)
Fra.visible=true
Fra.width=1000
.............
.........
End Function
و استدعائها ShowFrame Frame1
و بالنسبة للفورمات الـ Forms فأمامك أحد الطريقين إما أن تمرر أي معلومة عن الفورم و الـ Procedure يبحث عن رقم الفورم الموافق لهذه المعلومة أو أن تمرر الفورم نفسه كعنصر .
لأنه كل فورم يعطى رقم معين و تستطيع استدعائه من رقمه فمثلاً .
لنفترض أن عندك 3 فورمات مفتوحة 3 Forms و تريد التحكم بالفورم الثاني فتقوم بالتالي :
Forms(1).Property=value
و هكذا إذ أن Object الـ Forms هو عبارة عن عنصر يشمل كل الفورمات لهذا التطبيق المعين .
و لكن جرب هذا الكود :
ضعه في موديول
Public Function TestForm(Fr As Form)
Debug.Print Fr.Width
End Function
و استدعائه
TestForm Me
و إذا ما ظبط الكود معك ياريت لو توضح بالضبط عمل هذا الجزء من برنامجك حتى أقدر أساعدك .
تحياتي
السلام عليكم
شكرا اخواني على الافادة
الاخ blckice
الكود تبعك 100%
لكم تقديري(f)
السلام عليكم
عندي فورم واريد انشاء cotrols (ازرار)على هدا الفورة برمجيا فكتبت هدا الكود
اولا اعلنت عن المتغيرات التالية في declartion section
dim withevents btn as VB.commandbutton
هنا تم تعريف المتغير btn على انه زر ولكن لم يضاف الى الفورم
ارجو من اخواني الكود الذي يضيف اللازرار الى الفورم
حسب ما علمت بعد التقاط الافكار وقد يساعد
ممكن تعمل الكود التالي ولكن لم يشتغل
set btn = controls.add("vb.commandbutton"),btn,me)
وهدا الكود موجود في المكتبة VB OLE
بحثت عن هده المكتبة في الكومبيوتر ولكن لم اجدها
افيدوني جزاكم الله خيرا
السلام عليكم
هذا هو الكود الصحيح لما تطلبه
Dim btn As VB.CommandButton
قمت بتعريفه فقط لتسهيل عملية كتابة الكود و حتى يعرف الفيجوال بيسك بأن هذا العنصر هو عنصر زر ...
و بعدها حط زر جديد على الفورم و حط هالكود ...
Private Sub Command1_Click()
Set btn = Me.Controls.Add("VB.CommandButton", "btn")
btn.Caption = "HI slhslm"
btn.Visible = True
End Sub
و إذا ما جاي على بالك توجع راسك استخدم مصفوفات العناصر
بعد ما يكون عندك زر و الـ INDEX له 0 تقوم بإضافة زر جديد من خلال
load command1(1)
.....
....
...
..
.
و تقبل تحياتي
السلام عليكم
تقديري لك اخوي blackice
انت 100%
استخدمت الكود التالي وشغال هدا بفضل الله ثم بارشادك
Public WithEvents btn As VB.CommandButton
Private Sub Form_Load()
Set btn = Me.Controls.Add("VB.CommandButton", "btn")
btn.Caption = "HI slhslm"
btn.Visible = True
End Sub
اكررررررررررر لك شكرييييييي وتقديرييييييييييييي
(f)
هذا الموضوع مغلق.