تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[ تمّ الحل ] : جلب قيمة من الريجيستري
#1
السّلام عليكم و رحمة الله و بركاته
إخواني الأفاضل .. لو كان بالإمكان المساعدة لحل هذه الإشكاليّة
الموضوع كالتالي ..
أقوم بحفظ اسم Skin معين من سكاينات الديف إكسبرس في الريجيستري
و يبقى هذا السكاين الذي إخترته شغّال حتى بعد غلق المشروع
أقوم باختيار السكاين من أوّل فورم يتم إظهاره للمستخدم
يتم حفظ اسم السكاين بالريجيستري
عند التشغيل مرة قادمة .. يتم إستدعاء قيمة الريجيستري بالفورم لود
كود :
   Public Sub Add_Last_Theme_Bonus_Skins_From_Registry()
       'Save Bonus Skins Selected in Registry
       Dim SkinName As Microsoft.Win32.RegistryKey
       SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
       SkinName.SetValue("SkinName", DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName.ToString())
       SkinName.Close()
   End Sub
   Public Sub Get_Last_Theme_Bonus_Skins_From_Registry()
       'Get Bonus Skins Selected in Registry
       Dim SkinName As Microsoft.Win32.RegistryKey
       SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
       If SkinName IsNot Nothing Then
           DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = SkinName.GetValue("SkinName").ToString()
       End If
   End Sub

إلى هنا .. كل شيء تمام ..
المشكلة ..
عند التشغيل أوّل مرّة .. عند فرمتة الجهاز .. أو عند التشغيل على جهاز العميل
قيمة الريجيستري ستكون طبعا فارغة و بالتالي ..
أردت عمل ما يأتي
عند أوّل مرة إذا كانت قيمة الريجيستري فارغة .. الفورم سيأخذ اسم السكاين مثلا ..
Caramel
و إذا لم تكن قيمة الريجيستري فارغة .. تأخذ اسم السكاين الذي تم إختياره و تم حفظها بالريجيستري
حاولت بهذا المفهوم .. لكنها ما ضبطت معي ..
كود :
      Dim SkinName As Microsoft.Win32.RegistryKey
       SkinName = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SkinName")
       If SkinName IsNot Nothing Then
           DevExpress.Skins.SkinManager.EnableFormSkins()
           DevExpress.UserSkins.BonusSkins.Register()
           DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = "Caramel"
       Else
           SkinName = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows", True)
           If SkinName IsNot Nothing Then
               DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = SkinName.GetValue("SkinName").ToString()
           End If
       End If

بارك الله فيكم و لكم مقدما و جزاكم خير الجزاء
تحياتي واحتراماتي
قناتنا على اليوتوب
الرد }}}
#2
السلام عليكم استاذي عبد العزيز

لماذا لاتقوم بحفظ اسم السكين في ال settings بدلا من الريجيستري ؟ اظن انها اسهل
الرد }}}
#3
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك أستاذي الكريم على مشاركتي المشكلة
جزاك الله خيرا إن شاء الله
الفكرة أخي الغالي .. فكرة حفظ اسم السكاين بالريجيستري بالحقيقة تتبعتها من خلال شروحات الأخ الكريم عاطف بديري بقسم الديف إكسبرس .. لكنّه تجاهل نقطة التشغيل أوّل مرة على جهازنا أو على جهاز آخر و بالتالي تكون القيمة المراد جلبها فارغة تماما
لا يهم يا طيّب ..
أكون جد ممنون لك لو تكرمت بالفكرة و لو بالأكواد فقط دون إرهاقك بالمثال
بارك الله فيك مقدما و أنعم عليك بما يحبه و يرضاه إن شاء الله
إحتراماتي أستاذنا
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: حريف برمجة , Anas Mahmoud , asemshahen5 , WaeLx , WaeLx
#4
تفضل استاذي :

اضف قيمة جديدة في الستنجز

   

الان عند الحاجة اليها :

كود :
       DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = My.Settings.SkinName


عند الحاجة الى تغييرها :

كود :
       My.Settings.SkinName = "اسم السكين"
       My.Settings.Save()
الرد }}}
#5
السّلام عليكم و رحمة الله و بركاته
أكواد جد بسيطة و مختصرة و بدون تعقيدات .. و ضبطت تمام التمام و لله الحمد و الشكر .. و يتم ضمان دائما قيمة مبدئية مسجلة بالسيتينغ ..
بارك الله فيك و لك و أنعم عليك بما تحبه بطاعة الله و مرضاته أخي الكريم
شوف لو سمحت أخي أنس ..
أنا أقوم باختيار السكاين من خلال الكومبوبوكس ..
و الكود بهذا الشكل شغّال و الحمد لله .. لكن من باب المراجعة لو تكرّمت تلقي نظرة عليه
كود :
Imports DevExpress.XtraEditors
Imports DevExpress.Skins
Public Class Form1
   Sub New()
       InitializeComponent()
       DevExpress.Skins.SkinManager.EnableFormSkins()
       DevExpress.UserSkins.BonusSkins.Register()
       'ComboBox Skins
       For Each cn As SkinContainer In SkinManager.Default.Skins
           ComboBoxEdit1.Properties.Items.Add(cn.SkinName)
       Next
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       DevExpress.LookAndFeel.UserLookAndFeel.Default.SkinName = My.Settings.SkinName
   End Sub
   Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged
       DevExpress.LookAndFeel.UserLookAndFeel.Default.SetSkinStyle(ComboBoxEdit1.Text)
   End Sub
   Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
       Dim Frm As New DialogResult
       Frm = XtraMessageBox.Show("هل تريد فعلا الخروج من المنظومة ؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
       If Frm = DialogResult.Yes Then

           My.Settings.SkinName = Me.ComboBoxEdit1.Text
           My.Settings.Save()

           End()
           
       End If
   End Sub
End Class

تحياتي واحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: asemshahen5 , حريف برمجة , Anas Mahmoud , WaeLx
#6
PHP كود :
   Private Sub BtnRegeditExport_Click(sender As ObjectAs EventArgsHandles BtnRegeditExport.Click
        Dim Path 
As String "C:\RegBackup.reg"
 
       RegeditExport("HKEY_CURRENT_USER\AsemConnectionXT"Path)
 
       Dim r As New System.IO.StreamReader(Path)
 
       Txt_EncodingSN.Text r.ReadToEnd()
 
       MessageBox.Show("Test")
 
   End Sub
    Sub RegeditImport
(sFilename As String)
 
       Process.Start(sFilename)
 
       Dim r As New System.IO.StreamReader(sFilename)
 
       Txt_EncodingSN.Text r.ReadToEnd()
 
   End Sub
    Sub RegeditExport
(sKey As StringsFilename As String)
 
       System.Diagnostics.Process.Start("Regedit.exe""/e " sFilename " " sKey)
 
   End Sub
    Private Sub BtnRegeditImport_Click
(sender As ObjectAs EventArgsHandles BtnRegeditImport.Click
        Dim Path 
As String "C:\RegBackup.reg"
 
       RegeditImport(Path)
 
   End Sub 

السلام عليكم و رحمة الله و بركاته هذه اكواد تصدير ملف من الرجستري الى الهارد ديسك و اكواد استيرادها .
الرد }}}
#7
كامل الشكر و التقدير و الإحترام و العرفان و الإمتنان لك أخي و أستاذي العزيز الغالي عاصم
إضافة و لمسة من لمساتك الثمينة سيتم دراستها و التمعن بمحتوياتها و العمل بما فيها إن شاء الله
تحياتي و احتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: asemshahen5 , حريف برمجة , WaeLx , WaeLx
#8
(10-09-20, 12:53 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
أكواد جد بسيطة و مختصرة و بدون تعقيدات .. و ضبطت تمام التمام و لله الحمد و الشكر .. و يتم ضمان دائما قيمة مبدئية مسجلة بالسيتينغ ..
بارك الله فيك و لك و أنعم عليك بما تحبه بطاعة الله و مرضاته أخي الكريم
شوف لو سمحت أخي أنس ..
أنا أقوم باختيار السكاين من خلال الكومبوبوكس ..
و الكود بهذا الشكل شغّال و الحمد لله .. لكن من باب المراجعة لو تكرّمت تلقي نظرة عليه

ولك بمثله استاذي
جميل جدا استاذي ، ولكن اذا تم غلق البرنامج بطريقة خاطئة لن يتم حفظ الستنج المطلوب ، اذا كان ذلك ما تريده لا بأس
لكن رأيي ان تغير قيمة الستنج عند اختيار المستخدم سكين من الكومبو بوكس
الرد }}}
#9
و كيف لو سمحت يتم تغيير قيمة السيتينغ عند تغيير السكاين من الكومبوبوكس ؟
إحتراماتي أستاذنا
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: Anas Mahmoud , asemshahen5
#10
بعد تغيير السكين مباشرة استاذي :

كود :
  Private Sub ComboBoxEdit1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxEdit1.SelectedIndexChanged
      DevExpress.LookAndFeel.UserLookAndFeel.Default.SetSkinStyle(ComboBoxEdit1.Text)

My.Settings.SkinName = Me.ComboBoxEdit1.Text
My.Settings.Save()

  End Sub
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  ارجاع قيمة Function سعد منصور 1 268 01-11-23, 02:10 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 279 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  تعبئة كومبو بوكس بالاعتماد على قيمة كومبو بوكس اخر ahmaddrawshih 4 623 15-01-23, 09:49 PM
آخر رد: مصمم هاوي
  مشكلة في نقل قيمة الخلية الفارغة من data grid view الى ملف الاكسل Mohammed Nafa 1 350 12-01-23, 08:32 PM
آخر رد: salamandal

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


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