18-08-13, 07:15 PM
18-08-13, 11:22 PM
انا عارف يا سيدي
انا اردت ان اتغلم اضافة عناصر الي المصفوفة بهذة الطريقة
انا عارف اني تعبت حضرتك
شكرا
انا اردت ان اتغلم اضافة عناصر الي المصفوفة بهذة الطريقة
انا عارف اني تعبت حضرتك
شكرا
19-08-13, 11:33 AM
كود ملء المصفوفة :
*****
****
***
**
*
كود :
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*****
****
***
**
*
19-08-13, 01:59 PM
خضرتك انا عايز اضيف عنصر الي المصفوفة الانية
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"}
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"}
19-08-13, 02:09 PM
تفضل
كود :
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 Sub19-08-13, 03:37 PM
[COLOR="#A52A2A"]مااحلى التعاون بين الاعضاء
ربي يخليكم ياغوالي[/COLOR]
ربي يخليكم ياغوالي[/COLOR]
19-08-13, 09:20 PM
هذا هو المطلوب فعلا سلمت يداك