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

اريد هذا الامر يعمل مع هذا الكود

مغلق
بدأه فؤاد سعد في 24 ديسمبر 2007 · 3 رد · 475 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

هذا سورس كود لمعرفه اصدار الفيجا (كرته الشاشه)

 Private Function vega()
	 On Error Resume Next
	 Me.AutoRedraw = True
	 Set objWMIService = GetObject("winmgmts:\\")
	 Set colItems = objWMIService.InstancesOf("Win32_DisplayConfiguration")
	 For Each objItem In colItems
	   Print "DriverVersion: " & objItem.DriverVersion
	 Next
End Function

Private Sub Command1_Click()
Text1.Text = vega
End Sub

كما موضح ارد عند الضغط على command1 يجي على التكست واحد

للاهميه

تحياتي...................

فؤاد سعد

تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 24 ديسمبر 2007 في 18:44

#2 
Private Function Vega() As String
	Set objWMIService = GetObject("winmgmts:\\")
	Set colItems = objWMIService.InstancesOf("Win32_DisplayConfiguration")
	For Each objItem In colItems
		Vega = "DriverVersion: " & objItem.DriverVersion
	Next
End Function

إذا أردت أن تسند قيمة إلى دالة ، يمكنك فعل ذلك تماما كالمتغيرات ،

اسم_الدالة = القيمة

وهذا هو الفرق بين الإجراء Sub والدالة Function ، حيث أن الأول لا يعيد قيمة بينما الدالة تعيد قيمة ..

سبحان الله وبحمده ... سبحان الله العظيم

#3

شكككككككككككككككككككككككككككككرا لك اخي والله انت فاهمني انا فعلا كنت محتاج دا

بس اريد ان استفسر عن شي من اجين جبت هذا الامر objItem.DriverVersion

انا اريد امر لاي كود لوضعه

يعني الامر الي بيشغل اي كود

يعني ازاي اعرف في اي كود ان دا الامر الي بيشغل الكود ؟؟؟؟؟؟

#4

اه اه خلاص فهمت شكرا اخي على المعلومه ومعلش على الازعاج

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…