敬请各位高手解决vb.net(vs2010)如何窗体随标签控件一起变长短的问题。谢谢。 - 编程论坛

#2

xyxcc1772017-07-17 15:27

Label1.AutoSize = False
Label1.Dock = DockStyle.Fill

#3

HVB62017-07-18 07:30

回复 2楼 xyxcc177

以下是Form1的按钮代码，点击 Form1的按钮后，显示 Form2和其中的 Form2.Label1，但 Form2的长不变，导致 Form2.Label1的字显示不全，何因？谢谢。
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Label1.AutoSize = False（在Label1的属性中的AutoSize，也设置为 False）
        Form2.Label1.Dock = DockStyle.Fill（在Label1的属性中的Dock，无 DockStyle.Fill）
        Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进。"
    End Sub
End Class
Form2的代码：
Public Class Form2
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.AutoSize = False
        Label1.Dock = DockStyle.Fill
    End Sub
End Class

#4

xyxcc1772017-07-18 16:45

加一句：Form2.width=?

#5

xyxcc1772017-07-18 16:54

form2.width=Screen.PrimaryScreen.Bounds.Width

#6

HVB62017-07-19 12:01

回复 5楼 xyxcc177

窗体Form1的代码：
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Label1.AutoSize = False  '（在Label1的属性中的AutoSize，也设置为 False）
        Form2.Label1.Dock = DockStyle.Fill  '（在Label1的属性中的Dock，无 DockStyle.Fill）
        Form2.Width = Screen.PrimaryScreen.Bounds.Width   ‘加此行代码后，  Form2.Label1的长度和计算机的屏幕长度一致，可否进一步优化？即 Form2.Label1的长度能完全显示就行。谢谢。
        Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进。"
    End Sub
End Class

#7

xyxcc1772017-07-19 14:59

原来你是这个意思啊
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim mf As New Font("黑体", 30)
        With Form2
            .Label1.AutoSize = True
            .Label1.Text = "今天股市有上涨的态势，可以考虑买进。"
            .Label1.Font = mf
            .Width = .Label1.Width + 10
            .Label1.Left = 0
            .Show()
        End With
    End Sub

#8

qingcong332017-07-28 14:28

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
        Form2.Activate()
        Form2.Label1.Text = "今天股市有上涨的态势，可以考虑买进"
        Form2.AutoSize = True
        Form2.Label1.Dock = DockStyle.Fill
    End Sub

End Class

form2就设置了一个文本内容

#9

怪叔叔2017-08-08 10:38

Form.AutoSize = True
Form.Label1.Dock = DockStyle.Fill