تقييم الموضوع :
  • 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 ك ب / التحميلات : 33)
الرد }}}}
تم الشكر بواسطة:
#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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 64 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 118 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  عملية البحث بين تاريخين khaled12345 8 124 19-05-17, 11:28 PM
آخر رد: khaled12345
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 53 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 97 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  فضلا ، اريد كود لرومنة الأسماء العربية الى الحروف الانجليزية السكر المغرور 11 1,475 28-04-17, 04:30 PM
آخر رد: usamahub
  مساعدة في عملية الإضافة الحفظ والتعديل لثلاث جداول ahmedfa71 1 92 25-04-17, 02:55 PM
آخر رد: khodor1985
  عندي جدولين اريد جملة sqlتقوم باظهار الاسماء الموجودة في الجدول الاول وليست موجودة في محمد محمود الغرياني 2 151 22-04-17, 02:19 AM
آخر رد: ابو ليلى
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 184 20-04-17, 01:41 PM
آخر رد: أسامة السالمي
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 207 19-04-17, 07:10 PM
آخر رد: كود برمجي

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


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