|
Workflow的代码 其中对用户名密码做验证 成功or失败都会弹出相应对话框
Public Class Workflow1
Inherits SequentialWorkflowActivity
Private LoginCheck As Boolean
Public Property UserName() As String
Get
Return GetValue(UserNameProperty)
End Get
Set(ByVal value As String)
SetValue(UserNameProperty, value)
End Set
End Property
Public Shared ReadOnly UserNameProperty As DependencyProperty = _
DependencyProperty.Register("UserName", _
GetType(String), GetType(Workflow1))
Public Property PassWord() As String
Get
Return GetValue(PassWordProperty)
End Get
Set(ByVal value As String)
SetValue(PassWordProperty, value)
End Set
End Property
Public Shared ReadOnly PassWordProperty As DependencyProperty = _
DependencyProperty.Register("PassWord", _
GetType(String), GetType(Workflow1))
''' <summary>
''' 验证成功
''' </summary>
''' <param name="sender">状态参数</param>
''' <param name="e">状态参数</param>
''' <remarks></remarks>
Private Sub LoginSuccess_ExecuteCode(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("Login Success")
End Sub
''' <summary>
''' 验证失败
''' </summary>
''' <param name="sender">状态参数</param>
''' <param name="e">状态参数</param>
''' <remarks></remarks>
Private Sub LoginFailure_ExecuteCode(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox("Login Failure")
End Sub
''' <summary>
''' 验证方法
''' </summary>
''' <param name="sender">状态参数</param>
''' <param name="e">状态参数</param>
''' <remarks></remarks>
Private Sub NamePwdChecked_ExecuteCode(ByVal sender As System.Object, ByVal e As System.EventArgs)
If (UserName.Equals("aa") And PassWord.Equals("bb")) Then
LoginCheck = True
End If
End Sub
End Class |
|