vb print方法如何覆盖原有字符

来源：百度知道 编辑：UC知道 时间：2024/05/16 05:47:55
举例
print 1
Me.CurrentX=0
Me.CurrentY=0
print 2
结果2和1重叠在了一起，如何让2覆盖1，不用.cls!!!
其实主要是想删除用print方法输入的字符，而且不是全部删除。求教了。

使用WIN API函数来解决:
Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim x As Single
Dim y As Single
Dim fnt As Integer
Dim colvb As Long
Dim txt As String
Dim dd As Variant
Public Function xp(colvb As Variant, x As Variant, y As Variant, fnt As Variant, txt As Variant)
Me.ForeColor = colvb
Me.CurrentX = x
Me.CurrentY = y
Me.FontSize = fnt
Me.Print txt
End Function

Private Sub Command1_Click()
BitBlt Me.hDC, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, 0, vbBlack
x = 100
y = 100
fnt = 24
txt = "1"
colvb = vbRed
dd = xp(colvb, x, y, fnt, txt)
End Sub

Private Sub Command2_Click()
BitBlt Me.hDC, 0, 0, Me.ScaleWidth, Me.ScaleHeight,