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

مجموعة من الأكواد المفيدة

مغلق
بدأه سلام الشرجبي في 26 مارس 2006 · 9 رد · 797 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

احببت ان اقدم لكم هذه الأكواد وهي عبارة عن أربعة اجراءات لها وظائف مختلفة و اتمنى ان تنال اعجابكم

1- هذا الاجراء لتأجيل الكود عدد معين من الثواني

Private Sub Wait(Sec As Single)
    Dim tmr As Single
    tmr = Timer + Sec
    While tmr > Timer
        DoEvents
    Wend

    'الاستدعاء
    'Wait 5
End Sub

2- هذا لفتح موقع معين في المتصفح

Private Sub Open_Link(Link As String)
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & Link

    'الاستدعاء
    'Open_Link "www.msn.com"
End Sub

3-لتوليد الكائنات

Private Sub Load_Object(ObjectX As Object)
    'Index = 0 يجب انشاء كائن على الفورم وجعل الخاصية _
    لكي يتم توليد الكائنات منه
    
    Load (ObjectX(ObjectX.Count))
    ObjectX(ObjectX.Count - 1).Visible = True
    ObjectX(ObjectX.Count - 1).Top = ObjectX(ObjectX.Count).Top + ObjectX(ObjectX.Count - 1).Height
    'الاستدعاء
    'Load_Object Text1
End Sub

4- هذا لطباعة نص في موقع معين على الفورم

Private Sub PrintXY(PString As String, X As Single, Y As Single)
    CurrentX = X: CurrentY = Y
    Me.Print PString

    'الاستدعاء
    'PrintXY "String", 60, 60
End Sub
#2

مشكووووور

vipersig.jpg

المحاسب

سامح إبراهيم عبداللطيف

sameh_ibm@hotmail.com

SAMHOOON

#3

مشكوررررر

و الله يوفقك

Mimo

040.gif

#4

جزاك الله الف خير

#5

مشكور والله يعطيك العافية

بس أخوي جاني خطأ بالنسبة لكود توليد الكائن

وبما أن الفجيوال بيسك عندي عربي يجيني رسالة خطأ "عنصر المصفوفة غير موجود"

ويوقف المؤشر عند السطر التالي

ObjectX(ObjectX.Count - 1).Top = ObjectX(ObjectX.Count).Top + ObjectX(ObjectX.Count - 1).Height

ياليت أخوي تساعدني لأن الكود قاعد أدوره من زمان والحمد لله لقيته هنا

مشكور مره ثانية والله يعطيك العافية على المجهود الي تبذله لخدمة أخوانك المسلمين

#6

تسلم اخي سلام

ولله مجهود كبير

#7

شكرا علي هذا المجهود العظيــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــم

#8

شكرا جزيلا على هذه الاكواد الجميلة

#9

اشكركم جزيلاً على الردود و بارك الله فيكم

اقتباس
مشكور والله يعطيك العافية

بس أخوي جاني خطأ بالنسبة لكود توليد الكائن

وبما أن الفجيوال بيسك عندي عربي يجيني رسالة خطأ "عنصر المصفوفة غير موجود"

ويوقف المؤشر عند السطر التالي

ObjectX(ObjectX.Count - 1).Top = ObjectX(ObjectX.Count).Top + ObjectX(ObjectX.Count - 1).Height

ياليت أخوي تساعدني لأن الكود قاعد أدوره من زمان والحمد لله لقيته هنا

مشكور مره ثانية والله يعطيك العافية على المجهود الي تبذله لخدمة أخوانك المسلمين

أرجو المعذرة الخطاء من عندي وليس من عندك

ارجو منكم الانتباه الى ان الاجراء الخاص بتوليد الكائنات فيه خطاء و قد قمت بتصحيحه

إجراء توليد الكائنات

Private Sub Load_Object(ObjectX As Object)
   'Index = 0 يجب انشاء كائن على الفورم وجعل الخاصية _
   لكي يتم توليد الكائنات منه
   
   Load (ObjectX(ObjectX.Count))
   ObjectX(ObjectX.Count - 1).Visible = True
   ObjectX(ObjectX.Count - 1).Top = ObjectX(ObjectX.Count - 2).Top + ObjectX(ObjectX.Count - 1).Height
   'الاستدعاء
   'Load_Object Text1
End Sub

تم تعديل هذه المشاركة بواسطة سلام الشرجبي في 27 مارس 2006 في 19:08

#10

الف شكر

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

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

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