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()
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)
改为
Private Sub Text1_Click(Index As Integer)
vb中 text1.text=" " 是什么意思?双引号间为空是表示结束吗?谢谢啦!
click
VB如何计算 text1.text等于某个自定义数值
在VB 语句中 x = Val(Text1.Text) Val
VB中StrConv(Text1.Text,vbFromUnicode)是什么意思啊?
VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2.
在VB当中 1.Text1.Text = Text1.Text & x & "+" & y & "=( )" & Chr
VB中求正弦,txtResult.Text = Sin(Val(txtInput.Text * 3.14159 / 18
Click Click Click 歌词
VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.te
vb算式四舍五入在vb缩写的代码中有一个算式:(ProgressBar1.Value / Text2.Text) * 1
VB如何定义b使len(text1.text)=len(b)