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

نسخة كاملة : أرجو من الإخوة الأعضاء مساعدتي في ترجمة هاذا الكود وتحويله من لغة الvb.net إلى#C
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
أرجو من الإخوة الأعضاء مساعدتي في ترجمة هاذا الكود وتحويله من لغة الvb.net  إلى#C  


 ( Public Sub loadserver(ByVal combo As ComboBox 

        (Dim localMachine = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, Registry64 
        ("Dim rk = localMachine.OpenSubKey("SOFTWARE\MICROSOFT\MICROSOFT SQL Server  
     (()Dim instances = CType(rk.GetValue("InstalledInstances"), String 
        If instances.Length > 0 Then
            For Each element As instances
                If element = "MSSQLSERVER" Then
                    (combo.Items.Add(System.Environment.MachineName 
                Else
                    (combo.Items.Add(System.Environment.MachineName + " \" + element 
                End If

            Next element

    End Sub
السلام عليكم اخي الكريم

الكود الذي وضعته هو لاملاء الكومبو باسماء السيرفرات الموجودو في الكومبيوتر

وفيه نقص في جملة الفور ايتش على كل حال اكملتها 

اليك الكود بـ سي شارب
PHP كود :
 public void loadserver(ComboBox combo)
 
 {
        var 
localMachine RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachineRegistry64;
        var 
rk localMachine.OpenSubKey("SOFTWARE\\MICROSOFT\\MICROSOFT SQL Server");
        var 
instances = (string[])rk.GetValue("InstalledInstances");
        if (
instances.Length 0)
        {
            foreach (
string element in instances
            {
                if (
element == "MSSQLSERVER")
                {
                    
combo.Items.Add(System.Environment.MachineName);
                }
                else
                {
                    
combo.Items.Add(System.Environment.MachineName " \\" element);
                }

            }
        }
    }