This repository has been archived by the owner on Sep 25, 2023. It is now read-only.
/
MainWindow.xaml.vb
54 lines (47 loc) · 1.67 KB
/
MainWindow.xaml.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports DevExpress.Xpf.Editors
Namespace WpfApplication17
''' <summary>
''' Interaction logic for MainWindow.xaml
''' </summary>
Partial Public Class MainWindow
Inherits Window
Public Sub New()
InitializeComponent()
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim bi As MyButtonInfo = TryCast(comboBoxEdit1.Buttons(0), MyButtonInfo)
If bi.ButtonInfoVisibility = System.Windows.Visibility.Visible Then
bi.ButtonInfoVisibility = System.Windows.Visibility.Hidden
Else
bi.ButtonInfoVisibility = System.Windows.Visibility.Visible
End If
End Sub
End Class
Public Class MyButtonInfo
Inherits ButtonInfo
Public Property ButtonInfoVisibility() As Visibility
Get
Return CType(GetValue(ButtonInfoVisibilityProperty), Visibility)
End Get
Set(ByVal value As Visibility)
SetValue(ButtonInfoVisibilityProperty, value)
End Set
End Property
' Using a DependencyProperty as the backing store for ButtonInfoVisibility. This enables animation, styling, binding, etc...
Public Shared ReadOnly ButtonInfoVisibilityProperty As DependencyProperty = DependencyProperty.Register("ButtonInfoVisibility", GetType(Visibility), GetType(MyButtonInfo), New UIPropertyMetadata(Visibility.Visible))
End Class
End Namespace