تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية إغلاق الفورم بالتلاشي
#1
السلام عليكم جميعا 
اريد كود يعمل علي اغلاق الفورم vbبالتلاشي الشفافية 
اشتغل معي الكود عند فتح الفورم لكن لم اعرف كيف اشغله عند الاغلاق 

كود عند التشغيل :

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Me.Opacity = 0
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.Opacity = Me.Opacity + 0.03
        If Me.Opacity > 97 Then
            Timer1.Enabled = False
        End If
    End Sub
End Class
--------------------------------------------------------------------------------------
بارك الله فيكم وجزالكم الله الف خير
الرد }}}}
تم الشكر بواسطة:
#2
نفس الكود بس بطريقة عكسية
في الاول الفورم يكون شفافيته 0 والتايمر يزيدها
في الاغلاق بتكون الشفافية 100 والتايمر ينقصها تدريجيا

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
'الغيها لان الفورم صارت شفافيته 97 او خليها تساوي 100
'Me.Opacity = 0

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Me.Opacity = Me.Opacity - 0.03
If Me.Opacity < 3 Then
Timer1.Enabled = False
'هنا حط كود اغلاق البرنامج
End If
End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#3
ربي بحفظك اخي محمد كريم
الكود جربته لم بشتغل معي اريد عند اغلاق الفورم تتلاشي الشفافية ومن تم يتم الخروج من الفورم
هده الكودات الي درتها اني

Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       e.Cancel = True
       If e.Cancel = True Then
           Timer2.Enabled = True

       End If

وفي التايمر


Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick




        Me.Opacity = Me.Opacity - 0.03
        If Me.Opacity < 0.03 Then
            Me.Close()
            Timer2.Enabled = False

        End If
    End Sub

النتيجة يتلاشي الفورم لكن لا يتم غلقة


الملفات المرفقة
.rar   Opasity.rar (الحجم : 122.1 ك ب / التحميلات : 53)
الرد }}}}
تم الشكر بواسطة:
#4
اضفت متغير بولياني في الفورم
   Dim finish_closing As Boolean
حتى نخزن فيه الحالة لتجنب تنفيذ e.cancel لانها تمنع اغلاق الفورم
واستخدمت  Application.Exit() بدلا من Me.Close()


هذا كود الفورم بالكامل

كود :
Public Class Form1
   Dim finish_closing As Boolean

   Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       If (finish_closing) Then
           Application.Exit()
       Else
           e.Cancel = True
           Timer2.Enabled = True
       End If
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.Opacity = 0
       Timer1.Enabled = True

   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Me.Opacity = Me.Opacity + 0.03
       If Me.Opacity > 97 Then
           Timer1.Enabled = False
       End If
   End Sub

   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
       Me.Opacity -= 0.1
       If Me.Opacity < 0.03 Then
           finish_closing = True
           Me.Close()
       End If
   End Sub
End Class

تعديل / هذا في حالة كان اغلاق هذا الفورم مراد به انهاء عمل البرنامج بالكامل
ويبدو ان استخدام Application.Exit() لا داعي له هنا
استبدله بـ
e.Cancel = False
الرد }}}}
تم الشكر بواسطة: أحمد محمد جمعة
#5
PHP كود :
Public Class Form1

    Private speed 
As Single 2

    Public Sub FadeFormOut
()
 
       For i 100 To 0 Step -speed
            Me
.Opacity 100
            Me
.Refresh()
 
           Threading.Thread.Sleep(50)
 
       Next
    End Sub

    Private Sub Form1_FormClosing
(sender As ObjectAs FormClosingEventArgsHandles MyBase.FormClosing
        FadeFormOut
()
 
   End Sub

End 
Class 
الرد }}}}
تم الشكر بواسطة: أحمد محمد جمعة
#6
بارك الله فيك اخي محمد كريّم وجزالك الله الف خير
الحمد لله الكود 100% شغال
--------------------------------------------------
وشكر ليك silverlight وربي يوفقك ان شاء الله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 42 أمس, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 44 أمس, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 111 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 46 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 3 75 16-02-17, 08:10 PM
آخر رد: احمد مهران
  تاثير فى الفورم Mohamed20 2 43 12-02-17, 10:00 PM
آخر رد: Mohamed20
  تثبيت الفورم على امر معين anes 8 134 12-02-17, 02:07 AM
آخر رد: مساعدة
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 28 06-02-17, 05:03 PM
آخر رد: المتألق9
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 70 05-02-17, 01:43 AM
آخر رد: المتألق9
  [VB.NET] كيفية جلب برامج التنقيح من اى جهاز لو موجودة؟ الماجيك مسعد 4 79 02-02-17, 07:17 PM
آخر رد: الماجيك مسعد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم