Hi Oliver und Robert.
Danke. Habe das gestern schon irgendwie durch lesen selber herausfinden können.
Label habe nicht genutzt, da es da kein Multiline? gibt.
Richtextbox stört mich der komische Border.
Hab's zumindest via TextBoxen gelöst. :)
Aber jetzt kommt der Oberknaller, d.h. harter Knochen. :) Versuche theoretisch noch die aktuell verwendete Netzwerkkarte/adapter auszulesen.
Habe hier und da schon gelesen, aber was begreifbares habe ich da nichts gefunden.
Hier oben Thread habe ich schon eine WMI Variante gepostet (Link). Nur konnte ich das nicht testen, weil ich das nicht hin bekommen habe.
Außerdem denke ich, dass die WMI Variante alle Netzwerkadapter ausliest.
Habe mit dem WMI Code Creator eigentlich den Code gefunden/generiert (das hat schon lange gedauert, bis ich das herausgefunden habe), den ich benötige.
Nur wird der folgende Code in der Konsole ausgeführt.
Imports System
Imports System.Management
Imports System.Windows.Forms
Namespace WMISample
Public Class MyWMIQuery
Public Overloads Shared Function Main() As Integer
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkInterface")
For Each queryObj As ManagementObject in searcher.Get()
Console.WriteLine("-----------------------------------")
Console.WriteLine("Win32_PerfFormattedData_Tcpip_NetworkInterface instance")
Console.WriteLine("-----------------------------------")
Console.WriteLine("Name: {0}", queryObj("Name"))
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Function
End Class
End Namespace
Kann leider auch nichts brauchbares finden (auch MSDN), wie ich das Ergebnis in eine TextBox bekomme (ohne einen Button zu klicken).
Habe schon versucht das Problem selber zu lösen, aber zu keinem Ergebnis gekommen.
Diesen Befehl "Console.Writeline" kann man via TextBoxWriter lösen.
Nur habe ich kein Plan, wie ich den o.g. Code mit den TextBoxWriter-Code zusammensetzen kann.
Public Class TextBoxWriter
Inherits System.IO.TextWriter
Private control As TextBoxBase
Private Builder As StringBuilder
Public Sub New(ByVal control As TextBox)
Me.control = control
AddHandler control.HandleCreated, _
New EventHandler(AddressOf OnHandleCreated)
End Sub
Public Overrides Sub Write(ByVal ch As Char)
Write(ch.ToString())
End Sub
Public Overrides Sub Write(ByVal s As String)
If (control.IsHandleCreated) Then
AppendText(s)
Else
BufferText(s)
End If
End Sub
Public Overrides Sub WriteLine(ByVal s As String)
Write(s + Environment.NewLine)
End Sub
Private Sub BufferText(ByVal s As String)
If (Builder Is Nothing) Then
Builder = New StringBuilder()
End If
Builder.Append(s)
End Sub
Private Sub AppendText(ByVal s As String)
If (Builder Is Nothing = False) Then
control.AppendText(Builder.ToString())
Builder = Nothing
End If
control.AppendText(s)
End Sub
Private Sub OnHandleCreated(ByVal sender As Object, _
ByVal e As EventArgs)
If (Builder Is Nothing = False) Then
control.AppendText(Builder.ToString())
Builder = Nothing
End If
End Sub
Public Overrides ReadOnly Property Encoding() As System.Text.Encoding
Get
Return Encoding.Default
End Get
End Property
End Class
Private writer As TextBoxWriter = Nothing
Private Sub Form2_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'MaskedTextBox3 As System.Windows.Forms.MaskedTextBox
writer = New TextBoxWriter(MaskedTextBox3)
Console.SetOut(writer)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Console.WriteLine("This is some redirected text")
End Sub
Die Zeile mit "writer =
New TextBoxWriter(MaskedTextBox3)" ist bei mir immer blau hinterlegt. (Der Wert vom Typ "System.Windows.Forms.MaskedTextBox" kann nicht in "System.Windows.Forms.TextBox" konvertiert werden.)
Wie man sieht, selbst mit einem Button klappt das nicht. Selbst wenn ich die ausgeblendete Zeile reinnehme - nichts.
Ohne Button wäre das natürlich sehr gut. :)
Hm ..... ?????
