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

(20-03-20, 01:15 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.Object, ByVal e As System.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        check_Activation()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 


انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه

شكراً اخي لكن انا استعمل الفيجوال استديو هل تسطيع تعديل الاكواد بعد اذنك

(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.Object, ByVal e As System.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        check_Activation()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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