VB 屏幕显示文字 - 编程论坛

#2

Artless2013-09-29 12:02

Form属性
WindowState = 2
BorderStyle = 0

#3

冷血小子2013-09-29 15:02

回复 2楼 Artless

高手我补充了一下问题，再帮我看一下吧谢谢

#4

风吹过b2013-09-29 16:14

Option Explicit
Private Sub Command1_Click()
'显示文字
Dim s As String
s = "显示文字"

Dim i As Long
Dim x As Single, y As Single

Me.Font.Size = 256
Me.ForeColor = RGB(255, 255, 0)

x = (Me.ScaleWidth - Me.TextWidth(s)) / 2
y = (Me.ScaleHeight - Me.TextHeight(s)) / 2

Me.CurrentX = x
Me.CurrentY = y

Me.Print s
End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

'在属性里设置 BorderStyle = 0 ，此属性运行时设置无效
Me.BackColor = RGB(0, 255, 128)
Me.WindowState = 2

End Sub

还有一种控件的方法，就是放个Label 控件，设为透明色，上下在窗体中居中，左右与窗体等宽。
控件属性：字号，可以放到很大，设置字色，文字对齐方式为居中。
把需要显示的内容直接输入进去，该控件会自动左右居中

#5

冷血小子2013-09-29 17:42

回复 4楼风吹过b

感谢高手的代码，试过了，果然达到了目的。
然后我在 Form_Load() 里加了两行代码：
                     = Me.ScaleHeight -
                     = Me.ScaleWidth -
我想让程序运行后，按钮去屏幕的右下角，为什么不行呢？  按钮的确移动了，但没有到屏幕的右下角