イメージコンボボックスについて (ID:79199)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 EnterKey押されると選択が解除されてしまうようで．．． EnterKeyによって解除されてしまったものを無効にするより、 再度選択したほうが簡単そう．．． Private mlngIndex As Long Private Sub ImageCombo1_Click() mlngIndex = ImageCombo1.SelectedItem.Index End Sub Private Sub ImageCombo1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn And mlngIndex > 0 Then ImageCombo1.ComboItems(mlngIndex).Selected = True End if End Sub