سپهر-111
جمعه 06 دی 1392, 10:23 صبح
سلام دوستان و بزرگان :لبخندساده:
من به یک مشکل برخورد کردم (البته قبلا راه حلش میدونستم ولی الان یادم رفته:اشتباه::ناراحت:)
من یک حلقه فور دارم قبل از شروع میخوام تو یک لیبل بنویسم "لطفا صبر کنید"
و بعد از پایان حلقه فور بنویسم "تمام شد" .
حالا مشکل اینه که : "لطفا صبر کنید" که قبل از شروع حلقه در لیبل قرار میدم نمایش داده نمیشه !
و فقط زمانی که حلقه تمام شد، برنامه به خط بعدی میره و "تمام شد" را نمایش میده . . .
ممنون میشم دوستان گل راهنمایی بفرمایند
باز هم مثل همیشه از حسن توجه دوستان سپاسگزارم:قلب:
Open lsFileName For Output As #1 '----------'ذخيره فايل
Dim f1 As Double
Dim f2 As Double
Dim f3 As Double
f2 = Text2.Text
f3 = Text3.Text
Label1.Caption = ". . . لطفا صبر کنيد"
For f1 = f2 To f3
Print #1, Text1.Text & f1 & Text4.Text
Next
Label1.Caption = "! تمام شد"
Close #1
من به یک مشکل برخورد کردم (البته قبلا راه حلش میدونستم ولی الان یادم رفته:اشتباه::ناراحت:)
من یک حلقه فور دارم قبل از شروع میخوام تو یک لیبل بنویسم "لطفا صبر کنید"
و بعد از پایان حلقه فور بنویسم "تمام شد" .
حالا مشکل اینه که : "لطفا صبر کنید" که قبل از شروع حلقه در لیبل قرار میدم نمایش داده نمیشه !
و فقط زمانی که حلقه تمام شد، برنامه به خط بعدی میره و "تمام شد" را نمایش میده . . .
ممنون میشم دوستان گل راهنمایی بفرمایند
باز هم مثل همیشه از حسن توجه دوستان سپاسگزارم:قلب:
Open lsFileName For Output As #1 '----------'ذخيره فايل
Dim f1 As Double
Dim f2 As Double
Dim f3 As Double
f2 = Text2.Text
f3 = Text3.Text
Label1.Caption = ". . . لطفا صبر کنيد"
For f1 = f2 To f3
Print #1, Text1.Text & f1 & Text4.Text
Next
Label1.Caption = "! تمام شد"
Close #1