تكفون أريد كود يجعل الشاشة تظهر فترة ثم تختفي

بس حط تايمر وعرف متغير في الجينيرال على إنت من نوع إنتجر وبالتايمر بتكتب

dim i as intger 


Timer _ Timer 
if i=100 then 
unload me 
load form2
end if 
end sub

بس :)

هذا الكود جيد لكنه لن يتم تنفيذه لان i لن تتحول قيمتها الى 100 :)

Private sub Form_Load()
Me.show
Timer1.Interval = 1000 '1second
end sub

Private sub Timer1_Timer()
Form2.show
end sub

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

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

الأخ الكريم تحية طيبة وبعد .... جرب هذا الكود

Option Explicit

Dim Time as integer

Private Sub Form_Load()

Time=0

Timer1.Enterval=1000

End Sub

Private Sub Timer1(Time)

if Time>=10 then

'My Form's Hiden not Unloading

Me.Hide

end if

Time=Time+1

End Sub

jhkjhjhk

معليش على الخبطة المكتوبة فوق

بأشكر الأخ bastr3 و Maverick و m_elgilany على الخدمة التي قدمتوها لي

الأخ bastr3 يفضل الفورم مفتوح على طول ولا يظهر الفورم الثاني

الأخ Maverick يظهر الفورم الثاني لكن عند عمل إغلاق للفورم الثاني يظهر الفورم الأول وعلى طول إذا أضغط يظهر الفورم الاول بشكل مستمر

الأخ m_elgilany نفس Maverick

مشكورين وماتقصرون

لقيت كود في برنامج بنك الأكواد الفيجوالية ساعدني وعند عمل إغلاق للفورم بس مايطلع خارج الرن

راح أوضحلكم أنا عملت أيه

كتبت في الشاشة الترحيبية هذا الكود

Private Sub Form_Load()

Dim Start, Finsh

Form2.Show

Start = Timer

Finsh = Start + 3

Do Until Finsh <= Timer

DoEvents

Loop

Unload Form2

Form1.Show

End Sub

وفي الفورم الثاني عملت كوماند وكتبت في هذا الكود يعمل حركة قبل إغلاق الفورم

Sub SlideWindow(frmSlide As Form, iSpeed As Integer)

While frmSlide.Left + frmSlide.Width < Screen.Width

DoEvents

frmSlide.Left = frmSlide.Left + iSpeed

Wend

While frmSlide.Top - frmSlide.Height < Screen.Height

DoEvents

frmSlide.Top = frmSlide.Top + iSpeed

Wend

Unload frmSlide

End Sub

Private Sub Command1_Click()

Call SlideWindow(Form2, 100)

End Sub

أتمنى إنكم تعرفون غلط الإغلاق لأن كما قلت سابقا يقفل الفورم ولايخرج خارج الرن

وشكرا جزيلا لكم والله الموفق

ومانستغنى عن خدماتك

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

قولوا آمين

تفضل أخي هذا مثال للعملية

أرجو أن يكون هو ما طلبت

تحياتي

نقل الشاشة.zip

شكرا أخ عماني الملف المرفق صلح لكن لابد من أن أستغني عن حركة الفورم عند الإغلاق وشكرا

والله يوفق دنيا آخرة أخوي عماني

السلام عليكم

الأخ عماني

أخيرا وصلت للذي طلبته هو عمل شاشة تظهر لفترة ثم تختفي و في الفورم الثاني عند الضغط على الكوماند يتم غلق الفورم بالرن

والحمد لله طلعت مع حركة الغلاق وشكرا

وأشكر الأخوان على مساعدتي bastr3 و Maverick و m_elgilany و omani

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

تفضل أخي هذا المثال لعمل تأثير سريع على إنتقال الفورم

نقل الشاشة بالتأثير.zip

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

وشكرا مرة أخرى

الله يكثر من أمثالك ويجعل أعمالك في ميزان حسناتك في الدنيا والأخرة

وشكرا أخوي على الذي قدمته لي