السلام عليكم ورحمه الله وبركاته
اخواني هل هناك طريقه اجعل امرين load يشتغلوا مع بعض في البروجكت او البرنامج
تحياتي لكم
السلام عليكم ورحمه الله وبركاته
اخواني هل هناك طريقه اجعل امرين load يشتغلوا مع بعض في البروجكت او البرنامج
تحياتي لكم
Load ده أولا Event و انت عاوز تعمل ايه ممكن توضح؟
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
اريد اسوي اثنين او ثلاث load في نفس المشروع او البرجكت او الفورم او البرنامج
هذا كل المطلوب
ممكن تضمن الاوامر اللي تريدها في عملية الـ Load الاولى و الوحيدة ، لأن عملية الـ Load تتم مرة واحده (منطقياً ، صح) ، فلو عندك عمليات تحميل اخرى ممكن تضمنها داخل عملية الـ Load ، مثلاً لو تريد ان تفعل فورمين (two forms) ممكن تستعدي الفورم الثاني اثناء انطلاق الفورم الاول ... و هكذا
بنت اليمن ،،
لا اله الا الله .. محمد رسول الله
(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)
يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين
شكرا وجزاك الله خير بنت اليمن
ما فهمته انا اضمن load كل الاوامر التي اريدها لو كانت اربعه او خمسه بدون كا ياثر هذا على عمل البرنامج صح؟
يابني احنا بنكتب بلاوي في ال Load يعني نملأ كومبو بوكس من قاعدة بيانات أو نبحث عن شيء او نعمل Dir علي الملفات لكن بصراحة ال Threads في ال DotNet حلت هذه المشكلة
لكن ممكن تشتغل عادي
خد عندك مثلا هذا الكود
Private Sub Form_Load()
Dim i As Long
Dim x As Integer
rs.Open "select * from out order by permno", cn, 1, 3
' ãáÃ ßæãÈæ ÇáÇäæÇÚ
rstemp.Open "select type from types order by type", cn, 1, 3
For i = 1 To rstemp.RecordCount
combo(0).AddItem rstemp!Type
rstemp.MoveNext
DoEvents
Next i
'click åÐÇ ÇáÔÑØ íÓÊÏÚí ÍÏË
' áßæãÈæ ÇáÃäæÇÚ
If rstemp.RecordCount > 0 Then combo(0).ListIndex = 0
rstemp.Close
' ãáÃ ßæãÈæ ÇáÕíÏáíÇÊ
rstemp.Open "select name from cust order by name", cn, 1, 3
For i = 1 To rstemp.RecordCount
combo(2).AddItem rstemp!Name
rstemp.MoveNext
DoEvents
Next i
If rstemp.RecordCount > 0 Then combo(2).ListIndex = 0
rstemp.Close
' ãáÃ ßæãÈæ ÇáãäÏæÈíä
rstemp.Open "select name from emp where job in ('ãäÏæÈ' ,'ãäÏæÈ ãÈíÚÇÊ') order by name", cn, 1, 3
For i = 1 To rstemp.RecordCount
combo(3).AddItem rstemp!Name
rstemp.MoveNext
DoEvents
Next i
If rstemp.RecordCount > 0 Then combo(3).ListIndex = 0
rstemp.Close
Set rstemp = Nothing
For x = 4 To 7
combo(x).ListIndex = 0
Next x
centerme Me
disableall
showdata
End Subكل هذا أكتبه في ال Load دون ان يؤثر عي شيء
عي العموم لو حبيت انك تحل المشكلة لو اكوادك ضخمة جدا ممكن تعمل Progress bar حتي لا يمل المستخدم أو تقوم باظهار فورم جميلة و تكتب عليها جاري التحميل
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
هذا الموضوع مغلق.