vb 关于修改按键的问题

来源：百度知道 编辑：UC知道 时间：2024/06/02 01:57:04
老师，您能明白我刚才我所说的那个修改按键的功能吗，就是，当我点击list当中的某一行，用您的代码不是又回到原来的选项了吗，这时，我可以修改原来的选项，包括，Option1，Check1(i)，Combo1，如果修改完毕，点击这个修改，新的将保存，就的将删除

Private Sub Command5_Click()
Dim sz() As String, fhz As Long, i As Long
If List1.ListCount > 0 Then
ReDim sz(List1.ListCount - 1)

fhz = List1.ListIndex

For i = 0 To List1.ListCount - 1
sz(i) = List1.List(i)
Next i

sz(fhz) = Right(Combo1.Text, 3) & ","

For i = 0 To 11
If Check1(i).Value = 1 Then
sz(fhz) = sz(fhz) & Check1(i).Caption & ","
End If
Next i

For i = 0 To 2
If Option1(i).Value = True Then
sz(fhz) = sz(fhz) & Option1(i).Caption
End If
Next i

List1.Clear
For i = 0 To UBound(sz)
List1.AddItem sz(i)
Next i
List1.ListIndex = fhz
Else
MsgBox "列表框不能没有数据"
End If

End Sub