Private Sub CommandButton1_Click() Call ComboBox1.DropDown End Sub
[/vba] [vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Me.ComboBox2.DropDown = True Then 'Это не верное условие. Как правильно прописать проверку того что лист ComboBox1 развёрнут? 'Как правильно прописать "закрыть лист ComboBox1"? Me.ComboBox1.DropDown End If End Sub
[/vba] Суть такая: Нажимаем на кнопку 1 и у нас открывается список ComboБокса, перемещаем курсор на кнопку 2, список первого ComboБокса скрывается а список второго открывается. С открытием проблем нет, а вот с проверкой открыт-ли он или нет и самим закрытием, проблемка. :-/ Если не одна из кнопок не была нажата, то ComboBoxы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе)
Здравствуйте! [vba]
Код
Private Sub CommandButton1_Click() Call ComboBox1.DropDown End Sub
[/vba] [vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Me.ComboBox2.DropDown = True Then 'Это не верное условие. Как правильно прописать проверку того что лист ComboBox1 развёрнут? 'Как правильно прописать "закрыть лист ComboBox1"? Me.ComboBox1.DropDown End If End Sub
[/vba] Суть такая: Нажимаем на кнопку 1 и у нас открывается список ComboБокса, перемещаем курсор на кнопку 2, список первого ComboБокса скрывается а список второго открывается. С открытием проблем нет, а вот с проверкой открыт-ли он или нет и самим закрытием, проблемка. :-/ Если не одна из кнопок не была нажата, то ComboBoxы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе)OIU
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.ComboBox1.DropDown Me.ComboBox1.SetFocus End Sub
[/vba]
OIU,
может Вам подойдёт :
[vba]
Код
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.ComboBox1.DropDown Me.ComboBox1.SetFocus End Sub
Матраскин, я изначально не полностью сформулировал задачу и приношу извинения. (позже я его конечно дополнил). Если не одна из кнопок не была нажата, то ComboBox-ы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе). Может быть собственные классы нужно создавать?...
Матраскин, я изначально не полностью сформулировал задачу и приношу извинения. (позже я его конечно дополнил). Если не одна из кнопок не была нажата, то ComboBox-ы не должны открываться. В конечном итоге должно получиться примерно как на панели инструментов в VBA редакторе). Может быть собственные классы нужно создавать?...OIU
Матраскин, то что вы видели, это пока всё что я набросал, так-как еще не известно реально это или нет. А вообще да, это должно быть нечто вроде меню.
Матраскин, то что вы видели, это пока всё что я набросал, так-как еще не известно реально это или нет. А вообще да, это должно быть нечто вроде меню.OIU