Textbox değiştirin ve çalışmıyor çalışmıyor vb.net

Question

yolunda çok fazla ile uğraştığım gibi basit şeylerle uğraşıyorum.

Bir makineden bazı bilgileri toplayan vb.net'de bir UI geliştiriyorum. bilgiler, bir TextBox toplanır:

Private Sub ReceivedText(ByVal [text] As String) 
    If Me.TextBox2.InvokeRequired Then 
     Dim x As New SetTextCallBlack(AddressOf ReceivedText) 
     Me.Invoke(x, New Object() {(text)}) 
    Else 
     Me.TextBox2.Text &= [text] 
    End If 
End Sub 

Sonra ben basit bilgileri görüntülemek için bir DataGridView ya da bazı etiketlere ya o bilgi toplamak.

Sub dgv() 

    Dim sup2 = TextBox2.Text.Replace("#", "").Replace(">", " "c) 
    Dim sup() = sup2.Split(" "c, "#", vbCrLf, vbTab) 

    With DataGridView1 
     .Rows(0).Cells(0).Value = sup(1).ToString 
     .Rows(0).Cells(1).Value = sup(7).ToString 
     .Rows(0).Cells(3).Value = sup(4).ToString 
    End With 
    Button5.Enabled = True 
    Button6.Enabled = True 
End Sub 

Bu iyi çalışıyor!

Etiketleri yerleştirmeye çalıştığımda, aşağıdaki kodla, işe yaramıyor!

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Thread.Sleep(250) 

    Dim final = TextBox2.Text.Replace("#", "").Replace("SN", " "c) 
    Dim final2() = final.Split(" "c, "#", vbCrLf, vbTab) 
    Label1.Text = final2(0).ToString 
    Textbox2.Text= final2(0).ToString 

End Sub 

Birisi bana yardımcı olabilir mi? Etiket metni almaz .. ve metin kutusu hepsini alır.

Btw, metin kutusu çok satırlıdır ve metni microsoft sözcüğüne yapıştırırsam sekmeler ve fazladan boşluklarla gelir.

Düzenleme: Aşağıdaki microsoft word gelen PrintScreen

EDIT2

[ Multiline Textbox to Datagridview ilgili]: Bu çok garip ..

ben sadece onu bu

Label1.Text = "Testing" & TextBox2.Text 

yaparsanız etiket üzerinde "Test" ibaresini gösterir.

Answer 1

Etiketi AutoSize olarak ayarlarsanız, koyduğunuz metne otomatik olarak büyür. (Bu dikey büyümeyi içerir.) label1 için

assign önce değerini,

kullanın Aşağıdaki kod

Label1.MaximumSize = new Size(100, 0) 
Label1.AutoSize = true 

Birlikte # değiştirin

kodunuzu

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Thread.Sleep(250) 

    Dim final = TextBox2.Text.Replace("#", "").Replace("SN", " "c) 
    Dim final2() = final.Split(" "c, "#", vbCrLf, vbTab) 
    Label1.MaximumSize = new Size(100, 0) 
    Label1.AutoSize = true 
    Label1.Text = final2(0).ToString 
    Textbox2.Text= final2(0).ToString 

End Sub