تقييم الموضوع :
  • 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 وربي يوفقك ان شاء الله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تثبيت التاريخ علي الفورم ddemed 3 76 أمس, 05:45 PM
آخر رد: ddemed
  تغير تاريخ الفورم ddemed 0 37 01-12-16, 06:37 PM
آخر رد: ddemed
  تشغيل الفورم بتاريخ ddemed 3 73 01-12-16, 05:41 PM
آخر رد: ddemed
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 81 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
  كيفيه تشغيل الفورم بالتاريخ الذي يحدده المستخدم ddemed 5 119 23-11-16, 10:12 PM
آخر رد: السرور
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 111 23-11-16, 08:51 PM
آخر رد: newvbdev
  استدعاء ملف به تاريخ للبرنامج وتشغيل الفورم به ddemed 8 145 11-11-16, 10:25 PM
آخر رد: bidaya
  كيفية تغير رسائل الخطأ؟ noway 3 71 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 247 10-11-16, 10:02 PM
آخر رد: Programmer_2017
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 108 09-11-16, 12:32 PM
آخر رد: نوريس

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


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