Question

我是一名自学成才的Visual Basic程序员。我的程序适用于我自己，朋友和一些非营利组织。我有一种情况，我认为这会相当简单，但事实并非如此。

我有一个文本框数组，其中包含6个元素（1 -6），名称为“ txtBilled”。将值输入到元素6以外的任何元素时，我想将值添加到1-5并将结果放在元素6中。由于文本数组的属性不提供丢失焦点的选项，因此开始出现问题。搜索内部提供的陈述表明这是正常的，其他人则说“ Lost Focus”应该一直存在。作为第二种方法，我尝试使用validate元素。在创建我在网上找到的以下内容之前，从未使用过此功能。

Private sub  txtBilled__Validate(Cancel as Boolean)

发现Validate事件也不包含在数组的属性中我正在Windows 10下使用VB6版本8176。任何关于我做错事情的理想都将受到赞赏。

Answer 1

您是否不能使用文本框数组的索引创建自己的LostFocus子项？

Private Sub txtBilled_LostFocus(Index As Integer)
   Dim i As Integer    
   dim sngTotal As Single

   '  Calculate sum only if not in last textbox
   If Index <> uBound(txtBilled) Then
        For i = LBound(txtBilled) to UBound(txtBilled) - 1
            sngTotal = sngTotal + txtBilled(i)
        Next i 
        txtBilled(uBound(txtBilled)) = sngTotal
   End If

End Sub

VB6

1 个答案: