17-08-13, 08:14 PM
حضرتك انا مش غاهم او مش قادر اوصل طلبي
انا عملت زر button جديد ووضعت به الكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ToolStripTextBox1.Lines.Length > 0 Then
Me.ListView1.Items.Clear()
For Each line As String In ToolStripTextBox1.Lines
Dim whole As String = line
Dim firstpart As String = whole.Substring(0, whole.LastIndexOf(","))
Dim lastpart As String = whole.Substring(whole.LastIndexOf(",") + 1)
Try
Application.DoEvents()
If lastpart = "0" Then
Dim LVI As New ListViewItem("PC " & firstpart)
LVI.ToolTipText = "Status : Opened"
LVI.ImageKey = "ScreenOpend"
Me.ListView1.Items.Add(LVI)
Else
Dim LVI As New ListViewItem("PC " & firstpart)
LVI.ToolTipText = "Status : Closed"
LVI.ImageKey = "ScreenClosed"
Me.ListView1.Items.Add(LVI)
End If
Catch ex As Exception
Dim LVI As New ListViewItem("PC " & ex.Message)
LVI.ToolTipText = "Status : Closed"
LVI.ImageKey = "ScreenClosed"
Me.ListView1.Items.Add(LVI)
End Try
Application.DoEvents()
Next
End If
End Sub
ولا يتم شيء لسبب ان مربع النص لا توجد به اي بيانات لكي ينفذ
البرامج التي تراقب الاجهزة بمجرد ما يدخل الجهاز في الشبكة يظهر في الشاشة
لا دومين ولا عيره ولا ملف نصي ولا غيره
انا عايز التعديل علي برتلمج الاستاذ kaswaly
انا عملت زر button جديد ووضعت به الكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ToolStripTextBox1.Lines.Length > 0 Then
Me.ListView1.Items.Clear()
For Each line As String In ToolStripTextBox1.Lines
Dim whole As String = line
Dim firstpart As String = whole.Substring(0, whole.LastIndexOf(","))
Dim lastpart As String = whole.Substring(whole.LastIndexOf(",") + 1)
Try
Application.DoEvents()
If lastpart = "0" Then
Dim LVI As New ListViewItem("PC " & firstpart)
LVI.ToolTipText = "Status : Opened"
LVI.ImageKey = "ScreenOpend"
Me.ListView1.Items.Add(LVI)
Else
Dim LVI As New ListViewItem("PC " & firstpart)
LVI.ToolTipText = "Status : Closed"
LVI.ImageKey = "ScreenClosed"
Me.ListView1.Items.Add(LVI)
End If
Catch ex As Exception
Dim LVI As New ListViewItem("PC " & ex.Message)
LVI.ToolTipText = "Status : Closed"
LVI.ImageKey = "ScreenClosed"
Me.ListView1.Items.Add(LVI)
End Try
Application.DoEvents()
Next
End If
End Sub
ولا يتم شيء لسبب ان مربع النص لا توجد به اي بيانات لكي ينفذ
البرامج التي تراقب الاجهزة بمجرد ما يدخل الجهاز في الشبكة يظهر في الشاشة
لا دومين ولا عيره ولا ملف نصي ولا غيره
انا عايز التعديل علي برتلمج الاستاذ kaswaly

