تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تغيير الاعدادات في المشروع
#1
السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم  (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها 
الرد
تم الشكر بواسطة:
#2
(20-03-20, 01:15 PM)sananyh كتب : السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم  (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها 

كود + ادوات عمل بسورد لبرنمج
PHP كود :
الادوات
TextBox1
Button1
.........
الكود
حط في البوتون
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        If TextBox1
.Text "55555" Then
            Me
.Hide()
 
           Form1.Show()
 
       Else
            MsgBox
("خطاء جرب مره اخره")
 
       End If

 
   End Sub
End 
Class 
كود عمل سريل ل الفورم
PHP كود :
الدوات
textpox1
buton2
Label2
ProgressBar1
......
Public Class 
Form1
    Dim Activation 
Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST""Activation""")
 
   Dim Rest Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST""Rest""")
 
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        check_Activation
()
 
   End Sub
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        button_check
()
 
   End Sub
    
'زر الانتقال لفورم التفعيل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
    
    Function check()
        If Activation Is Nothing Then
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("TEST")
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Activation", "NotActivated")
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", "30")
        Else
            If Rest = 0 Then
                MsgBox("انتهت فترة استخدامك للبرنامج")
                Me.Close()
            Else
                Rest = Rest - 1
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", Rest)
                ProgressBar1.Maximum = 30
                ProgressBar1.Value = Rest
                Label2.Text = Rest
            End If
        End If
    End Function
    Function check_Activation()
        Try
            '
اذا كان البرنامج تم تفعيله 
            
'يقوم باخفاء جميع كائنات التي تخص التفعيل و حساب الوقت الباقي.
            If Activation = "Activated" Then
                Button2.Hide()
                Label2.Hide()
                Label1.Hide()
                ProgressBar1.Hide()
            Else
                '
اذا كان البرنامج لم يتم تفعيله 
                
'يقوم باستعداء داله التحقق من الوقت الباقي و تقليله 1
                check()
            End If
        Catch ex As Exception
            MsgBox("خطا غير متوقع!.")
        End Try
    End Function
    '
التحقق من تفعيل البرنامج
    Function button_check
()
 
       If Activation "Activated" Then
            MsgBox
("البرنامج مفعل")
 
       Else
            MsgBox
("البرنامج غير مفعل!")
 
       End If
 
   End Function
End Class 

كود حفظ ما يتغير في التيكست بعد اغلاقه
PHP كود :
تادر تعدل علي الكود من السطر دهText1.Text GetSetting(App.Title"Settings""SaveInText1"
كود PHP:
Private 
Sub Form_Load()
Text1.Text GetSetting(App.Title"Settings""SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title"Settings""SaveInText1"Trim(Text1.Text)
End Sub 

انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
الرد
تم الشكر بواسطة:
#3
(20-03-20, 04:08 PM)محمد ايمن كتب :
(20-03-20, 01:15 PM)sananyh كتب : السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم  (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها 

كود + ادوات عمل بسورد لبرنمج
PHP كود :
الادوات
TextBox1
Button1
.........
الكود
حط في البوتون
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        If TextBox1
.Text "55555" Then
            Me
.Hide()
 
           Form1.Show()
 
       Else
            MsgBox
("خطاء جرب مره اخره")
 
       End If

 
   End Sub
End 
Class 
كود عمل سريل ل الفورم
PHP كود :
الدوات
textpox1
buton2
Label2
ProgressBar1
......
Public Class 
Form1
    Dim Activation 
Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST""Activation""")
 
   Dim Rest Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST""Rest""")
 
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        check_Activation
()
 
   End Sub
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        button_check
()
 
   End Sub
    
'زر الانتقال لفورم التفعيل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
    
    Function check()
        If Activation Is Nothing Then
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("TEST")
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Activation", "NotActivated")
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", "30")
        Else
            If Rest = 0 Then
                MsgBox("انتهت فترة استخدامك للبرنامج")
                Me.Close()
            Else
                Rest = Rest - 1
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", Rest)
                ProgressBar1.Maximum = 30
                ProgressBar1.Value = Rest
                Label2.Text = Rest
            End If
        End If
    End Function
    Function check_Activation()
        Try
            '
اذا كان البرنامج تم تفعيله 
            
'يقوم باخفاء جميع كائنات التي تخص التفعيل و حساب الوقت الباقي.
            If Activation = "Activated" Then
                Button2.Hide()
                Label2.Hide()
                Label1.Hide()
                ProgressBar1.Hide()
            Else
                '
اذا كان البرنامج لم يتم تفعيله 
                
'يقوم باستعداء داله التحقق من الوقت الباقي و تقليله 1
                check()
            End If
        Catch ex As Exception
            MsgBox("خطا غير متوقع!.")
        End Try
    End Function
    '
التحقق من تفعيل البرنامج
    Function button_check
()
 
       If Activation "Activated" Then
            MsgBox
("البرنامج مفعل")
 
       Else
            MsgBox
("البرنامج غير مفعل!")
 
       End If
 
   End Function
End Class 

كود حفظ ما يتغير في التيكست بعد اغلاقه
PHP كود :
تادر تعدل علي الكود من السطر دهText1.Text GetSetting(App.Title"Settings""SaveInText1"
كود PHP:
Private 
Sub Form_Load()
Text1.Text GetSetting(App.Title"Settings""SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title"Settings""SaveInText1"Trim(Text1.Text)
End Sub 

انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
شكراً اخي لكن انا استعمل الفيجوال استديو هل تسطيع تعديل الاكواد بعد اذنك
الرد
تم الشكر بواسطة:
#4
(20-03-20, 08:21 PM)sananyh كتب :
(20-03-20, 04:08 PM)محمد ايمن كتب :
(20-03-20, 01:15 PM)sananyh كتب : السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم  (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها 

كود + ادوات عمل بسورد لبرنمج
PHP كود :
الادوات
TextBox1
Button1
.........
الكود
حط في البوتون
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        If TextBox1
.Text "55555" Then
            Me
.Hide()
 
           Form1.Show()
 
       Else
            MsgBox
("خطاء جرب مره اخره")
 
       End If

 
   End Sub
End 
Class 
كود عمل سريل ل الفورم
PHP كود :
الدوات
textpox1
buton2
Label2
ProgressBar1
......
Public Class 
Form1
    Dim Activation 
Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST""Activation""")
 
   Dim Rest Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\TEST""Rest""")
 
   Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        check_Activation
()
 
   End Sub
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        button_check
()
 
   End Sub
    
'زر الانتقال لفورم التفعيل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
    
    Function check()
        If Activation Is Nothing Then
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("TEST")
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Activation", "NotActivated")
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", "30")
        Else
            If Rest = 0 Then
                MsgBox("انتهت فترة استخدامك للبرنامج")
                Me.Close()
            Else
                Rest = Rest - 1
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\TEST", "Rest", Rest)
                ProgressBar1.Maximum = 30
                ProgressBar1.Value = Rest
                Label2.Text = Rest
            End If
        End If
    End Function
    Function check_Activation()
        Try
            '
اذا كان البرنامج تم تفعيله 
            
'يقوم باخفاء جميع كائنات التي تخص التفعيل و حساب الوقت الباقي.
            If Activation = "Activated" Then
                Button2.Hide()
                Label2.Hide()
                Label1.Hide()
                ProgressBar1.Hide()
            Else
                '
اذا كان البرنامج لم يتم تفعيله 
                
'يقوم باستعداء داله التحقق من الوقت الباقي و تقليله 1
                check()
            End If
        Catch ex As Exception
            MsgBox("خطا غير متوقع!.")
        End Try
    End Function
    '
التحقق من تفعيل البرنامج
    Function button_check
()
 
       If Activation "Activated" Then
            MsgBox
("البرنامج مفعل")
 
       Else
            MsgBox
("البرنامج غير مفعل!")
 
       End If
 
   End Function
End Class 

كود حفظ ما يتغير في التيكست بعد اغلاقه
PHP كود :
تادر تعدل علي الكود من السطر دهText1.Text GetSetting(App.Title"Settings""SaveInText1"
كود PHP:
Private 
Sub Form_Load()
Text1.Text GetSetting(App.Title"Settings""SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title"Settings""SaveInText1"Trim(Text1.Text)
End Sub 

انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
شكراً اخي لكن انا استعمل الفيجوال استديو هل تسطيع تعديل الاكواد بعد اذنك
كله اكودvbn.net
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عدم فتح المشروع نهائيا عمور2016 3 321 19-08-20, 02:24 PM
آخر رد: عمور2016
  مشكلة في المشروع غزوان خليل 0 381 08-04-20, 11:45 AM
آخر رد: غزوان خليل
  سؤال في richtextbox تغيير اتجاه فقرة؟ abozeyd 4 684 23-03-20, 11:46 PM
آخر رد: abozeyd
  [C#.NET] ممكن مساعدة لتنفيذ المشروع المرفق بالصورة domiatyfm1 2 529 17-02-20, 03:51 PM
آخر رد: domiatyfm1
  [كود] اريد اكواد لهذا المشروع alswade 1 609 29-07-19, 12:24 AM
آخر رد: ابراهيم ايبو
  أريد تغيير إتجاه أداة TreeListView من اليمين إلى اليسار [تم الحل] asemshahen5 6 974 23-05-19, 06:38 AM
آخر رد: asemshahen5
  تغيير حجم الفورم وادواته رسول555 1 672 21-05-19, 10:53 PM
آخر رد: رسول555
  هل يمكنني اضافة صورة بدل الاداة الى المشروع غزوان خليل 0 563 28-01-19, 01:10 PM
آخر رد: غزوان خليل
  [C#.NET] خطأ واحد فقط ويكون المشروع جاهز 0theghost0 3 958 11-11-18, 01:44 PM
آخر رد: elgokr
  سؤال عن كيفية جلب صورة أو ملف صوتي من مجلد داخل المشروع بتقنية WPF younass 2 1,109 01-09-18, 02:43 PM
آخر رد: elgokr

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


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