上传公开代码

2022-07-27 18:48:13 +08:00
parent 6a3f4d35d4
commit b0b02291cc
208 changed files with 38567 additions and 0 deletions
@@ -0,0 +1,42 @@
+Class MySearchBox
+    Inherits MyCard
+
+    Public Event TextChanged(ByVal sender As Object, ByVal e As EventArgs)
+    Private Sub MySearchBox_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        TextBox.Focus()
+    End Sub
+
+    '属性
+    Public Property HintText() As String
+        Get
+            Return TextBox.HintText
+        End Get
+        Set(ByVal value As String)
+            TextBox.HintText = value
+        End Set
+    End Property
+    Public Property Text() As String
+        Get
+            Return TextBox.Text
+        End Get
+        Set(ByVal value As String)
+            TextBox.Text = value
+        End Set
+    End Property
+
+    Private Sub Text_TextChanged(sender As Object, e As TextChangedEventArgs) Handles TextBox.TextChanged
+        If String.IsNullOrEmpty(TextBox.Text) Then
+            AniStart(AaOpacity(BtnClear, -BtnClear.Opacity, 90), "MySearchBox ClearBtn " & Uuid)
+            BtnClear.IsHitTestVisible = False
+        Else
+            AniStart(AaOpacity(BtnClear, 1 - BtnClear.Opacity, 90), "MySearchBox ClearBtn " & Uuid)
+            BtnClear.IsHitTestVisible = True
+        End If
+        RaiseEvent TextChanged(sender, e)
+    End Sub
+    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
+        TextBox.Text = ""
+        TextBox.Focus()
+    End Sub
+
+End Class