09-06-13, 07:32 AM
09-06-13, 08:03 AM
وعليك السلام
- إذا كانت الفورم غير محمله فأمر إظهارها Form1.Show وأمر إخفائها Form1.Hide كلاهما يقوم بتحميلها وأيضاً بإعادة تحميلها إن إغلقت بالأمر Unload Form1 .
- تحياتي .
- إذا كانت الفورم غير محمله فأمر إظهارها Form1.Show وأمر إخفائها Form1.Hide كلاهما يقوم بتحميلها وأيضاً بإعادة تحميلها إن إغلقت بالأمر Unload Form1 .
- تحياتي .
09-06-13, 08:15 AM
VB_Coder كتب :وعليك السلام
- إذا كانت الفورم غير محمله فأمر إظهارها Form1.Show وأمر إخفائها Form1.Hide كلاهما يقوم بتحميلها وأيضاً بإعادة تحميلها إن إغلقت بالأمر Unload Form1 .
- تحياتي .
هل توجد طرق اخرى حيث باستعمال Unload Form1 يغلق البرنامج
و الامران الآخران لا يحققان المطلوب حيث لدي كوماند لا تنفذ اوامره الا بعد تشغيل و اطفاء البرنامج ثم الضغط عليه اذا ما انتقلت لفورم آخر
و شكرا على الاكواد
10-06-13, 05:00 AM
السلام عليكم
جرب التالي
بالتوفيق
جرب التالي
PHP كود :
Private Sub Command2_Click()
Unload Me
Me.Show
End Sub
بالتوفيق
11-06-13, 08:02 AM
ALBRNS كتب :السلام عليكم
جرب التالي
PHP كود :
Private Sub Command2_Click()
Unload Me
Me.Show
End Sub
بالتوفيق
يغلق البرنامج اخي
11-06-13, 08:56 AM
كيف تقصد أخي العزيز ...
اعتقد انه هذا الكود الانسب .. لانني جربته ويعمل ريفرش ويغلق ويفتخ بسرعه
Unload Me
Me.Show
اذا مافي وضح مقصدك ...
اعتقد انه هذا الكود الانسب .. لانني جربته ويعمل ريفرش ويغلق ويفتخ بسرعه
Unload Me
Me.Show
اذا مافي وضح مقصدك ...
11-06-13, 05:39 PM
السلام عليكم
مع اني مجرب الكود ويعمل بشكل جيد
هذا كود اخر لما تريد
بالتوفيق .
مع اني مجرب الكود ويعمل بشكل جيد
هذا كود اخر لما تريد
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, 06:03 PM
السلام عليكم ورحمة الله وبركاته
هذا مثال قديم لدي قد يفيدك.... (الآن لا يعمل لدي vb6 بسبب نظام ويندوز 7)
[COLOR="#FF0000"]ملاحظة هامة: يجب عمل Make EXE للمشروع ومن ثم تشغيل ملف exe وليس من داخل الفجوال بيسيك
[/color]
السلام عليكم ورحمة الله وبركاته
11-06-13, 10:04 PM
شكرا للجميع بس كنت حاطط الكود التالي و طلع هو السبب
كود :
Private Sub Form_Unload(Cancel As Integer)
End
End Sub12-06-13, 01:53 AM
Private Sub Form_Unload(Cancel As Integer)
Cancel=true
form1.show
End Sub
Cancel=true
form1.show
End Sub