如何添加Combobox的选项

mashenghe1988 2010-03-23 04:59:33

vb 中如何实现Combobox中如果有加减，则添加乘除，否则添加加减乘除呀
可否给个gif控件制作的过程！
谢谢

...全文

369 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

wuruijing 2010-03-24

打赏
举报

[Quote=引用 4 楼 mashenghe1988 的回复:]
而且这样的话如果要加mod就不行了
[/Quote]
我只是提供了一个思路供你参考，因此只处理了单字符数据，如果你要考虑多字符情况，可以参考5楼。

wuruijing 2010-03-24

打赏
举报

[Quote=引用 3 楼 mashenghe1988 的回复:]
好像有点问题哦！
[/Quote]
应该没问题吧

bcrun 2010-03-23

打赏
举报

那就用split大法吧

'---------------------------------------------------------------------------------------

' 过程名    : AddBySplit

' 时间      : 2010-3-23 17:51

' 作者      : 杨过.网狐.cn

' 功能      : http://topic.csdn.net/u/20100323/16/fa6bcfff-7de3-4eab-9475-19b3edc65bb4.html

' 说明      : 如何添加Combobox的选项

'---------------------------------------------------------------------------------------

'

Private Sub AddBySplit()



    Dim i As Long, j As Long



    Dim s As String, strFuhaos() As String



    s = "+,-,*,/,mod"

    strFuhaos = Split(s, ",")

    For i = LBound(strFuhaos) To UBound(strFuhaos)

        For j = 0 To Combo1.ListCount - 1



            If Combo1.List(j) = strFuhaos(i) Then Exit For

        Next



        If j = Combo1.ListCount Then Combo1.AddItem strFuhaos(i)

    Next



End Sub

mashenghe1988 2010-03-23

打赏
举报

而且这样的话如果要加mod就不行了

mashenghe1988 2010-03-23

打赏
举报

好像有点问题哦！

wuruijing 2010-03-23

打赏
举报

'判断combo中"+-*/"少哪个，就添加哪个
dim i as long,j as long
dim s as string
s="+-*/"
for i=1 to 4
for j=0 to combo1.listcount -1
if combo1.list(j)=mid(s,i,1) then exit for
next
if j = combo1.listcount then combo1.additem mid(s,i,1)
next