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

كيف يمكنني تعديل هذا الكود

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

السلام عليكم

الكود

Private Sub Command1_Click(Index As Integer)
 هنا  ما ذا اكتب حتى اجعل الصوره الي نزلت من الموقع تنفتح تلقائيا في جهاز  من يفتح البرنامج  
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ret = DownloadFile("http://members.lycos.co.uk/t3ze/23.gif", _
"c:\Program Files\23.gif")
End Sub

طبعا الموضوع عباره عن كودين الكود الثاني هو تنزيل الصوره من الا نترنت على الجهاز لكن الكود الاول اريد الامر الذي يجعل الصوره تفتح مباشره بعد تنزيلها على الجهاز

تم تعديل هذه المشاركة بواسطة foxxxx في 10 أغسطس 2005 في 14:12

#2

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

قم بالاعلان عن الدالة ShellExecute كما يلى

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

وقم باستدعاء هذا الكود عند الانتهاء من التحميل

ShellExecute Me.hwnd, "Open", YourFile, "", "", 1

غير YourFile الى مسار الملف وليكن "C:\MyPic.jpg"

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

بس اخوي ياريت تقولي الا علان وين احطه في اي مكان بلضبط بعدين اخوي لو غيرت Private Declare الى Public شو يصير يعني شو الفرق

شوكرا لمساعدتك

تم تعديل هذه المشاركة بواسطة foxxxx في 10 أغسطس 2005 في 14:36

#4

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

الاعلان عن الدالة اذا كان بالكلمة Private فيوضع داخل الفورم الذى سيستخدم الدالة اما اذا كنت تريد استخدام الدالة على المستوى العام او فى اى مكان فى البرنامج فغير كلمة Private الى Public ولكن يتم الاعلان فى هذه الحالة داخل وحدة نمطية Module :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

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

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