المشاركات : 4
المواضيع 2
الإنتساب : Mar 2020
السمعة :
0
الشكر: 1
تم شكره 0 مرات في 0 مشاركات
السلام عليكم انا مبتدئة في السي شارب ولدي مشروع فيه فورم يستطيع المستخدم ان يغير من كلمة المرور الخاصة بالمشروع ويعدل من صلاحيات المستخدم (تعديل البيانات واضافة ولون الفورم وغيرها )ولكن لم اعرف كيف اربط بينها وبين الفورم التي تحتوي على كلمة المرور او عمل الاكواد الازمة لتعديل الصلاحيه لانه عند التشغيل تغيرت بعض الاعدادات ولم اعد استطيع تعديلها او تغييرها
المشاركات : 144
المواضيع 59
الإنتساب : Feb 2020
السمعة :
17
الشكر: 144
تم شكره 209 مرات في 82 مشاركات
(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
انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
المشاركات : 4
المواضيع 2
الإنتساب : Mar 2020
السمعة :
0
الشكر: 1
تم شكره 0 مرات في 0 مشاركات
(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
انشاء الله تستفاد من ال اكود ديت في مشروعك الي انت عيز تعملوه
شكراً اخي لكن انا استعمل الفيجوال استديو هل تسطيع تعديل الاكواد بعد اذنك
المشاركات : 144
المواضيع 59
الإنتساب : Feb 2020
السمعة :
17
الشكر: 144
تم شكره 209 مرات في 82 مشاركات
(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
|