Question

VB 文本框组数值覆盖

文本框组text1：

当改变任意文本框值时，比如text1(2).text=3，修改该值为其他数，则前两个文本框值不变，
text1(2).text=修改的值，text1(3).text=3, text1(4).text=4，另外再生成一个文本框组text1(5),
text1(5).text=5
问题比较怪，麻烦高手给写段代码，谢谢
文本框组数量不是固定的，最好不用按钮，直接更新文本框值

Answer 1

动态增加文本框控件即可

增加了一个“刷新”按钮，用户输入数字后，点击这个按钮就会实现你希望的功能。

Option Explicit
Dim AA()
Dim L As Integer

Private Sub Command2_Click()
Dim i As Integer
Dim k As Integer

'L = Index
i = Text1.Count

Load Text1(i)

With Text1(i)
.Left = Text1(0).Left
.Top = Text1(i - 1).Top + 1.5 * Text1(i - 1).Height
.Text = ""
.Visible = True
End With

For k = (L + 1) To i
Text1(k).Text = AA(k - 1)
Next k
End Sub

Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
ReDim AA(0 To Text1.Count - 1)

L = Index

For i = 0 To Text1.UBound
AA(i) = Text1(i).Text
Next i

End Sub

追问

动态增加文本框我知道怎么做了，就是不知道怎么赋值给相应的文本框，麻烦帮下忙
文本框数量不是固定的

追答

解决赋值问题是通过定义了一个数组AA来实现的 不然每次用户输入数字后，原来的数字就丢失了。

哦 对了 这个程序没有考虑容错问题，例如 对用户输入的内容 应该判断 IsNumeric 不是数字就舍弃 新增文本框的位置逐渐下移，如果超出窗口位置也是不希望的

追问

提示下标越界？麻烦帮忙检查一下，谢谢

追答

你在窗体上放置一个text1 把属性中的Index 设置成0 然后选中这个文本框 复制 粘贴 使窗体上有三个文本框 排列成一列 。
这个代码是我运行了没问题才发上来的，你不要把处理代码放到 text1的change事件里 否则每次赋值都会造成事件触发 从而下标越界

追问

非常感谢，另外问下，能不能判断：如果文本框数值都没有变化时，则按钮点击无效，因为现在是直接点击按钮会报错

追答

可以的，既然已经用AA保存了原来的数值 那么只要在操作之前 逐个比对一下就行可以 如果没有改变 则不操作，稍等我更新一下代码
Option Explicit
Dim AA()
Dim L As Integer

Private Sub Command2_Click()
Dim i As Integer
Dim k As Integer

'增加判断 若数值未修改则不进行后续操作
Dim TF As Boolean
TF = False
For k = 0 To Text1.Count - 1
If Text1(k).Text AA(k) Then
TF = True
Exit For
End If
Next k

If Not TF Then Exit Sub

'L = Index
i = Text1.Count

Load Text1(i)

With Text1(i)
.Left = Text1(0).Left
.Top = Text1(i - 1).Top + 1.5 * Text1(i - 1).Height
.Text = ""
.Visible = True
End With

For k = (L + 1) To i
Text1(k).Text = AA(k - 1)
Next k
End Sub

Private Sub Form_Load()
GetAA
End Sub

Private Sub Text1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
L = Index
GetAA
End Sub

Sub GetAA()

Dim i As Integer
ReDim AA(0 To Text1.Count - 1)

For i = 0 To Text1.UBound
AA(i) = Text1(i).Text
Next i

End Sub

在窗体加载时 给AA赋值
在点击刷新时 判断是否更改了数值