扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
' ICommand.cls Public Sub Execute() End Sub Public Sub Undo() End Sub Public Property Set Form(ByVal Form As Form1) End Property ' DownCommand.cls Option Explicit Implements ICommand Private FForm As Form1 Private Sub ICommand_Execute() FForm.MoveDown End Sub Private Sub ICommand_Undo() FForm.MoveUp End Sub ' LeftCommand.cls Public Property Set ICommand_Form(ByVal Form As Form1) Set FForm = Form End Property Option Explicit Implements ICommand Private FForm As Form1 Private Sub ICommand_Execute() FForm.MoveLeft End Sub Private Sub ICommand_Undo() FForm.MoveRight End Sub Public Property Set ICommand_Form(ByVal Form As Form1) Set FForm = Form End Property ' RightCommand.cls Option Explicit Implements ICommand Private FForm As Form1 Private Sub ICommand_Execute() FForm.MoveRight End Sub Private Sub ICommand_Undo() FForm.MoveLeft End Sub Public Property Set ICommand_Form(ByVal Form As Form1) Set FForm = Form End Property ' UpCommand.cls Option Explicit Implements ICommand Private FForm As Form1 Private Sub ICommand_Execute() FForm.MoveUp End Sub Private Property Set ICommand_Form(ByVal RHS As Form1) Set FForm = RHS End Property Private Sub ICommand_Undo() FForm.MoveDown End Sub |
濡傛灉鎮ㄩ潪甯歌揩鍒囩殑鎯充簡瑙T棰嗗煙鏈€鏂颁骇鍝佷笌鎶€鏈俊鎭紝閭d箞璁㈤槄鑷抽《缃戞妧鏈偖浠跺皢鏄偍鐨勬渶浣抽€斿緞涔嬩竴銆�