十万火急问题

Question

界面有一个组合框，comb1，style=2,text不可写，只读
 sub comb1_click()
     SendData "00 00 00"    '发送命令
 end sub sub Sendtimer_Time()
     sendtimer.interval=1000    '每秒刷新一次界面
     RefreshView
 end sub sub RefreshView()
     comb1.listindex=2    
 end sub 所遇问题：我点击comb1可向串口发送命令，但我每秒会刷新界面，comb1.listindex=2会重新触发SendData函数，又要发送一次命令，请问如何解决，
提示：组合框类型为2，text不可写,最好不要用确定按钮
 谢谢！！

Answer 1

设置一个全局布尔变量 比如blTF
 sub Sendtimer_Time()
     sendtimer.interval=1000    '每秒刷新一次界面
     blTF=true
     RefreshView
     blTF=false
 end sub sub comb1_click()     if blTF=flase then SendData "00 00 00"    '发送命令
 end sub