高分求教

[hyyhvb]

我想写一个程序
作用如下
有一组控件数组textbox,判断它们的内容是否相同，相同警告斌执行相关程序
不同则执行下面的程序
还有一个问题
有四个textbox,是一个数组控件，我想让它们中，在第一个中输入内容后，第二个得到焦点，最后一个输入完后，焦点消失，请问如何实现？？？？？？？

[TechnoFantasy]

判断是否相等的：

Dim s As String
Dim equal As Boolean

s = Text1(0)
equal = True

For Each o In Text1
If s <> o Then
equal = False
End If
Next

If equal Then
MsgBox "OK"
Else
MsgBox "False"
End If

[hyyhvb]

我可能没有说清
是任意两个控件中的内容不能相同
不是全部相同或不同

[xjp6688]

up

[TechnoFantasy]

你看这样可以不：


Private Sub Command3_Click()
Dim i, j
Dim equal As Boolean

equal = True

For i = Text1.LBound To Text1.UBound - 1
For j = i To Text1.UBound
If Text1(i) <> Text1(j) Then
equal = False
End If
Next j
Next i
If equal Then
MsgBox "OK"
Else
MsgBox "False"
End If
End Sub


采用了类似冒泡排序的方法。

[hyyhvb]

还不行
举个例子
text1(0).text=1,text1(1).text=2,text1(2).text=3,text1(3).text=1
也应判断为相等
而你的程序将其判断为不等
你的程序只将text1(0).text=1,text1(1).text=1,text1(2).text=1,text1(3).text=1
判断为相等
明白我的意思了吗

[mxfeng]

textbox 接收的是字符串！
比较两个字符串用不着循环

[TechnoFantasy]

代码有问题，我改了一下：

Private Sub Command3_Click()
Dim i, j
Dim equal As Boolean

equal = True

For i = Text1.LBound To Text1.UBound - 1
For j = i + 1 To Text1.UBound
If Text1(i).Text = Text1(j).Text Then
equal = False
End If
Next j
Next i

If equal Then
MsgBox "OK"
Else
MsgBox "False"
End If
End Sub

你看可以不？

[mxfeng]

看错了。sorry

[hyyhvb]

Dim index

Private Sub Text1_Change(index As Integer)
index = index + 1
Text1(index).SetFocus
index = index + 1
End Sub
text1只有四个，可程序不停执行，一到index=4时就出错，请问有办法吗

[TechnoFantasy]

If index=Text1.UBound then
index = index + 1
Else
Index = Text1.LBound
End If

[hyyhvb]

又有问题了：
我想让鼠标一到某个控件上时，出现提示信息，请问如何实现

[ryuginka]

又有问题了：
我想让鼠标一到某个控件上时，出现提示信息，请问如何实现
//
ToolTipText属性
比如text1.ToolTipText="sdfsd"