103 lines
4.3 KiB
VB.net
103 lines
4.3 KiB
VB.net
Public Class MyMsgSelect
|
|
|
|
Private ReadOnly MyConverter As MyMsgBoxConverter
|
|
Private ReadOnly Uuid As Integer = GetUuid()
|
|
|
|
Public Sub New(Converter As MyMsgBoxConverter)
|
|
Try
|
|
|
|
InitializeComponent()
|
|
Btn1.Name = Btn1.Name & GetUuid()
|
|
Btn2.Name = Btn2.Name & GetUuid()
|
|
MyConverter = Converter
|
|
LabTitle.Text = Converter.Title
|
|
Btn1.Text = Converter.Button1
|
|
If Converter.IsWarn Then
|
|
Btn1.ColorType = MyButton.ColorState.Red
|
|
LabTitle.SetResourceReference(TextBlock.ForegroundProperty, "ColorBrushRedLight")
|
|
End If
|
|
Btn2.Text = Converter.Button2
|
|
Btn2.Visibility = If(Converter.Button2 = "", Visibility.Collapsed, Visibility.Visible)
|
|
ShapeLine.StrokeThickness = GetWPFSize(1)
|
|
'添加选择控件
|
|
Btn1.IsEnabled = False
|
|
For Each Selection As IMyRadio In Converter.Content
|
|
PanSelection.Children.Add(Selection)
|
|
AddHandler Selection.Check, AddressOf OnChecked
|
|
If TypeOf Selection Is MyListItem Then
|
|
CType(Selection, MyListItem).Type = MyListItem.CheckType.RadioBox
|
|
CType(Selection, MyListItem).MinHeight = 24
|
|
Else
|
|
CType(Selection, MyRadioBox).MinHeight = 24
|
|
End If
|
|
Next
|
|
|
|
Catch ex As Exception
|
|
Log(ex, "选择弹窗初始化失败", LogLevel.Hint)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Load(sender As Object, e As EventArgs) Handles MyBase.Loaded
|
|
Try
|
|
|
|
'UI 初始化
|
|
If Btn2.IsVisible AndAlso Not Btn1.ColorType = MyButton.ColorState.Red Then Btn1.ColorType = MyButton.ColorState.Highlight
|
|
'动画
|
|
Opacity = 0
|
|
AniStart(AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, If(MyConverter.IsWarn, New MyColor(140, 80, 0, 0), New MyColor(90, 0, 0, 0)) - FrmMain.PanMsg.Background, 200), "PanMsg Background")
|
|
AniStart({
|
|
AaOpacity(Me, 1, 120, 60),
|
|
AaDouble(Sub(i) TransformPos.Y += i, -TransformPos.Y, 300, 60, New AniEaseOutBack(AniEasePower.Weak)),
|
|
AaDouble(Sub(i) TransformRotate.Angle += i, -TransformRotate.Angle, 300, 60, New AniEaseOutFluent(AniEasePower.Weak))
|
|
}, "MyMsgBox " & Uuid)
|
|
'记录日志
|
|
Log("[Control] 选择弹窗：" & LabTitle.Text)
|
|
|
|
Catch ex As Exception
|
|
Log(ex, "选择弹窗加载失败", LogLevel.Hint)
|
|
End Try
|
|
End Sub
|
|
Private Sub Close()
|
|
'结束线程阻塞
|
|
MyConverter.WaitFrame.Continue = False
|
|
Interop.ComponentDispatcher.PopModal()
|
|
'动画
|
|
AniStart({
|
|
AaCode(
|
|
Sub()
|
|
If Not WaitingMyMsgBox.Any() Then
|
|
AniStart(AaColor(FrmMain.PanMsg, Grid.BackgroundProperty, New MyColor(0, 0, 0, 0) - FrmMain.PanMsg.Background, 200, Ease:=New AniEaseOutFluent(AniEasePower.Weak)))
|
|
End If
|
|
End Sub, 30),
|
|
AaOpacity(Me, -Opacity, 80, 20),
|
|
AaDouble(Sub(i) TransformPos.Y += i, 20 - TransformPos.Y, 150, 0, New AniEaseOutFluent),
|
|
AaDouble(Sub(i) TransformRotate.Angle += i, 6 - TransformRotate.Angle, 150, 0, New AniEaseInFluent(AniEasePower.Weak)),
|
|
AaCode(Sub() CType(Parent, Grid).Children.Remove(Me), , True)
|
|
}, "MyMsgBox " & Uuid)
|
|
End Sub
|
|
|
|
Public Sub Btn1_Click() Handles Btn1.Click
|
|
If MyConverter.IsExited OrElse SelectedIndex = -1 Then Return
|
|
MyConverter.IsExited = True
|
|
MyConverter.Result = SelectedIndex
|
|
Close()
|
|
End Sub
|
|
Public Sub Btn2_Click() Handles Btn2.Click
|
|
If MyConverter.IsExited Then Return
|
|
MyConverter.IsExited = True
|
|
MyConverter.Result = Nothing
|
|
Close()
|
|
End Sub
|
|
|
|
Private SelectedIndex As Integer = -1
|
|
Private Sub OnChecked(sender As IMyRadio, e As EventArgs)
|
|
Btn1.IsEnabled = True
|
|
SelectedIndex = PanSelection.Children.IndexOf(sender)
|
|
End Sub
|
|
Private Sub Drag(sender As Object, e As MouseButtonEventArgs) Handles PanBorder.MouseLeftButtonDown, LabTitle.MouseLeftButtonDown
|
|
On Error Resume Next
|
|
If e.GetPosition(ShapeLine).Y <= 2 Then FrmMain.DragMove()
|
|
End Sub
|
|
|
|
End Class
|