View Full Version : سوال: نمایش یک پنجره هنگام شروع ویندوز
sosono
جمعه 25 بهمن 1387, 16:52 عصر
با سلام و خسته نباشید
یه سوال ساده : می خواستم بدونم چطور می شه یه پنجره رو هنگام شروع ویندوز نمایش داد طوری که از گوشه سمت راست و پائین مانیتور آروم آروم بالا بیاد. تقریبا چیزی شبیه به پنجره برنامه Sun calendar .
shask00l
جمعه 25 بهمن 1387, 17:27 عصر
برای شروع برنامت در ابتدای کار ویندوز باید برنامتو بزاری توی startup folder .... یا از طریق رجیستری به برنامت لینک بدی .
برای بالا آوردن برنامه از گوشه سمت چپ و راست یا هرجای دیگه بهتره از timer استفاده کنی . و با دستکاری مقدار های top و left پنجره مربوطه جاشو تغییر بدی .
موفق باشید .
morteza_261
جمعه 25 بهمن 1387, 18:45 عصر
سلام
کد برای آرام آرام بالا آمدن فرم
در ابتدا متغییر های زیر را تعریف کنید:
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
جمعه 25 بهمن 1387, 20:29 عصر
برای شروع برنامت در ابتدای کار ویندوز باید برنامتو بزاری توی startup folder .... یا از طریق رجیستری به برنامت لینک بدی .
خیلی ممنون از راهنمائی شما
sosono
جمعه 25 بهمن 1387, 21:50 عصر
سلام
کد برای آرام آرام بالا آمدن فرم
در ابتدا متغییر های زیر را تعریف کنید:
با تشکر از کدهای ارسالی شما ، خیلی عالی بود فقط فکر می کنم برای پائین رفتن فرم این کد رو توی قسمت else تایمر اول کم داشت
Timer2.Enabled = True
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.