منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اعادة تحميل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : اعادة تحميل (/showthread.php?tid=9207)

اعادة تحميل - asto - 09-06-13

السلام عليكم

ما هو كود اعادة تحميل reload فورم ما

اعادة تحميل - VB_Coder - 09-06-13

وعليك السلام

- إذا كانت الفورم غير محمله فأمر إظهارها Form1.Show وأمر إخفائها Form1.Hide كلاهما يقوم بتحميلها وأيضاً بإعادة تحميلها إن إغلقت بالأمر Unload Form1 .

- تحياتي .

اعادة تحميل - asto - 09-06-13

VB_Coder كتب :وعليك السلام

- إذا كانت الفورم غير محمله فأمر إظهارها Form1.Show وأمر إخفائها Form1.Hide كلاهما يقوم بتحميلها وأيضاً بإعادة تحميلها إن إغلقت بالأمر Unload Form1 .

- تحياتي .


هل توجد طرق اخرى حيث باستعمال Unload Form1 يغلق البرنامج


و الامران الآخران لا يحققان المطلوب حيث لدي كوماند لا تنفذ اوامره الا بعد تشغيل و اطفاء البرنامج ثم الضغط عليه اذا ما انتقلت لفورم آخر


و شكرا على الاكواد

اعادة تحميل - ALBRNS - 10-06-13

السلام عليكم

جرب التالي

PHP كود :
Private Sub Command2_Click()
Unload Me
Me.Show
End Sub 

بالتوفيق

اعادة تحميل - asto - 11-06-13

ALBRNS كتب :السلام عليكم

جرب التالي

PHP كود :
Private Sub Command2_Click()
Unload Me
Me.Show
End Sub 

بالتوفيق

يغلق البرنامج اخي

اعادة تحميل - الميسري - 11-06-13

كيف تقصد أخي العزيز ...
اعتقد انه هذا الكود الانسب .. لانني جربته ويعمل ريفرش ويغلق ويفتخ بسرعه
Unload Me
Me.Show

اذا مافي وضح مقصدك ...

اعادة تحميل - ALBRNS - 11-06-13

السلام عليكم

مع اني مجرب الكود ويعمل بشكل جيد

هذا كود اخر لما تريد

PHP كود :
Public Sub Pause(Interval)
On Error Resume Next
Dim Delay
Delay = Timer
Do While Timer - Delay < Val(Interval)
DoEvents
Loop
End Sub

Private Sub Command1_Click()
Unload Me
Pause 1
Me.Show
End Sub 

بالتوفيق .

اعادة تحميل - @@أبورائد@@ - 11-06-13


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






هذا مثال قديم لدي قد يفيدك.... (الآن لا يعمل لدي vb6 بسبب نظام ويندوز 7)

[COLOR="#FF0000"]ملاحظة هامة: يجب عمل Make EXE للمشروع ومن ثم تشغيل ملف exe وليس من داخل الفجوال بيسيك




[/color]
السلام عليكم ورحمة الله وبركاته

اعادة تحميل - asto - 11-06-13

شكرا للجميع بس كنت حاطط الكود التالي و طلع هو السبب

كود :
Private Sub Form_Unload(Cancel As Integer)

End

End Sub


اعادة تحميل - محمود اكرم - 12-06-13

Private Sub Form_Unload(Cancel As Integer)
Cancel=true
form1.show

End Sub