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

طريقة او كود لعرض صورة تظهر قبل بداية البرنامج

بدأه ahmedico في 21 فبراير 2009 · 5 رد · 1,048 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

كنت اتسائل اذا ما كانت هناك طريقة لإظهار صورة خلال تحميل او قبل بداية البرنامج

زي الصورة الخاصة مثلا بالفيجوال بيسك التي تظهر على الشاشة 5ثواني قبل بداية

البرنامج وشكرا

مع العلم انني لسة نيو / جديد في الفيجول بيسك

فإستحملوني معلش

#2

أهلا أخي

استخدم SplashScreen و قم بالتغيير فيها حسب رغبتك

لأضافتها اتبع التالي

الضغط على المشروع بالزر الأيمن

add new item

SplashScreen

و لا تنسى تغيير بداية التشغيل إلى SplashScreen

اتمنى أن أكون افدتك

#3

اخي المدلهم ...

شكرا جزيلا على سرعة ردك

ولكني لا استطيع ان اجد splashscreen

كما هو موضح

post-181822-1235214693_thumb.jpg

تم تعديل هذه المشاركة بواسطة ahmedico في 21 فبراير 2009 في 14:29

#4

اخي احمد

اضغط على add itemالموجود في شريط الادوات اسفل شريط القوائم ستجد ال splash screen

ومعليش كمان انا مبتدئ

وهذه هي الصوره

وتقبل مروري اخوك

incomplete

post-193120-1235248551_thumb.gif

تم تعديل هذه المشاركة بواسطة incomplete في 21 فبراير 2009 في 23:39

#5

اخي الفاضل

من الواضح انك تستخدم نسخة 2003 والطريقة التي ذكرها الأخوة موجودة فقط في نسخة 2005 وما يليها من نسخ اخري

اتبع الخطوات التالية لعمل السبلاش سكرين

افترض ان لديك في المشروع الخاص بك فورم واحد فقط هو Form1

اضف الي مشروعك فورم جديد وليكن مثلا form2

ضع في هذا الفورم ما تريد من بيانات وصور مثلا تريد عرضها في بداية البرنامج

أضف Timer الي الفورم ثم اضبط خاصية Timer Interval واجعلها مثلا تساوي 10000 وهي تساوي 10 ثواني

اضف الي المشروع موديول ثم قم بكتابة الكود بالشكل التالي في الموديول



Public Sub Main()

Dim splashScreen As New Form2
splashScreen.ShowDialog()
Application.Run(New Form1)
End Sub

End Module
 Module Module1

وفي الفورم الثاني وهو المقصود به السبلاش سكرين اكتب الكود بالشكل التالي


Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ثم من قائمة Project اختار Project Properties وهي اخر اختيار في القائمة ثم عليك ضبط خاصية Startup Object بأن تجعلها تساوي Sub Main

ثم قم بتجربة المشروع وإن شاء الله تظبط معاك

بالتوفيق

أخوك عمر

تم تعديل هذه المشاركة بواسطة a_pess في 22 فبراير 2009 في 13:04

#6

جزاك الله خير استاذ عمر

وجزاكم الله خير يا اخوة على تعاونكم

والف والف شكر

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

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

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

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

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