نمایش یک پنجره هنگام شروع ویندوز

[sosono]

با سلام و خسته نباشید
یه سوال ساده : می خواستم بدونم چطور می شه یه پنجره رو هنگام شروع ویندوز نمایش داد طوری که از گوشه سمت راست و پائین مانیتور آروم آروم بالا بیاد. تقریبا چیزی شبیه به پنجره برنامه Sun calendar .

[shask00l]

برای شروع برنامت در ابتدای کار ویندوز باید برنامتو بزاری توی startup folder .... یا از طریق رجیستری به برنامت لینک بدی .
برای بالا آوردن برنامه از گوشه سمت چپ و راست یا هرجای دیگه بهتره از timer استفاده کنی . و با دستکاری مقدار های top و left پنجره مربوطه جاشو تغییر بدی .

موفق باشید .

[morteza_261]

سلام
کد برای آرام آرام بالا آمدن فرم

در ابتدا متغییر های زیر را تعریف کنید:



Private X As Integer = 0
Private Y As Integer = 0


برای فرم لود:


X = Screen.GetWorkingArea(Me).Width
Y = Screen.GetWorkingArea(Me).Height
Me.Location = New Point(X - Me.Width, Y + Me.Height)
Timer1.Enabled = True
Timer1.Start()



برای تایمر اول:(جهت بالا آمدن فرم)


Dim i As Integer = Me.Location.Y
If i > Y - Me.Height Then
Me.Location = New Point(X - Me.Width, i - 8)
Else
Timer1.Stop()
Timer1.Enabled = False
End If


برای تایمر دوم:(جهت پایین رفتن و بسته شدن فرم)


Dim i As Integer = Me.Location.Y
If i < Y Then
Me.Location = New Point(X - Me.Width, i + 8)
Else
Timer2.Stop()
Timer2.Enabled = False
Me.Close()
End If

[sosono]

برای شروع برنامت در ابتدای کار ویندوز باید برنامتو بزاری توی startup folder .... یا از طریق رجیستری به برنامت لینک بدی .
خیلی ممنون از راهنمائی شما

[sosono]

سلام
کد برای آرام آرام بالا آمدن فرم
در ابتدا متغییر های زیر را تعریف کنید:

با تشکر از کدهای ارسالی شما ، خیلی عالی بود فقط فکر می کنم برای پائین رفتن فرم این کد رو توی قسمت else تایمر اول کم داشت

Timer2.Enabled = True