منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم و رحمة الله و بركاته

كان هناك فى الكود القديم فى فيجوال بيسك ٦ الحدث QueryUnload
و كان له معامل Parameter اسمه UnloadMode والذى يحدد هل غلق النافذة تم من خلال غلقها (بواسطة المسخدم) ام من خلال الكود
Unload Form1
والسؤال هو ما هو البديل فى Vb.net

شكرا والسلام عليكم

و عليكم السلام ورحمة الله و بركاته
يوجد حدث closing للفورم وحدث closed دقق فيها وستجد الطريق لتطبيق ماتعرفه في vb6.0.

طبقت الفكرة اللي عندي على السريع

PHP كود :

Public Class Form1
    Dim cl As Boolean
    Dim apath As String = IO.Path.GetDirectoryName(Application.ExecutablePath)
    Dim cltxt As String = apath & "\cl.txt"
    Private Sub save()
        IO.File.WriteAllText(cltxt, cl.ToString)
    End Sub
    Private Function gt() As String
        Return My.Computer.FileSystem.ReadAllText(cltxt)
    End Function
    Private Function IsNormal(t As String) As Boolean
        If t.ToString.Trim.ToLower = "true" Then Return True Else Return False
    End Function
    Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        save()
    End Sub
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        cl = True
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If IsNormal(gt) = False Then
            MsgBox("لم يتم اغلاق الفورم بشكل صحيح", MsgBoxStyle.Information, "")
        End If
        IO.File.WriteAllText(cltxt, String.Empty)
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Hide()
        End
    End Sub
End Class 

شكرا جزيلا لك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mmaalmesry

سعود

mmaalmesry