منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد حفظ اخر عملية قمت بها بالبرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد حفظ اخر عملية قمت بها بالبرنامج (/showthread.php?tid=7864)

اريد حفظ اخر عملية قمت بها بالبرنامج - mazen - 08-03-13

انا عتدي فورم في 3 ازرار اريد عند اخر زر مضغوط علية وعملت end للبرنامج اول لما يفتح يلون اخر زر تم ضغطة اواخر حدث تم بالفورم وتغير لونة
ارجو التوضيح بمثال

اريد حفظ اخر عملية قمت بها بالبرنامج - زكريا النابهي - 09-03-13

MAZEN كتب :انا عتدي فورم في 3 ازرار اريد عند اخر زر مضغوط علية وعملت end للبرنامج اول لما يفتح يلون اخر زر تم ضغطة اواخر حدث تم بالفورم وتغير لونة
ارجو التوضيح بمثال

زززززززززززززززززززززززززز

اريد حفظ اخر عملية قمت بها بالبرنامج - mazen - 09-03-13

ياخي ضع كلمة لها عنوان ينفع اولا ينفع خير من زززززززززززززززززززززززز

اريد حفظ اخر عملية قمت بها بالبرنامج - Aly El-Haddad - 09-03-13

MAZEN كتب :انا عتدي فورم في 3 ازرار اريد عند اخر زر مضغوط علية وعملت end للبرنامج اول لما يفتح يلون اخر زر تم ضغطة اواخر حدث تم بالفورم وتغير لونة
ارجو التوضيح بمثال

يوجد مثال بالمرفقات كما طلبت

اريد حفظ اخر عملية قمت بها بالبرنامج - @@أبورائد@@ - 09-03-13

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


تفضل طريقة أخرى
PHP كود :
Public Class Form1

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            Me.Controls(GetSetting(Application.ProductName, "ActiveControl", "Name")).Focus()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, "ActiveControl", "Name", Me.ActiveControl.Name)
    End Sub

End Class 



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

اريد حفظ اخر عملية قمت بها بالبرنامج - Aly El-Haddad - 09-03-13

@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته


تفضل طريقة أخرى
PHP كود :
Public Class Form1

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            Me.Controls(GetSetting(Application.ProductName, "ActiveControl", "Name")).Focus()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, "ActiveControl", "Name", Me.ActiveControl.Name)
    End Sub

End Class 



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

فكرة ممتازة لم تخطر في بالي، شكراً لك Smile

اريد حفظ اخر عملية قمت بها بالبرنامج - مبرمج أوتار - 09-03-13

بارك الله فيك

اريد حفظ اخر عملية قمت بها بالبرنامج - mazen - 10-03-13

الف شكر للمجهود الرائع بس في مشكلة ان البرنامج المرفق لل م احمد حديدي لايسمح بالمرور علي كل الاحداث ليختار اخر حدث يعني لما اضغط زر بوتن 1 واجي اضغط علي الزر الثاني بيفصل البرنامج
ارجو تعديل المثال وياريت لو ارفق داتا جريد وممكن تكون الطريقة التعامل مع اخر حدث اوخلية تم الضغط عليها ازاي

ثانيا ارجو من الاستاذ ابو رائد يوسع معلوماتي بتوضيح ماذا لو اردت ان اتعامل مع اكثر من اداة علي النموذج ومن ضمنهم الداتا جريد اخر صف اقف عندة مثلا
عايزاقول حاجة تانية مكنتش متخيل اني هيبقي في رد بس الداتا جريد اهم جزء

اريد حفظ اخر عملية قمت بها بالبرنامج - @@أبورائد@@ - 10-03-13

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


تفضل
PHP كود :
Public Class Form1

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        On Error Resume Next

        ' ActiveControl
        Me.Controls(GetSetting(Application.ProductName, "ActiveControl", "Name")).Focus()

        ' DataGridView1.SelectedCells
        Me.DataGridView1.ClearSelection()
        Dim r As Integer = CInt(GetSetting(Application.ProductName, Me.DataGridView1.Name, "Row"))
        Dim c As Integer = CInt(GetSetting(Application.ProductName, Me.DataGridView1.Name, "Column"))
        Me.DataGridView1.Rows(r).Cells(c).Selected = True

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        On Error Resume Next

        ' ActiveControl
        SaveSetting(Application.ProductName, "ActiveControl", "Name", Me.ActiveControl.Name)

        ' DataGridView1.SelectedCells
        SaveSetting(Application.ProductName, Me.DataGridView1.Name, "Row", Me.DataGridView1.SelectedCells(0).RowIndex)
        SaveSetting(Application.ProductName, Me.DataGridView1.Name, "Column", Me.DataGridView1.SelectedCells(0).ColumnIndex)

    End Sub

End Class 



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

اريد حفظ اخر عملية قمت بها بالبرنامج - mazen - 10-03-13

الف شكر اخي ابو رائد فعلا الاكواد شغالة 1000*100