تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شاشة مراقبة اجهزة
#51
أخي العناوين أصبحت في قاعدة البيانات لا تحتاج الآن تضع القيم في ليست
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#52
انا عارف يا سيدي
انا اردت ان اتغلم اضافة عناصر الي المصفوفة بهذة الطريقة
انا عارف اني تعبت حضرتك
شكرا
الرد }}}
تم الشكر بواسطة:
#53
كود ملء المصفوفة :
كود :
Dim PCs() As String = Nothing
    Private Sub FillList()
        Dim da As New OleDbDataAdapter("Select PCaddrs from PCs", Con)
        Dim dset As New DataSet
        dset.Clear()
        OpenDB(Con)
        da.Fill(dset, "PCs")
        CloseDB(Con)
        Dim PCount As Integer
        If dset.Tables("PCs").Rows.Count > 0 Then
            PCount = dset.Tables("PCs").Rows.Count
            ReDim PCs(PCount - 1) ' هنا تم تحجيم المصفوفة لتأخذ عدد العناوين الموجودة بقاعدة البيانات
            For i As Integer = 0 To PCount - 1
                Dim s As DataRow = dset.Tables("PCs").Rows(i)
                PCs(i) = s.Item(0).ToString
            Next
        End If
    End Sub

*****
****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#54
خضرتك انا عايز اضيف عنصر الي المصفوفة الانية
Dim PCs As String() = {"192.168.1.65", "192.168.1.69", "192.168.1.75", "192.168.1.68", "192.168.1.70"}
لتصبح
Dim PCs As String() = {"atef","192.168.1.65", "192.168.1.69", "192.168.1.75", "192.168.1.68", "192.168.1.70"}
وهذا العصر اللي تم اضافته تم من خلال مربع نص مثلا
اي
هناك مربع نص و زر امر عند الضغط عليه ينم اضافة "atef" الي pcs وتصبح الجملة الجديدة
Dim PCs As String() = {"atef","192.168.1.65", "192.168.1.69", "192.168.1.75", "192.168.1.68", "192.168.1.70"}
الرد }}}
تم الشكر بواسطة:
#55
تفضل
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    If PCs IsNot Nothing Then
        ReDim Preserve PCs(PCs.Length)
    Else
        ReDim PCs(0)
    End If
    PCs(PCs.Length - 1) = TextBox1.Text

End Sub
الرد }}}
تم الشكر بواسطة:
#56
[COLOR="#A52A2A"]مااحلى التعاون بين الاعضاء

ربي يخليكم ياغوالي
[/COLOR]
الرد }}}
تم الشكر بواسطة:
#57
هذا هو المطلوب فعلا سلمت يداك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 327 30-10-23, 04:17 PM
آخر رد: Taha Okla
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  [VB.NET] ممكن كود تغير خلفية شاشة تامين ويندوز jam3h 1 518 11-10-22, 04:09 AM
آخر رد: jam3h
  [VB.NET] تغيير حجم شاشة الوندوز mmaalmesry 1 559 21-08-22, 01:20 PM
آخر رد: DR.YASER
  [VB.NET] عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين crazykinko 2 777 21-07-22, 04:12 PM
آخر رد: crazykinko
  كيفة عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين masport tv 1 689 30-06-22, 05:47 AM
آخر رد: ابو روضة
  [VB.NET] backup انشاء نسخ احتياطي من اجهزة على الشبكة محمد بوقزاحة 3 801 01-06-22, 05:20 PM
آخر رد: نيمو
  [سؤال] كيف يمكنني ان اعمل شاشة دخول مستخدم hassan 17 10,062 22-05-22, 03:30 AM
آخر رد: أبو خالد الشكري
  شاشة find and replace محمود صالح 1 735 19-11-21, 01:22 AM
آخر رد: ابو انس

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


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