在TEXTBOX中输入的文字在FORM的特定位置显示

来源：百度知道 编辑：UC知道 时间：2024/06/11 02:01:01
要求TEXTBOX中的文字在FORM的第10行第5列出现

Private Sub Form_Load()
For i = 1 To 9
Print
Next
Print Spc(5); Text1.Text
End Sub

Private Sub Text1_Change()
Cls
For i = 1 To 9
Print
Next
Print Spc(5); Text1.Text
End Sub
这样只是窗体的10行，空5个空位置后实时打印text
其实
Private Sub Text1_Change()
Form1.CurrentX = 100
Form1.CurrentY = 200
Form1.ForeColor = vbRed
Print Text1.Text
End Sub
能在窗体的任何位置显示，还能控制大小颜色。不知道楼主这什么用的

Private Sub Text1_Change()
Cls
Print String(9, Chr(13)) & String(4, " ") & Text1.Text
End Sub

Private Sub Form_Click()
CurrentX = TextWidth("1") * 4
CurrentY = TextHeight("1") * 9
Print "这里"
End Sub