| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3481 人关注过本帖
标题:敬请各位高手解决vb.net(vs2010)如何窗体随标签控件一起变长短的问题。谢谢 ...
只看楼主 加入收藏
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册:2013-10-30
结帖率:100%
收藏
 问题点数:0 回复次数:8 
敬请各位高手解决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编辑过]

搜索更多相关主题的帖子: vb.net vs2010 窗体 标签 控件 
2017-07-06 23:48
xyxcc177
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
收藏
得分:0 
  Label1.AutoSize = False
 Label1.Dock = DockStyle.Fill
收到的鲜花
  • HVB62017-07-19 12:02 送鲜花  7朵   附言:好文章
2017-07-17 15:27
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册: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: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
收藏
得分:0 
加一句:Form2.width=?
收到的鲜花
  • HVB62017-07-19 12:02 送鲜花  7朵   附言:好文章
2017-07-18 16:45
xyxcc177
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册:2017-7-8
收藏
得分:0 
form2.width=Screen.PrimaryScreen.Bounds.Width
收到的鲜花
  • HVB62017-07-19 12:01 送鲜花  7朵   附言:好文章
2017-07-18 16:54
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:320
专家分:561
注 册: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: 9Rank: 9Rank: 9
等 级:贵宾
威 望:26
帖 子:197
专家分:1249
注 册: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
收到的鲜花
  • HVB62017-07-19 15:43 送鲜花  7朵   附言:好文章
2017-07-19 14:59
qingcong33
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:6
帖 子:47
专家分:64
注 册: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
来 自:陕西
等 级:业余侠客
威 望:1
帖 子:113
专家分:234
注 册:2013-9-22
收藏
得分:0 
Form.AutoSize = True
Form.Label1.Dock = DockStyle.Fill
2017-08-08 10:38
快速回复:敬请各位高手解决vb.net(vs2010)如何窗体随标签控件一起变长短的问题。 ...
数据加载中...
 
   



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

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