怎样让label控件固定在窗口中部
就是我我窗体无论怎么放大缩小 label控件始终在窗体的水平中间
而且label控件也随着字体的变大自己也在变大
-
等级
本版专家分：326结帖率 97.04% -
请教个label控件的问题
怎样让label控件固定在窗口中部
就是我我窗体无论怎么放大缩小 label控件始终在窗体的水平中间
而且label控件也随着字体的变大自己也在变大展开阅读全文
-
等级
本版专家分：22223勋章
-
- 签到新秀
-
- GitHub
-
- 蓝花 2021年3月 .NET技术大版内专家分月排行榜第三
-
-
难点是字体大小不能根据标签大小改变，他们单位不同，标签大小倒是可以根据字体大小改变。
-
等级
本版专家分：65230勋章
-
- 进士 2013年 总版技术专家分年内排行榜第九
-
-
金牌
2013年4月 总版技术专家分月排行榜第一
2013年3月 总版技术专家分月排行榜第一
-
-
红花
2013年4月 .NET技术大版内专家分月排行榜第一
2013年3月 .NET技术大版内专家分月排行榜第一
-
- 蓝花 2013年2月 .NET技术大版内专家分月排行榜第三
-
-
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.AutoSize = True
Size_Changed(sender, e)
'这一句可以不要
'AddHandler Label1.FontChanged, AddressOf Size_Changed
AddHandler Label1.SizeChanged, AddressOf Size_Changed
AddHandler Label1.TextChanged, AddressOf Size_Changed
AddHandler Me.SizeChanged, AddressOf Size_Changed
End Sub
Private Sub Size_Changed(sender As Object, e As EventArgs)
Label1.Location = New Drawing.Point((Me.Width - Label1.Width) / 2, (Me.Height - Label1.Height) / 2)
End Sub
End Class
-
等级
本版专家分：15974勋章
-
- 签到新秀
-
-
Label1.Anchor = AnchorStyles.None
-
等级
本版专家分：65230勋章
-
- 进士 2013年 总版技术专家分年内排行榜第九
-
-
金牌
2013年4月 总版技术专家分月排行榜第一
2013年3月 总版技术专家分月排行榜第一
-
-
红花
2013年4月 .NET技术大版内专家分月排行榜第一
2013年3月 .NET技术大版内专家分月排行榜第一
-
- 蓝花 2013年2月 .NET技术大版内专家分月排行榜第三
-
-
只是水平居中的话，把
Label1.Location = New Drawing.Point((Me.Width - Label1.Width) / 2, (Me.Height - Label1.Height) / 2)
改成下面这句即可
Label1.Location = New Drawing.Point((Me.Width - Label1.Width) / 2, Label1.Top)
-
等级
本版专家分：22223勋章
-
- 签到新秀
-
- GitHub
-
- 蓝花 2021年3月 .NET技术大版内专家分月排行榜第三
-
-
涉及到不按照等比例缩放的问题，你这儿要求不知道是什么，下面的代码根据高度的变化缩放，可以先讲标签的字体设置的稍微大点测试。
Public Class Form1
Dim labsize As Single
Dim formsize As Size
Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
Dim hc = Me.Height / formsize.Height
Dim wc = Me.Width / formsize.Width
Dim p As Double
' If hc < wc Then
p = labsize * hc
' Else
' p = labsize * wc
' End If
Dim font As New Font(Label1.Font.Name, CSng(p), GraphicsUnit.Point)
Label1.Font = font
Label1.Location = New Point((Me.ClientSize.Width - Label1.Width) \ 2, (Me.ClientSize.Height - Label1.Height) \ 2)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
formsize = Me.Size
labsize = Label1.Font.Size
End Sub
End Class
-
等级
本版专家分：326
-
Label1.Location = New Drawing.Point((Me.Width - Label1.Width) / 2, Label1.Top)
用这个就可以了 谢谢 结贴
-
等级
本版专家分：0 -
很好，很有帮助。
- vb.net--Label控件
（2）AutoSize属性：该属性用来获取或设置一个值，该值指示是否自动调整控件的大小以完整显示其内容。取值为True时，控件将自动调整到刚好能容纳文本时的大小，取值为False时，控件的大小为设计时的大小。默认值为...
- vb.net 图形控件_玩转图形：VB.net GlassLabel控件
vb.net 图形控件 A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. 不久前，...
- 走近VB.NET十五 在VB.NET中使用新的控件labellink访问
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
- vb.net控件
vb.net 的 Label 控件 label(标签)控件用于显示文本，是设计应用程序界面时经常要用到的控件之一， 主要是用于显示其他控件名称，描述程序运行状态或标识程序运行的结果信息等 等，响应程序的事件或跟踪程序运行的...
- label怎么换行 vb_VB.NET LABEL 如何实现自动换行
VB.NET LABEL 如何实现自动换行 yrx1983 LV12 2013-06-26 不限制长度。一堆感叹号的时候怎么解！!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!...
- VB .Net基本控件的绑定跟赋值
VB .Net基本控件的绑定跟赋值1）TextBox的String数据获取跟赋值 先创建两个TextBox控件跟一个Button控件 双击赋值按钮键入下方代码'声明string类型的参数 Dim stringtext As String '获取文本框输入的值 string...
- chart控件做实时曲线显示_玩转图形：VB.net GlassLabel控件
不久前，我正在开发Windows Forms应用程序，我需要一个特殊的具有反射(玻璃)效果的标签控件，以一种时尚的方式显示一些标题。我一直很喜欢图形处理，但是重新发明轮子从来都不是太聪明，所以我要做的第一件事就是...
- Vb.Net 重写控件(源代码)
包含完整的源代码VB.net 重写控件 TabContorl TextBox label 实现了一些小功能，可自行完善，程序仅供交流之用 花了很多精力,可以让你从零认识控件
- 【原创】vb.net 动态控件 事件添加
【原创】vb.net 动态控件 事件添加 添加选项后： 为实现动态添加，所需代码如下(共三个函数)： Private selectcond1 As String = "" '厂家 Private selectcond2 As String = "" '工程队 Private selectcond3 ...
- VS VB.NET Timer控件
1. 添加Timer控件 2. 设置Timer控件的属性： 3. 添加控件触发时执行的代码： 实现的功能为：每1000ms在Label1上显示一遍当前时间。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...
- VB.NET Label 字体竖著排列
让label的autosize属性为true，然后使用以下语句赋值： Label1.Text = "工 " & vbCrLf & "人
- Vb.net遍历一个窗口中的所有某类对象 (窗体中的控件) 的方法
学习目标：VB.NET利用Controls属性获取窗体控件列表练习平台：Windows10企业版（64位）测试工具：MicrosoftVisual Studio（版本默认安装）。程序语言：VB.NET通过窗体的Controls属性实现，参考代码： Try For i = ...
- vb.net 用RGB显示控件的颜色
Label2.BackColor = Color.FromArgb(5, 42, 71)
- vb.net 控件backgroundcolor为半透明时，如何让其它控件也半透明显示？
```vb.net Label1.BackColor = Color.FromArgb(100, 0, 0, 0) ``` 这样做以后只让窗体的背景图片半透明显示了，而其它控件却被遮盖了。 （图片为窗体背景） ![图片说明]...
- VB.net数据库编程中DataGrid控件的使用技巧
DataGrid是VB.NET中重要的数据感知控件，它不仅可以把数据库的记录以表格形式显示出来，而且可以表格形式编辑数据库的记录，所以，它在数据库编程中应用非常广泛。那么,在VB.NET数据库编程中DataGrid控件有哪些使用...
- VB.NET 设置Label字体
'==========================改变字体 Dim myFont As System.Drawing.Font Dim strName As String = ListBox1.Text Dim myFontFamily As System.Drawing.FontFamily myFontFamily = Ne
- vb.net 如何让label中的文字旋转90°显示呢？
Public Class MyLabel Inherits Label Protected Overrides Sub OnPaint(e As PaintEventArgs) ...以上代码只能绘制一个label，并不能旋转90°，如何实现90°旋转呢？？ ``` ```
- VB.net MenuStrip控件通过数据库生成多级动态菜单并添加单击事件
VB.net MenuStrip控件通过数据库生成多级动态菜单并添加单击事件 个人小白，一个多月前想通过 MenuStrip控件调用数据库数据生成多级联动下拉菜单，结果网上的资料都只是部分代码可用。经过一个月的东拼西凑终于能...
- vb.net 用代码产生label panel picturebox，如何将Label置于最上层？
这个产生的代码，要置于Panel及PictureBox的最上方，请问代码如何改呢？ Dim lab2 As New Label With lab2 .Name = "Lab" + i.ToString() .ForeColor = Color.Yellow .Font = New System....
- VB.Net中用户控件的使用
机房重构中有这样
- vb.net 怎么找到 自定义控件 中的控件
自定义控件 发内置代码 自定义控件.FindControl("ID") as Label
- VB.NET 如何实现代码自动生成控件 添加绑定事件---章鱼哥
‘********************************************************************** ...’ 1、定义一个该类型控件的实例对像 ’ 2、添加到父控件的Controls集合中（对于没有窗体界面的控件，2、3步可不要，如Timer控件） ...
- Vb.net 控件背景色透明设置BackColor 和Parent
如： Me.Label1.BackColor = Color.Transparent Me.Label1.Parent = Me.dgvTracking
- vb.net 代码建立控件，并显示在窗体上
Dim lb As New Label lb.Text = "hello" lb.Top = 200 lb.Left = 100 Me.Controls.Add(lb) 转载于:https://www.cnblogs.com/zuiyeqingfeng/p/3770268.html...
- 窗体方法VB.NET设置控件和窗体的显示级别
在用VB.net对机房收费系统行进构重时遇到了些小问题，上对面一些问题行进总结。 一、MDI子窗体表现到Panel、PictureBox等控件前 常正情况下Mdi子窗体只能表现到父窗体的容器中，但是在设计时父窗体常常不能参加...
- vb.net 以变量形式调用控件
dimmyTb as textboxdimi as integerfor i=1 to 100mytb=me.controls(“textbox” & i)mytb.enable=falsenext Dim lbl() As Label = { Label1, Label2, Label3, .... } lbl(number).Text = "xxxx" '如果num...
- vb.net 教程 3-13 动态创建控件1
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得...1、定义一个窗体级别的变量，类型为需要的控件类型。 如果还要使用该控件的事件，请使用以下语句： Dim WithEve...
- vb.net 教程 3-8 窗体编程 容器 1 Panel & GroupBox
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业...其实下面的那个容器是Panel加上一个Label做的。 基本上，容器都是用来放置其它控件的，在容器中的控件受...
- 在VB.NET中使用控件数组
http://www.cnblogs.com/yunbo/archive/2009/08/13/1545657.html 控件数组是位于一个窗体上共享同一名称...开发人员在 Visual Basic 6.0 以及更早的版本中使用控件数组主要有以下三个理由： 1. 在循环中访问数组中控
- VB.NET 无法调用另一个隐藏窗体中的按钮，希望能够解决这个问题。
这是一个简化的例子，实际上，被调用的第二个窗体上的按钮还要去调用其他的控件。 现在正在使用的凑合的办法是把第二个窗体放在正在显示的第一个窗体后面去遮蔽起来。需要的时候把第二个窗体放到前面来。 对可见的...