تقييم الموضوع :
  • 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] كيفية فلترة ليست فيو vb net Multiple Column Filter listview الماجيك مسعد 0 20 منذ 9 ساعة مضت
آخر رد: الماجيك مسعد
  [VB.NET] كيفية هذا تطبيق كود على اتصال ... 3asfa~mdmra 0 39 أمس, 09:43 PM
آخر رد: 3asfa~mdmra
  فصل جزء من ايمج بلون محدد الى ايمج اخرى على الفورم samira20 3 71 19-01-17, 03:09 PM
آخر رد: silverlight
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 80 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  كيفية تغير رسائل الخطأ؟ noway 4 164 12-01-17, 02:05 AM
آخر رد: يسرى7
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 115 05-01-17, 12:40 AM
آخر رد: أبو عمر
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,851 04-01-17, 09:18 PM
آخر رد: jojo2014
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 108 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
Sad [سؤال] عدم ظهور التغيرات على الفورم بعد التشغيل أحمد عبد الكريم 2 82 28-12-16, 10:17 PM
آخر رد: HASAN6.0
  التعديل الذي أقوم به في الفورم لا يظهر عند عمل RUN نسيم 9 297 28-12-16, 05:10 PM
آخر رد: Basil Abdallah

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


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