| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 327 人关注过本帖
标题:敬请各位高手解决vb.net(vs2010)如何窗体随标签控件一起变长短的问题。谢谢 ...
只看楼主 收藏
HVB6
Rank: 5Rank: 5
等 级:职业侠客
威 望:3
帖 子:253
专家分:367
注 册:2013-10-30
结帖率:100%
  问题点数:0  回复次数:9   
敬请各位高手解决vb.net(vs2010)如何窗体随标签控件一起变长短的问题。谢谢。
首先设置Label1的字体为22,然后把Form2拉伸与Label1大小一致,
最后如何用代码或者用设置Form2及Label1的某些属性使Form2随Label1控件一起长变短?
如使Label1控件分别显示以下数字时,Form2随Label1控件一起长变短,且能显示完全。
Form2.Label1.Text = "今天网络不通。"
Form2.Label1.Text = "今天股市有上涨的态势,可以考虑买进。"

[此贴子已经被作者于2017-7-7 07:23编辑过]

2017-07-06 23:48
xyxcc177
Rank: 2
等 级:论坛游民
威 望:1
帖 子:34
专家分:96
注 册:2017-7-8
  得分:0 
  Label1.AutoSize = False
 Label1.Dock = DockStyle.Fill
本帖最近评分记录
  • HVB6 积分 +7 好文章 2017-7-19 12:02
2017-07-17 15:27
HVB6
Rank: 5Rank: 5
等 级:职业侠客
威 望:3
帖 子:253
专家分:367
注 册:2013-10-30
  得分:0 
回复 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
2017-07-18 07:30
xyxcc177
Rank: 2
等 级:论坛游民
威 望:1
帖 子:34
专家分:96
注 册:2017-7-8
  得分:0 
加一句:Form2.width=?
本帖最近评分记录
  • HVB6 积分 +7 好文章 2017-7-19 12:02
2017-07-18 16:45
xyxcc177
Rank: 2
等 级:论坛游民
威 望:1
帖 子:34
专家分:96
注 册:2017-7-8
  得分:0 
form2.width=Screen.PrimaryScreen.Bounds.Width
本帖最近评分记录
  • HVB6 积分 +7 好文章 2017-7-19 12:01
2017-07-18 16:54
HVB6
Rank: 5Rank: 5
等 级:职业侠客
威 望:3
帖 子:253
专家分:367
注 册:2013-10-30
  得分:0 
回复 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
2017-07-19 12:01
xyxcc177
Rank: 2
等 级:论坛游民
威 望:1
帖 子:34
专家分:96
注 册:2017-7-8
  得分:0 
原来你是这个意思啊
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
本帖最近评分记录
  • HVB6 积分 +7 好文章 2017-7-19 15:43
2017-07-19 14:59
she20151201
Rank: 1
来 自:shanghai
等 级:新手上路
帖 子:7
专家分:0
注 册:2017-7-18
  得分:0 
回复 7楼 xyxcc177
拿起酒瓶喝了一口
2017-07-21 19:33
qingcong33
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:4
帖 子:37
专家分:24
注 册:2012-12-13
  得分:0 
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就设置了一个文本内容
2017-07-28 14:28
怪叔叔
Rank: 4
来 自:陕西
等 级:业余侠客
帖 子:113
专家分:229
注 册:2013-9-22
  得分:0 
Form.AutoSize = True
Form.Label1.Dock = DockStyle.Fill
2017-08-08 10:38









关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027806 second(s), 9 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved