Form aanpassen aan de label?

[Dummy1912]

Hallo,

Kan iemand mij helpen om de form aan te passen aan de grote van een label en anders om ook.
Ik bedoel als de aantal char in een label komen en ze zijn groter dan de label dan zou de from mee moeten aanpassen aan die label; begrijp je??

Bedankt

Dummy1912

 

[evertVB]

Met een timer en een label, en dan deze code:

Imports System.IO
Imports System.Text

Public Class Form1
    Private N As Integer
    Private Sub AdaptFormToLabel()
        Me.Width = Label1.Width + 100
        Me.Height = Label1.Height + 100
        Label1.Top = 50
        Label1.Left = 50
        Application.DoEvents()
        Me.Top = 100
        Me.Left = 500 - N
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        N = N + 1
        Label1.Text = Label1.Text & "xx"
        If Len(Label1.Text) > 150 Then
            N = 0
            Label1.Text = ""
        End If
        AdaptFormToLabel()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = ""
        N = 0
        Timer1.Enabled = True
        Timer1.Interval = 10
    End Sub
End Class

Is dat wat je bedoelt?

 

[Dummy1912]

Hey,

ai nee sorry wel een leuke effect
maar ik wil dat de form zelf mee veranderd van size als de tekst in de label teveel woorden heeft
bv. zoals windows als je een file verwijderd ziet je dat de msgbox aangepast wordt aan de tekst
zodat je een juiste maat krijgt van de form.

begrijp je?
ja sorry is moeilijk ui te leggen.
maar bedankt voor een poging.

Dummy1912

 

[old Hippy]

hi zet de timer op false in de code van evertVB

set een textbox in het form maak hem multiline en zet deze code er bij.

 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        AdaptFormToLabel()
        Application.DoEvents()
        Label1.Text = TextBox1.Text
    End Sub

 

[Dummy1912]

Hey Old hippy,

Het spijt me maar er gebeurt niets met de textbox ?
niets eigenlijk.

Dummy1912

 

[old Hippy]

ook niet als je er text in zet???

 

[Dummy1912]

Hey

Nee helemaal niet
zelfs niet via uw foto.

Dummy1912

 

[old Hippy]

probeer dit eens

 

[Dummy1912]

Hey

Great so cool

bedankt old hippi
je bent de beste
Jij ook evertVB want het is jou code dat hij heeft gebruikt. :thumb:

Ja dat is wat het moet zijn

bedankt hoor :thumb:

Dummy1912