Printable View
از برنامه نویسی گرافیک واقعا لذت می برم. این یکی از سرگرمیهای روزمره من است. گرافیک در دات نت از آنچنان قدرتی برخوردار است که قابل وصف نیست. اگه بگم تمام دستورات دات نت، به نوعی با گرافیک در ارتباط هستند ، سخنی به گزاف نگفته ام.
نیرومندی گرافیک در دات نت رو میتونید در همین DLL مشاهده کنید. کلاسی که شما رو قادر میسازه تا به راحتی کنترلهای روی فرم را با افکت Fade ظاهر یا مخفی سازید. سرعت Fade شدن هم قابل تنظیم است.
سایز : 7 کیلوبایتکد:http://rapidshare.com/files/241485308/Fading.rar.html
میشه یه مثال از نحوه استفاده اش هم بزنید
ممنون
البته باید بگم که من این کلاس رو فقط برای نشان دادن یکی از هزاران کاربرد +GDI نوشتم. و شاید در آینده کاملترش کنم.
مثال :نقل قول:
میشه یه مثال از نحوه استفاده اش هم بزنید
بعد از اینکه کلاس رو به پروژه ادد کردید یه Button و یک عدد هم مثلا لیست باکس به فرم اضافه کنید و در رویداد کلیک Button این کدها رو بنویسید و نتیجه رو ببینید.
کد:Dim F As New Fading.Fading
F.Speed = 10
F.Fade(ListBox1)
تست می کنیم :D ( به نظرم خیلی جالب باید باشه )
سلام باور نکردنیه خیلی وقته دنبال یه همچین چیزی هستم واقعاً ممنون.ولی یه مشکل هست.خیلی دوست دارم بدونم که چطوری کار میکنه!، ای کاش یه توضیحی در مورد کدش هم بدی. ممنونم.:11:.
خیلی ساده! :31:نقل قول:
با استفاده از کلاس ColorMatrix و یک سری جلوه های ویژه :46:
اینم از کد کامل این کلاس.
کد:Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Windows.Forms
Public Class Fading
Dim PicBox As New PictureBox
Private m_Alpha As Single = 1
Public Speed As Single = 8
Public Sub Fade(ByVal Control As Control)
If TypeOf Control Is Form Then Exit Sub
If Speed < 1 Then Speed = 1
If Speed > 100 Then Speed = 100
Speed = Speed / 1000
If Control.Visible Then
Fade_Out(Control)
Else
Fade_In(Control)
End If
End Sub
Private Sub Fade_Out(ByVal Control As Control)
PicBox.Parent = Control.Parent
PicBox.Size = Control.Size
PicBox.BorderStyle = BorderStyle.None
PicBox.Location = Control.Location
PicBox.Visible = True
Control.Visible = False
Dim bm1 As New Bitmap(PicBox.Width, PicBox.Height)
Control.DrawToBitmap(bm1, New Rectangle _
(0, 0, Control.Width, Control.Height))
Dim image_attr As New ImageAttributes
Dim cm As ColorMatrix
Dim rect As Rectangle = Rectangle.Round _
(bm1.GetBounds(GraphicsUnit.Pixel))
Dim bm As New Bitmap(bm1.Width, bm1.Height)
Dim gr As Graphics = Graphics.FromImage(bm)
m_Alpha = 1
While m_Alpha > 0
m_Alpha -= Speed
cm = New ColorMatrix(New Single()() { _
New Single() {1.0, 0.0, 0.0, 0.0, 0.0}, _
New Single() {0.0, 1.0, 0.0, 0.0, 0.0}, _
New Single() {0.0, 0.0, 1.0, 0.0, 0.0}, _
New Single() {0.0, 0.0, 0.0, 0.0, 0.0}, _
New Single() {0.0, 0.0, 0.0, m_Alpha, 1.0}})
image_attr.SetColorMatrix(cm)
gr.DrawImage(bm1, rect, 0, 0, bm1.Width, bm1.Height _
, GraphicsUnit.Pixel, image_attr)
PicBox.Image = bm
Application.DoEvents()
cm = Nothing
gr.Clear(Color.Transparent)
End While
PicBox.Visible = False
PicBox.Image = Nothing
'--------------------------------------------------------------------
End Sub
Private Sub Fade_In(ByVal Control As Control)
PicBox.Parent = Control.Parent
PicBox.Size = Control.Size
PicBox.BorderStyle = BorderStyle.None
PicBox.Location = Control.Location
PicBox.Visible = True
Dim bm1 As New Bitmap(PicBox.Width, PicBox.Height)
Control.DrawToBitmap(bm1, New Rectangle _
(0, 0, Control.Width, Control.Height))
Dim image_attr As New ImageAttributes
Dim cm As ColorMatrix
Dim rect As Rectangle = Rectangle.Round _
(bm1.GetBounds(GraphicsUnit.Pixel))
Dim bm As New Bitmap(bm1.Width, bm1.Height)
Dim gr As Graphics = Graphics.FromImage(bm)
m_Alpha = 0
While m_Alpha < 1
m_Alpha += Speed
cm = New ColorMatrix(New Single()() { _
New Single() {1.0, 0.0, 0.0, 0.0, 0.0}, _
New Single() {0.0, 1.0, 0.0, 0.0, 0.0}, _
New Single() {0.0, 0.0, 1.0, 0.0, 0.0}, _
New Single() {0.0, 0.0, 0.0, 0.0, 0.0}, _
New Single() {0.0, 0.0, 0.0, m_Alpha, 1.0}})
image_attr.SetColorMatrix(cm)
gr.DrawImage(bm1, rect, 0, 0, bm1.Width, bm1.Height, _
GraphicsUnit.Pixel, image_attr)
PicBox.Image = bm
Application.DoEvents()
cm = Nothing
gr.Clear(Color.Transparent)
End While
PicBox.Visible = False
Control.Visible = True
End Sub
End Class