扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
Label 控件不可以水平,上下居中
成都创新互联坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站建设、网站建设、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的玉环网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
不过可以用 PictureBox 控件做到
拖动一个 PictureBox 控件到工程,并命名为 picTextShow,把 AutoDraw 设为 True,加上以下代码就可以实现:
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))
picTextShow.Print "要显示的文本" End Sub
这样文本就可以在图片框中间显示了。
如果你用 .NET 做就很好办了。
滚动条的 Dock 属性设置为 Left,就在最左边了,窗体再调整大小它也跟着调。
图片框复杂点,如果不调整它和窗体的大小,编程时用格式菜单窗体居中就行,如果调整的话,你需要计算窗体的大小(frmMain.Size),然后按照 frmMain 的 Size 的 Width,Height 计算出图像框该有多大,用另两个 Integer 保存(Location 设置个固定值即可,Size 的 Width,Height 设置为窗体 Size 的 Width,Height 减去图像框的 Location 的 X,Y),将这两个值保存在一个 Point 对象中。然后把图像框的 SizeMode 属性设置为 StretchImage,并将其 Size 属性设置为你保存的那个 Point 对象。这样就能调节图像框的大小和位置,使其总是正好在窗体中间。
这段代码写个子程序,窗体的 Resize、图像框的 LoadComplete 事件都要调用它。
Sub PicResize
dim NewX as integer = me.size.width - 10 '假设这是图像框的 Location
dim NewY as integer = me.size.height - 10
dim NewPoint as new Point(NewX, NewY)
picMain.SizeMode = StretchImage
picMain.size = NewPoint
end sub
如果使用 .NET,你还是用 SplitContainer 非常方便,滚动条和图像框占用两边, Dock 设置为 Fill
非常简单
一:如果知道要选中的行号
datagridview1.Rows(行号).Selected
=
True
datagridview1.FirstDisplayedScrollingRowIndex
=
行号
第一行是选中行号所在的行,第二行是移动滚动条将选中的行在显示区域的最上放显示出来。
二:根据内容选中行并显示
For
i
=
To
datagridview1.Rows.Count
-
1
If
datagridview1.Rows(i).Cells("列的名称").Value
=
要选中行列的值
Then
datagridview1.Rows(i).Selected
=
True
datagridview1.FirstDisplayedScrollingRowIndex
=
i
End
If
Next
而且,如果你不想选中的行显示到最上面,可以这样:
For
i
=
To
datagridview1.Rows.Count
-
1
If
datagridview1.Rows(i).Cells("列的名称").Value
=
要选中行列的值
Then
datagridview1.Rows(i).Selected
=
True
Dim
indeI
As
Integer
=
i
-
15
If
indeI
1
Then
indeI
=
1
datagridview1.FirstDisplayedScrollingRowIndex
=
indeI
End
If
Next
上面的代码是根据某列的值选中行,并且移动滚动条将选中的行在显示区域的第15行显示。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流