اريد حفظ اخر عملية قمت بها بالبرنامج

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد حفظ اخر عملية قمت بها بالبرنامج
#1
انا عتدي فورم في 3 ازرار اريد عند اخر زر مضغوط علية وعملت end للبرنامج اول لما يفتح يلون اخر زر تم ضغطة اواخر حدث تم بالفورم وتغير لونة
ارجو التوضيح بمثال
الرد
تم الشكر بواسطة:
#2
MAZEN كتب :انا عتدي فورم في 3 ازرار اريد عند اخر زر مضغوط علية وعملت end للبرنامج اول لما يفتح يلون اخر زر تم ضغطة اواخر حدث تم بالفورم وتغير لونة
ارجو التوضيح بمثال

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

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


الملفات المرفقة
.rar   Last Clicked Button.rar (الحجم : 88.21 ك ب / التحميلات : 51)
الرد
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله وبركاته


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

    
Private Sub Form1_Shown(ByVal sender As ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        SaveSetting
(Application.ProductName"ActiveControl""Name"Me.ActiveControl.Name)
    
End Sub

End 
Class 



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


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

    
Private Sub Form1_Shown(ByVal sender As ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        SaveSetting
(Application.ProductName"ActiveControl""Name"Me.ActiveControl.Name)
    
End Sub

End 
Class 



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

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

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


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

    
Private Sub Form1_Shown(ByVal sender As ObjectByVal e As System.EventArgsHandles 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.ProductNameMe.DataGridView1.Name"Row"))
        
Dim c As Integer CInt(GetSetting(Application.ProductNameMe.DataGridView1.Name"Column"))
        
Me.DataGridView1.Rows(r).Cells(c).Selected True

    End Sub

    
Private Sub Form1_FormClosing(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        On Error Resume Next

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

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

    
End Sub

End 
Class 



السلام عليكم ورحمة الله وبركاته
الرد
تم الشكر بواسطة:
#10
الف شكر اخي ابو رائد فعلا الاكواد شغالة 1000*100
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [VB.NET] يا جماعة اريد كود تنبيه تاريخ انتهاء صلاحية لمادة قبل 30 يوم khalilfox 24 753 13-08-18, 05:44 AM
آخر رد: elgokr
  اريد مشروع لادارة صلات الجيم ...وطباعة الكروت من فظلكم khalilfox 4 93 07-08-18, 12:46 PM
آخر رد: khalilfox
Information [سؤال] اريد حل لمشكلة فتح البرنامج اكثر من مرة بالفيجوال 2008 DK-x 5 313 06-08-18, 03:54 AM
آخر رد: امحمد الف
  [VB.NET] اريد كود التحقق من ان عملية التحميل تمت ام لم تتم في لغة الفجوال.نت MoatazMedo5 2 84 05-08-18, 03:00 AM
آخر رد: سعود
  [سؤال] اريد ان يتم تنفيذ هذا كود الحفظ او التحديث بسرعه عنذ اختيار سطر من الداتا جريد dametucorazon 4 102 30-07-18, 08:21 AM
آخر رد: elgokr
  ارجو المساعده اريد عمل البرنامج يتحدث تلقائيا بشرط بدون تحميل الاصدار الجديد ahmedngah36 4 115 30-07-18, 06:38 AM
آخر رد: GameOver
  اريد كود لسكون المنظومة بعد 5 دقائق من عدم استعمالها mawadaalmogrbi 5 174 23-07-18, 04:10 AM
آخر رد: عبد العزيز البسكري
  [سؤال] اريد طريقه بسيطه لعمل اضافه لكل محتويات الداتا جريد الى قاعده البيانات MYSQL dametucorazon 6 130 23-07-18, 12:24 AM
آخر رد: dametucorazon
Sad [VB.NET] اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا kalshsami 7 152 22-07-18, 10:18 AM
آخر رد: mrnooo2000
  كود قتل عملية من ListView aldery 3 86 15-07-18, 04:28 AM
آخر رد: elgokr

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


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