vb 如何删除或是更改已print在窗体上的文字
答案:4 悬赏:20 手机版
解决时间 2021-04-26 19:47
- 提问者网友：喧嚣尘世
- 2021-04-26 04:48
vb 如何删除或是更改已print在窗体上的文字
最佳答案
- 五星知识达人网友：等灯
- 2021-04-26 06:16
Private Sub Command1_Click()
Me.Cls
s$ = "居中文字"
Me.CurrentX = Me.ScaleWidth / 2 - TextWidth(s) / 2
Me.CurrentY = Me.ScaleHeight / 2 - TextHeight(s) / 2
Me.Print s
End Sub
Me.Cls
s$ = "居中文字"
Me.CurrentX = Me.ScaleWidth / 2 - TextWidth(s) / 2
Me.CurrentY = Me.ScaleHeight / 2 - TextHeight(s) / 2
Me.Print s
End Sub
全部回答
- 1楼网友：佘樂
- 2021-04-26 08:25
cls
currentx=form1.scalewidth/2
currenty=form1.scaleheight/2
print"居中"
currentx=form1.scalewidth/2
currenty=form1.scaleheight/2
print"居中"
- 2楼网友：渡鹤影
- 2021-04-26 07:07
frm.cls
不好弄，如果显示标签文本之类的 最好使用LABEL控件
不好弄，如果显示标签文本之类的 最好使用LABEL控件
- 3楼网友：长青诗
- 2021-04-26 06:44
清除用 Me.Cls
居中加个label,试试
Private Sub Form_Load()
'调整label背景透明,样式居中
Label1.BackStyle = 0
Label1.Alignment = 2
'label放到form中央
Label1.Left = (Me.Width - Label1.Width) / 2
Label1.Top = (Me.Height - Label1.Height) / 2
Label1.Caption = "现在是居中"
End Sub
居中加个label,试试
Private Sub Form_Load()
'调整label背景透明,样式居中
Label1.BackStyle = 0
Label1.Alignment = 2
'label放到form中央
Label1.Left = (Me.Width - Label1.Width) / 2
Label1.Top = (Me.Height - Label1.Height) / 2
Label1.Caption = "现在是居中"
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯