منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عندي ثلاث اسئله - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عندي ثلاث اسئله (/showthread.php?tid=38066)

عندي ثلاث اسئله - حسن الجلب - 18-03-21

السلام
انا عندي شويه اسئله بالله عليكم محتاج بسرعه 
كيفيه استخدام داله remove 
وعايز كود اقدر انتقل بين صفوف الداتا جريد فيو بدل الاسهم علما بأن الجريد فيو مش متوصله بقاعدة بيانات
وعايز كود التحقق من اصدار الدوت نت علي الجهاز

RE: بالله عليكم عندي ثلاث اسئله - 3booody - 18-03-21

السلام عليكم ورحمة الله وبركاته

بالنسبة لسؤالك الاول الدالة remove للدوال النصية تقوم بازالة حروف من المتغير النصي


كود :
Remove(startIndex As integer ,count as integer) as string

تاخذ بارمترين الاول startIndex وهو رقم الترتيب للحرف المراد ازالته من الجملة
Count عدد الحروف المراد حذفها بعد البارميتر الاول
لاحظ الكود التالي يقوم بحذف الحرف ال3 وال4



كود :
TextBox1.Text = TextBox1.Text.Remove(2, 2) 'الرقم الاول ترتيب الحرف ويبدأ الترتيب من الصفر




بالنسبة لسؤالك الثاني كيف ياريت اخي تحدد نوع للطريقة الي تريدها للتنقل

سؤالك الثالث

ضع زر بوتون وواحد listbox
وجرب هذا الكود


كود :
Imports Microsoft.Win32
Imports System

Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       NETOneToFour()
   End Sub
   Private Sub NETOneToFour()
       Using netKey As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32).OpenSubKey("SOFTWARE\Microsoft\NET Framework Setup\NDP\")
           For Each versionKeyName In netKey.GetSubKeyNames()
               If versionKeyName = "v4" Then
                   Continue For
               End If
               If versionKeyName.StartsWith("v") Then
                   Dim verKey As RegistryKey = netKey.OpenSubKey _
                      (versionKeyName)
                   Dim strVer = CStr(verKey.GetValue("Version", ""))
                   Dim strServicePack = verKey.GetValue("SP", "") _
                      .ToString()
                   Dim strInstalled = verKey.GetValue("Install", "") _
                      .ToString()
                   If String.IsNullOrEmpty(strInstalled) Then
                       ListBox1.Items.Add("{versionKeyName}  {strVer}")
                   Else
                       If Not (String.IsNullOrEmpty(strServicePack)) _
                          AndAlso strInstalled = "1" Then
                           ListBox1.Items.Add("{versionKeyName}{strVer}  Service Pack{strServicePack}")
                       End If
                   End If
                   If Not String.IsNullOrEmpty(strVer) Then
                       Continue For
                   End If
                   For Each strSubKeys In verKey.GetSubKeyNames()
                       Dim subKey As RegistryKey = verKey.OpenSubKey _
                          (strSubKeys)
                       strVer = CStr(subKey.GetValue("Version", ""))
                       If Not String.IsNullOrEmpty(strVer) Then _
                          strServicePack = subKey.GetValue("SP", "") _
                          .ToString()
                       strInstalled = subKey.GetValue("Install", "") _
                          .ToString()
                       If String.IsNullOrEmpty(strInstalled) Then
                    listBox1.Items.Add("{versionKeyName}{strVer}")
                       Else
                           If Not (String.IsNullOrEmpty(strServicePack)) _
                              AndAlso strInstalled = "1" Then
                               ListBox1.Items.Add("{strSubKeys}  {strVer}Service Pack{strServicePack}")
                           ElseIf strInstalled = "1" Then
                               ListBox1.Items.Add("  {strSubKeys}{strVer}")
                           End If
                       End If
                   Next
               End If
           Next
       End Using
   End Sub
End Class


RE: عندي ثلاث اسئله - حسن الجلب - 18-03-21

شكرا لحضرتك ولكن السؤال الخاص بالجريد فيو هي غير متوصلخ بقاعدة بيانات