الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال عن load

مغلق
بدأه foxxxx في 30 أكتوبر 2005 · 5 رد · 522 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني هل هناك طريقه اجعل امرين load يشتغلوا مع بعض في البروجكت او البرنامج

تحياتي لكم

#2

Load ده أولا Event و انت عاوز تعمل ايه ممكن توضح؟

Oracle 10G Certified Professional Developer.

عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

#3

اريد اسوي اثنين او ثلاث load في نفس المشروع او البرجكت او الفورم او البرنامج

هذا كل المطلوب

#4

ممكن تضمن الاوامر اللي تريدها في عملية الـ Load الاولى و الوحيدة ، لأن عملية الـ Load تتم مرة واحده (منطقياً ، صح) ، فلو عندك عمليات تحميل اخرى ممكن تضمنها داخل عملية الـ Load ، مثلاً لو تريد ان تفعل فورمين (two forms) ممكن تستعدي الفورم الثاني اثناء انطلاق الفورم الاول ... و هكذا

بنت اليمن ،،

لا اله الا الله .. محمد رسول الله

(* ربِ اجعلني مقيم الصلاة و من ذريتي ، ربنا و تقبل دعـاء *)

يا حيّ يا قيـوم ... برحمتك استغيث ... اصلح لي شأني كله و لا تكلني الى نفسي طرفة عين

#5

شكرا وجزاك الله خير بنت اليمن

ما فهمته انا اضمن load كل الاوامر التي اريدها لو كانت اربعه او خمسه بدون كا ياثر هذا على عمل البرنامج صح؟

#6

يابني احنا بنكتب بلاوي في ال 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 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي

هذا الموضوع مغلق.

مواضيع مشابهة