作业帮 > 综合 > 作业

VB text组click清空

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/06/05 11:09:39
VB text组click清空
代码如下:Private Sub text1_click()
Dim i As Integer
i = 1
Do
Text1(i).Text = ""
i = i + 1
Loop Until i = 7
End Sub 有7个text1组,由于每次点文本框时有”text1“,要先删后输,我想第一次点击文本框时里面自动空白,这个代码老提示“过程声明与同名事件不匹配”,
Private Sub text1_click()
改为
Private Sub Text1_Click(Index As Integer)