Страницы: 1
RSS
Модуль класса
 
помогите на простом примере разобраться с обработкой события CommandButton_Click  
к примеру: на форме 4 кнопки, при нажатии на любую - msgbox  
 
на форуме есть примеры с палитрой для закрашивания фигур, не разобрался....
 
Смотрите пример из этой темы: http://www.programmersforum.ru/showthread.php?t=37287 <BR>Только там не кнопки, а чекбоксы - но суть та же. <BR>Ссылка на файл с примером: http://excelvba.ru/XL_Files/Sample__23-10-2010__21-35-30.zip
 
Вообще, а зачем использовать модуль класса?  
 
Можно назначить 4-м кнопкам один и тот же макрос, а в макросе определять, какая из кнопок его запустила.
 
{quote}{login=EducatedFool}{date=23.10.2010 07:41}{thema=}{post}Вообще, а зачем использовать модуль класса?  
 
Можно назначить 4-м кнопкам один и тот же макрос, а в макросе определять, какая из кнопок его запустила.{/post}{/quote}  
 
кнопок просто не 4...это к примеру  
Спасибо за файл, скачал, разбираюсь сижу
 
не понял, как определить все 4 кнопки в класс....мож кто ссылку кинет, где подробно "для чайников" о создании классов почитать можно? Или если не лень, разжуйте поподробней, что за чем следует делать...спасибо
 
Почитайте первую книгу из этого списка: http://excelvba.ru/books.html там про это написано.
 
нашел, почитал, попробовал, выдает ошибку в модуле формы  
Dim buttons As New BtnClass  
 
Private Sub UserForm_Initialize()  
Dim bc As Integer  
Dim ct As Control  
bc = 0  
For Each ct In UserForm1.Controls  
bc = bc + 1  
ReDim Preserve buttons(1 To bc)  
Set buttons(bc).ButtonGroup = ct  
Next  
End Sub  
 
объясните плиз...
 
ошибка в строке  
ReDim Preserve buttons(1 To bc)
 
{quote}{login=The_Prist}{date=23.10.2010 11:04}{thema=}{post}Изначально ошибка в строке: Dim buttons As New BtnClass  
 
Т.к. это массив, то и объявлять надо подобающе:  
Dim buttons() As New BtnClass  
 
к переменным, не объявленным как массив явно, нельзя применить функцию ReDim Preserve{/post}{/quote}  
 
спасибо)))
Страницы: 1
Читают тему
Наверх