|
Как изменить ширину рамки в коде VB?
|
|||
---|---|---|---|
#18+
На форме WPF расположены кнопка Button1 и рамка Border1. Задача простая: при нажатии кнопки должны измениться цвет и ширина (BorderThickness) рамки. VB Class MainWindow Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click Border1.BorderBrush = (Brushes.BlueViolet) Border1.BorderThickness = 10 End Sub End Class С цветом вроде получилось, но при попытке изменить ширину рамки привычным способом, как это делалось в VB6, редактор стал ругаться таким сообщением: «Невозможно преобразовать значение типа “Integer” в “System.Windows.Thickness” Перепробовал много вариантов – ничего не получается. Помогите. Заранее благодарен. ... |
|||
:
Нравится:
Не нравится:
|
|||
30.09.2011, 16:15 |
|
Как изменить ширину рамки в коде VB?
|
|||
---|---|---|---|
#18+
System.Windows.Thickness это класс, который имеет 4 свойства: Top, Bottom, Left, Right. Каждое из которых имеет тип double, и отвечает за толщину соответствующей стороны рамки. Пример изменения: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9.
... |
|||
:
Нравится:
Не нравится:
|
|||
30.09.2011, 17:59 |
|
Как изменить ширину рамки в коде VB?
|
|||
---|---|---|---|
#18+
Уважаемый Woldemar665! Благодарю Вас за Ваш ответ. Правда, когда я скопировал Ваш код в мой редактор, он без раздумий подчеркнул волнистыми линиями ВСЕ строчки кода. Присмотревшись, я подумал, что закралась опечатка – отсутствие пропуска между ключевыми словами «As» и «New». После внесения исправления редактор перестал возмущаться, и теперь код стал выглядеть так: Class MainWindow Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click Dim myBorder2 As New Border() myBorder2.BorderBrush = Brushes.SteelBlue myBorder2.Width = 400 myBorder2.Height = 400 Dim myThickness As New Thickness() myThickness.Bottom = 5 myThickness.Left = 10 myThickness.Right = 15 myThickness.Top = 20 myBorder2.BorderThickness = myThickness End Sub End Class Но… после запуска программы при нажатии на кнопку НИЧЕГО не происходило. В чём же все-таки причина? Любопытно-с. ... |
|||
:
Нравится:
Не нравится:
|
|||
30.09.2011, 22:51 |
|
Как изменить ширину рамки в коде VB?
|
|||
---|---|---|---|
#18+
Ура! Докопал. Окончательный рабочий вариант кода таков: Class MainWindow Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click Border1.BorderBrush = Brushes.Red Border1.Width = 200 Border1.Height = 200 Dim myThickness As New Thickness() myThickness.Bottom = 5 myThickness.Left = 10 myThickness.Right = 15 myThickness.Top = 20 Border1.BorderThickness = myThickness End Sub End Class Woldemar665! Ежё раз спасибо за правильное направление мысли. ... |
|||
:
Нравится:
Не нравится:
|
|||
01.10.2011, 00:18 |
|
|
start [/forum/topic.php?fid=21&fpage=48&tid=1442131]: |
0ms |
get settings: |
9ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
30ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
2ms |
others: | 12ms |
total: | 121ms |
0 / 0 |