تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عندي ثلاث اسئله
#1
السلام
انا عندي شويه اسئله بالله عليكم محتاج بسرعه 
كيفيه استخدام داله remove 
وعايز كود اقدر انتقل بين صفوف الداتا جريد فيو بدل الاسهم علما بأن الجريد فيو مش متوصله بقاعدة بيانات
وعايز كود التحقق من اصدار الدوت نت علي الجهاز
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

بالنسبة لسؤالك الاول الدالة 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
الرد
تم الشكر بواسطة: Ronald , علي بنيان
#3
شكرا لحضرتك ولكن السؤال الخاص بالجريد فيو هي غير متوصلخ بقاعدة بيانات
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم عندي سؤال في الليست بوكس اليوم السابع 1 286 21-06-21, 02:35 PM
آخر رد: alfaiz678
  [سؤال] عندي سؤال حسن الجلب 0 253 14-04-21, 01:15 AM
آخر رد: حسن الجلب
  [سؤال] عندي استفسار بسيط حسن الجلب 1 281 14-03-21, 12:38 AM
آخر رد: EYADISMAIL
  [سؤال] عندي اسئله بسيطه وارفقت مثال لشرح المشكلات حسن الجلب 2 262 10-03-21, 10:21 PM
آخر رد: حسن الجلب
  [سؤال] عندي مشكله بالبحث بالتاريخ حسن الجلب 3 357 10-03-21, 01:28 AM
آخر رد: علي بنيان
  عندي مشكله في قواعد البيانات اليوم السابع 1 328 13-02-21, 01:40 AM
آخر رد: Jounior_P
Rainbow عندي سؤال عن كيفية البحث في نص وتحليل النص واستخراج المطلوب منه rafraf 0 374 04-02-21, 10:23 AM
آخر رد: rafraf
  [سؤال] عندي استفسار حسن الجلب 2 386 30-01-21, 12:26 AM
آخر رد: حسن الجلب
  [سؤال] عندي استفسار عن كود معبن حسن الجلب 1 348 16-01-21, 08:13 PM
آخر رد: asmarsou
  انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id moahmed.abdelmohsen 1 367 29-12-20, 11:25 PM
آخر رد: moahmed.abdelmohsen

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


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