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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عندي مشكلة اثناء عرض البيانات الضخمة في قريد يسبب بطى اثناء عرضها RADOS 5 690 07-05-23, 12:29 AM
آخر رد: new_programer
  [سؤال] كيفية اضافة اكثر من ثلاث معاملات الى عامل التشغيل بواسطة If asmarsou 7 1,167 26-02-23, 11:34 PM
آخر رد: asmarsou
  [سؤال] عندي مشكلة رسالة موقفة المشروع تماما عمور2016 3 743 13-08-22, 02:25 PM
آخر رد: عمور2016
Sad [VB.NET] مشكلة عندي في عرض تقارير كريستال ريبورت بجهاز العميل golden man 0 697 04-08-22, 11:06 PM
آخر رد: golden man
  عندي AWS credits 2500$ كيف يمكن ان ابيعه؟ Wael_K 0 512 28-05-22, 04:44 PM
آخر رد: Wael_K
  السلام عليكم عندي ثلاث Button اريد عند اخفاء ال Button2 يتم ترحيل Button1 معButton3 ahmedhhh2 4 1,341 05-03-22, 01:18 PM
آخر رد: ahmedhhh2
Lightbulb [VB.NET] الرجاء المساعدة أخوتي عندي مشكلة DATA_GRID_VIEW RADOS 4 1,357 19-01-22, 12:41 AM
آخر رد: رضوان الجماعي
  السلام عليكم عندي سؤال فالمنهج الدراسي AhmedRamadan 5 1,430 11-01-22, 01:55 AM
آخر رد: ابراهيم ايبو
  [سؤال] عندي استفسار بسيط حسن الجلب 2 1,158 25-12-21, 02:59 AM
آخر رد: حسن الجلب
  السلام عليكم عندي سؤال بعيد عن الفيجوال بيزك بس للضرورة احكام AhmedRamadan 6 1,440 28-11-21, 01:33 PM
آخر رد: AhmedRamadan

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


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