+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=10036)
شاشة مراقبة اجهزة - kslawy - 18-08-13
أخي العناوين أصبحت في قاعدة البيانات لا تحتاج الآن تضع القيم في ليست
شاشة مراقبة اجهزة - atefkhalf2004 - 18-08-13
انا عارف يا سيدي
انا اردت ان اتغلم اضافة عناصر الي المصفوفة بهذة الطريقة
انا عارف اني تعبت حضرتك
شكرا
شاشة مراقبة اجهزة - kslawy - 19-08-13
كود ملء المصفوفة :
كود :
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*****
****
***
**
*
شاشة مراقبة اجهزة - atefkhalf2004 - 19-08-13
خضرتك انا عايز اضيف عنصر الي المصفوفة الانية
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"}
شاشة مراقبة اجهزة - MSDOS - 19-08-13
تفضل
كود :
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شاشة مراقبة اجهزة - الشاكي لله - 19-08-13
[COLOR="#A52A2A"]مااحلى التعاون بين الاعضاء
ربي يخليكم ياغوالي[/COLOR]
شاشة مراقبة اجهزة - atefkhalf2004 - 19-08-13
هذا هو المطلوب فعلا سلمت يداك