لايتم التنفيذ الجمل التي تلي عبارة message box

مغلق

بدأه mse07 في 6 مايو 2007 · 6 رد · 696 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#16 مايو 2007 في 10:06 صاحب الموضوع

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

لدي برنامج يظهر فيه messagebox ولايتم تنفيذ الجمله التي تلي جملة messagebox الا بالضغط على احد ازرار الصندوق

هل هناك طريقه لاظهار المسج بوكس وتنفيذ الجمل التي تليه بشكل الي دون الحاجه الى الضغط على احد ازرار messagebox .

شكرا

#26 مايو 2007 في 10:44

يرجا التوضيح اكثر

#36 مايو 2007 في 10:53

مثال للتوضيح :

Text1.Text = ("hello word")

MsgBox ("hello word")

#46 مايو 2007 في 13:13

الأخ الفاضل ...

ModelessMsgBox.zip

ارجوا ان يفيدك هذا المثال فى ما تريد انجازه، بأستخدام (MS-VB 6.0)

يمكنك ذلك بعمل Form مخفى (كما فى المثال المرفق) يتم استدعائه بعد تمرير المتغيرات له بستخدام (vbModeless) وهو الذى يقوم بعر الـ MsgBox ثم إنهاء نفسه بعد انهاء الـMsgBox

أومن خلال تصميم Form تستخدمها لعرض الرسائل للمستخدم (يعطى مرونه اكبر فى الكل والخط والرسومات الازرار... الخ)، ويتم استدعائها بأستخدام (vbModeless) بالشكل التالى

	frmMyMsgBox.Show vbModeless, Me

شكراً

Eng. Usama El-Mokadem

Nothing is impossible, the word impossible itself says that: I M - Possible

#56 مايو 2007 في 15:21

ممكن تخلي ظهور الرسالة كل فترة

مثلاً :

Private Sub Form_Load()
	Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim intmsg As Integer
	intmsg = MsgBox("لقد مرت ثانية فظهرت الرسالة", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading + vbOKOnly, "الرسالة الزمنية") = vbOK
End Sub