خروج و تنظیمات

[kingdaniyal]

سلام دوستان
من 2 تا سوال داشتم که برام خیلی مهم هستند
1. من داخل فرم مادر یک دکمه قرار دادم ککه به هنگام فشردنش کل برنامه بسته میشه حتی فرم هایی که باز هستند.حالا میخوام این بسته شدن یکم گرافیکی بشه.یعنی وقتی دکمه رو زدم ابتدا فرم از پایین به سمت بالا کوچیک بشه بعد بسته بشه.فک کنم آسون باشه اما من بلد نبودم:ناراحت:
2. من یه فرم تنظیمات هم جدا از فرم مادر قرار دادم.داخل این فرم یه اسکرول بار هست.حالا میخوام کاربر با تغییر اسکرول بتونه شفافیت فرم مادر را تغییر بده یعنی مثلا از 100% به 50 % تغییرش بده

خیلی ممنون میشم کمکم کنید چون هر کاری کردم نشد.تو نت هم سرچ زدم اما پروژه هاش درستو حسابی معلوم نبود
با سپاس

[hosein320]

نمونه سرس

[shahryari]

سلام
درباره سوال اولت این کد به ذهنم رسید
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Height -= 10
If Me.Height < 40 Then
Application.Exit()
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Height = 400
Timer1.Interval = 50
End Sub
End Class

[kingdaniyal]

ایول هم ماله حسین کار کرد ه م ماله شهریاری
دستتون درد نکنه

[kingdaniyal]

نمونه سرس
فقط یه مشکل اگه من شفافیتو تغییر بدم دیگه شفافیت 100% نمیشه
چرا ؟

[xxnagin]

سلام
اینم برای تغییر شفافیت با trackbar

If TrackBar1.Value = 100 Then
Me.Opacity = 1
ElseIf TrackBar1.Value = 90 Then
Me.Opacity = 0.9
ElseIf TrackBar1.Value = 80 Then
Me.Opacity = 0.8
ElseIf TrackBar1.Value = 70 Then
Me.Opacity = 0.7
ElseIf TrackBar1.Value = 60 Then
Me.Opacity -= 0.6
ElseIf TrackBar1.Value = 50 Then
Me.Opacity = 0.5
ElseIf TrackBar1.Value = 40 Then
Me.Opacity = 0.4
ElseIf TrackBar1.Value = 30 Then
Me.Opacity = 0.3
ElseIf TrackBar1.Value = 20 Then
Me.Opacity = 0.2
ElseIf TrackBar1.Value = 10 Then
Me.Opacity = 0.1
End If

[hosein320]

فقط یه مشکل اگه من شفافیتو تغییر بدم دیگه شفافیت 100% نمیشه
چرا ؟

مقدار maximum اسکرول رو بزارین روی 109
اینجوری اسکرول بیشتر از 91 نمیره(وقتی روی صد باشه)
دلیلشو نمیدونم:گیج:

[shahryari]

سلام
اینم برای تغییر شفافیت با trackbar

If TrackBar1.Value = 100 Then
Me.Opacity = 1
ElseIf TrackBar1.Value = 90 Then
Me.Opacity = 0.9
ElseIf TrackBar1.Value = 80 Then
Me.Opacity = 0.8
ElseIf TrackBar1.Value = 70 Then
Me.Opacity = 0.7
ElseIf TrackBar1.Value = 60 Then
Me.Opacity -= 0.6
ElseIf TrackBar1.Value = 50 Then
Me.Opacity = 0.5
ElseIf TrackBar1.Value = 40 Then
Me.Opacity = 0.4
ElseIf TrackBar1.Value = 30 Then
Me.Opacity = 0.3
ElseIf TrackBar1.Value = 20 Then
Me.Opacity = 0.2
ElseIf TrackBar1.Value = 10 Then
Me.Opacity = 0.1
End If

سلام
آقاچه کاریه این همه کد نویسی؟!!!
یک ترک بار بذار رو فرمت
مکزیممش باشه 100
ولیوش باشه 100
این کد را در رویداد اسکرول ترک بار بنویس
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Me.Opacity = TrackBar1.Value / 100
End Sub
موفق باشید

[kingdaniyal]

سلام
آقاچه کاریه این همه کد نویسی؟!!!
یک ترک بار بذار رو فرمت
مکزیممش باشه 100
ولیوش باشه 100
این کد را در رویداد اسکرول ترک بار بنویس
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Me.Opacity = TrackBar1.Value / 100
End Sub
موفق باشید


خوب دوست عزیز حسین مگه چی گفت ؟:|
راستی حسین دستت دردنکنه