bah_jaf
چهارشنبه 29 آبان 1387, 13:09 عصر
با توجه به اینکه نمیشه وقتی یک پروسس جدید ایجاد شده در اون پروسس از اشیا فرم استفاده کرد کسی هست بهم بگه اگر نخوام از دستور زیر استفاده کنم چجوری میتونم مقدار تابع زیر رو که از پروسس استفاده میکنه داخل تکس باکس قرار بدم؟
textbox1.text = ChkStation()
اینم نحوه ایجاد یک روند غیر همزمان :
Dim thread AsNew System.Threading.Thread(AddressOf ChkStation)
thread.IsBackground = True
thread.Priority = Threading.ThreadPriority.Highest
thread.Start()
اینم تابع:
PrivateFunction ChkStation() AsString
Dim Sstring AsString = ""
For i AsInteger = 1 To 255
Dim x AsNew Net.NetworkInformation.Ping()
Dim ip AsString = "192.168.1." & Trim(Str(i))
If x.Send(ip, 0.001).Status = Net.NetworkInformation.IPStatus.Success Then
Dim b AsString = System.Net.Dns.Resolve(ip).HostName.ToString()
Sstring = b + vbCrLf + Sstring
EndIf
Next i
Return Sstring
EndFunction
textbox1.text = ChkStation()
اینم نحوه ایجاد یک روند غیر همزمان :
Dim thread AsNew System.Threading.Thread(AddressOf ChkStation)
thread.IsBackground = True
thread.Priority = Threading.ThreadPriority.Highest
thread.Start()
اینم تابع:
PrivateFunction ChkStation() AsString
Dim Sstring AsString = ""
For i AsInteger = 1 To 255
Dim x AsNew Net.NetworkInformation.Ping()
Dim ip AsString = "192.168.1." & Trim(Str(i))
If x.Send(ip, 0.001).Status = Net.NetworkInformation.IPStatus.Success Then
Dim b AsString = System.Net.Dns.Resolve(ip).HostName.ToString()
Sstring = b + vbCrLf + Sstring
EndIf
Next i
Return Sstring
EndFunction