今天刚刚学到下拉的
但是发现清除那个键和增加项的那里会出现冲突  我想把如果按了清除键之后 增加键能不能变灰色？
还有增加那里能不能调成递增的呢 ？
下面是图 求大侠解救

看不懂～Sorry～

按了清除键之后 增加键变灰色
還能干什么？
什么递增？index遞增？第XX項XX遞增？

Option Explicit

Private Const 中文数字 = "一二三四五六七八九"         '常量

Private Sub Command1_Click()
'添加
Dim i As Long
i = List1.ListCount     '项总数
i = i + 1               '+1
If i < 100 Then         '小于100
    List1.AddItem "第" & ENNUMTOCH(i) & "项"            '增加项
Else
    MsgBox "最大只能添加99项。", vbInformation, "错误"  '否则报错
End If

End Sub

Private Sub Command2_Click()
List1.Clear             '清除
End Sub

Public Function ENNUMTOCH(cs As Long) As String      '数字转中文数字
'数字转中文数字
If cs < 0 Or cs > 99 Then           '检测范围，确保不出错
    MsgBox "只能转换 1-99 之间的数字", vbCritical, "错误"
    Exit Function
End If

If cs < 10 Then
    ENNUMTOCH = Mid(中文数字, cs, 1)            '小于10，直接转换
Else                                            '大于10
    ENNUMTOCH = Mid(中文数字, cs \ 10, 1) & "十" '      '先转换高位
    If cs Mod 10 <> 0 Then                      '低位是否为0
        ENNUMTOCH = ENNUMTOCH & Mid(中文数字, cs Mod 10, 1) '不为0 的再转换
    End If                                      '低位为0的被忽略掉
End If

End Function

Private Sub List1_Click()
'列表框单击
Label1.Caption = List1.List(List1.ListIndex)
End Sub