在vb中如何使窗体上的文字显示在窗体的中间
展开全部
'你可以拉动窗体大小观察文字显示情况
Private Sub Form_Click()
Dim FrmStr As String
Cls
FrmStr = "屏幕中间居中显示"
Me.CurrentX = Me.ScaleWidth / 2 - Me.TextWidth(FrmStr) / 2
Me.CurrentY = Me.ScaleHeight / 2 - Me.TextHeight(FrmStr)
Print FrmStr
End Sub
Private Sub Form_Click()
Dim FrmStr As String
Cls
FrmStr = "屏幕中间居中显示"
Me.CurrentX = Me.ScaleWidth / 2 - Me.TextWidth(FrmStr) / 2
Me.CurrentY = Me.ScaleHeight / 2 - Me.TextHeight(FrmStr)
Print FrmStr
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'窗体大小变化,则触发此过程
Private Sub Form_Resize()
Label1.Top = Me.ScaleHeight / 2
Label1.Left = Me.ScaleWidth / 2
Debug.Print ("label1.top=" + Str(Label1.Top))
Debug.Print ("label1.Left=" + Str(Label1.Left))
End Sub
可以一试,希望对你有帮助
Private Sub Form_Resize()
Label1.Top = Me.ScaleHeight / 2
Label1.Left = Me.ScaleWidth / 2
Debug.Print ("label1.top=" + Str(Label1.Top))
Debug.Print ("label1.Left=" + Str(Label1.Left))
End Sub
可以一试,希望对你有帮助
追问
不能用标签 只能显示在窗体上
题目是这样的:在窗体装入时,窗体上显示“装入图片”字符串,并显示一张图片,标题栏显示“显示图片”。 但是图片总是把字符串遮盖住,导致显示不出字符串
追答
图片被遮盖,你可以试试,设置一下那个顺序。
具体是哪个属性我忘了,可以的,设置显示层次顺序。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用标签?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询