ComboBox 的使用技巧
来源:www.hosp.ncku.edu.tw/~cww/oldguy/oldguy.htm
iroi 撰寫於文章
請問各位,vb的combo box怎用的
老怪答:
在做 Combobox的判斷時,有幾個要注意配合使用的屬性是
.List
text
listindex
newindex
listcount
取出 ComboBox 裏的值
'------ 列出 combobox 所有 list 值
for i=0 to combobox.listcount-1
debug.print combobox.list(i)
next
'------取出以滑鼠點選值
Private Sub Combo1_Click()
debug.print combo1.list(combo1.listindex)
End Sub
'-----取出新加入的值
combo1.addnew "XXXXXX"
debug.print combo1.list(combo1.newindex)
'---- 將組合式文字框加入 Combo1
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
combo1.addnew combo1.text
End If
End Sub
Access软件网交流QQ群(群号:198465573) |