Страница: 1 |
Вопрос: как установить flatStyle для кнопки... | Добавлено: 28.05.11 20:45 |
Автор вопроса: ![]() |
Как переписать этот код, чтобы можно было присвоить свойство FlatStyle для кнопок BtnDop, BtnDob, BtnDig и т.д.
Dim ctrl As Control For Each ctrl In TLPCardio.Controls Select Case ctrl.Name Case Is = "PanelDof" ctrl.Margin = New Padding(0, 0, 0, 0) ctrl.BackColor = Color.White BtnDop.FlatStyle = FlatStyle.Flat BtnDop.FlatAppearance.BorderColor = Color.White BtnDop.Font = New Font("Segoe ui", 12, FontStyle.Italic) Case Else ctrl.Margin = DefaultMargin ctrl.BackColor = Color.Gray BtnDob.FlatStyle = FlatStyle.System BtnDob.FlatAppearance.BorderColor = Color.Black BtnDob.Font = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) BtnDig.FlatStyle = FlatStyle.System BtnDig.FlatAppearance.BorderColor = Color.Black BtnDig.Font = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) BtnNeoton.FlatStyle = FlatStyle.System BtnNeoton.FlatAppearance.BorderColor = Color.Black BtnNeoton.Font = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) End Select Next если написать ctrl.flatstyle = FlatStyle.System происходит ошибка: flatstyle не является членом System.Windows.Forms.Control |
Ответы | Всего ответов: 7 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 4 Ответов: 457 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 29.05.11 00:57 |
похоже, что у контрола с именем PanelDof нет свойства flatstyle. Или где там ты пытаешься всунуть строку ctrl.flatstyle = FlatStyle.System |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 15 Ответов: 55 |
Профиль | Цитата | #2 | Добавлено: 29.05.11 01:16 |
конечно, у контрола нет свойства flatstyle. Это свойство есть у кнопки. Я хочу обойти все кнопки и поменять это свойство.
как то так... Private Sub BtnDop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDop.Click ![]() For Each ctrl In TLPCardio.Controls Select Case ctrl.Name Case Is = "PanelDof" ctrl.Margin = New Padding(0, 0, 0, 0) ctrl.BackColor = Color.White BtnDop.FlatStyle = FlatStyle.Flat BtnDop.FlatAppearance.BorderColor = Color.White BtnDop.Font = New Font("Segoe ui", 12, FontStyle.Italic) Case Else ctrl.Margin = DefaultMargin ctrl.BackColor = Color.Gray 'BtnDob.FlatStyle = FlatStyle.System 'BtnDob.FlatAppearance.BorderColor = Color.Black 'BtnDob.Font = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) 'BtnDig.FlatStyle = FlatStyle.System 'BtnDig.FlatAppearance.BorderColor = Color.Black 'BtnDig.Font = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) 'BtnNeoton.FlatStyle = FlatStyle.System 'BtnNeoton.FlatAppearance.BorderColor = Color.Black 'BtnNeoton.Font = New Font("Microsoft Sans Serif", 8.25, FontStyle.Regular) ![]() For Each btn In ctrl.Controls btn.flatstyle = FlatStyle.System 'здесь ошибка Next End Select Next End Sub |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 15 Ответов: 55 |
Профиль | Цитата | #3 | Добавлено: 29.05.11 01:41 |
sorry...
|
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 4 Ответов: 457 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 29.05.11 10:03 |
так проверяй, является ли очередной контрол кнопкой или нет. |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 15 Ответов: 55 |
Профиль | Цитата | #5 | Добавлено: 29.05.11 13:12 |
проверяю:
проверка только подтверждает, что контрол является Button'ом и поэтому ему не может быть присвоено свойство flatstyle. В этом то я и запутался... Как тогда при интерации коллекций? |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 15 Ответов: 55 |
Профиль | Цитата | #6 | Добавлено: 29.05.11 13:14 |
вот что нашел....
так работает правильно! |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 15 Ответов: 55 |
Профиль | Цитата | #7 | Добавлено: 29.05.11 13:55 |
переписал для clic 4-х кнопок вот так:
|
Страница: 1 |
|