以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  居中问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92418)

--  作者:刘林
--  发布时间:2016/11/3 8:19:00
--  居中问题
请问如何使一个表单内的标签在窗口大小变化时始终居中
--  作者:有点青
--  发布时间:2016/11/3 8:44:00
--  
Dim lbl As WinForm.Label = e.Form.Controls("Label1")
lbl.left = (e.form.width - lbl.width) / 2

--  作者:有点蓝
--  发布时间:2016/11/3 8:46:00
--  
窗口SizeChanged事件

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
If e.Form.Width > lbl.Width orelse e.Form.Height > lbl.Height Then
    lbl.Left = (e.Form.Width - lbl.Width ) / 2
    lbl.Top = (e.Form.Height - lbl.Height ) / 2
End If
[此贴子已经被作者于2016/11/3 8:53:14编辑过]

--  作者:有点青
--  发布时间:2016/11/3 8:49:00
--  

 

如果要自适应,看看这里 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78838&skin=0


--  作者:刘林
--  发布时间:2016/11/3 10:22:00
--  
谢谢