hua.frm

实现图像控制,云台解码器控制,站点选择(配有Access数据库).

   End
   Begin VB.CommandButton Command 
      BackColor       =   &H00C0C0FF&
      Caption         =   "4"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   400
      Index           =   3
      Left            =   1992
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   105
      Width           =   400
   End
   Begin VB.CommandButton Command 
      BackColor       =   &H00C0C0FF&
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   400
      Index           =   2
      Left            =   1536
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   105
      Width           =   400
   End
   Begin VB.CommandButton Command 
      BackColor       =   &H00C0C0FF&
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   400
      Index           =   1
      Left            =   1068
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   105
      Width           =   400
   End
   Begin VB.CommandButton Command 
      BackColor       =   &H00C0C0FF&
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   400
      Index           =   0
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   105
      Width           =   400
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   2655
      Top             =   135
      _ExtentX        =   995
      _ExtentY        =   995
      BackColor       =   -2147483643
      ImageWidth      =   27
      ImageHeight     =   27
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   6
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hua.frx":37FE
            Key             =   "Four"
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hua.frx":412C
            Key             =   "Nine"
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hua.frx":4A5A
            Key             =   "Sixteen"
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hua.frx":5388
            Key             =   "FourD"
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hua.frx":5CB6
            Key             =   "NineD"
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "hua.frx":65E4
            Key             =   "SixteenD"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "Frmhua"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim huamNum As Integer
Dim selNum As Integer
Dim selArray(16) As Integer

Private Sub Check1_Click()
   If Check1.Value = 1 Then
      a(1) = &H53 'S
      a(2) = &H4C 'L
      FrmRt3.Sendcommand6s
      
      If huamNum > 1 Then
         selNum = 0
      End If
   End If
End Sub

Private Sub Command_Click(Index As Integer)
   Dim i As Integer

   If Command(Index).Tag = "" Then
      
      Command(Index).Tag = "DOWN"
      Command(Index).BackColor = &HFF0000
      a(1) = &H53
      If Index < 9 Then
         a(2) = &H31 + Index
      Else
         a(2) = &H41 + Index - 9
      End If
      FrmRt3.Sendcommand6s
            
      '
      If huamNum > 1 And selArray(selNum) <> Index Then
         Command(selArray(selNum)).Tag = ""
         Command(selArray(selNum)).BackColor = &HC0C0FF
         selArray(selNum) = Index
      End If
      
      If Check1.Value = 1 Then
         selNum = selNum + 1
         
         If selNum >= huamNum Then
            Check1.Value = 0
            If huamNum = 1 Then
               Command(selArray(0)).Tag = ""
               Command(selArray(0)).BackColor = &HC0C0FF
               selArray(0) = Index
               selNum = 1
              
            End If
         End If
         
      Else
         Select Case huamNum
         Case 4
            CommandFour.Picture = ImageList1.ListImages("Four").Picture
            CommandFour.Tag = ""
         Case 9
            CommandNine.Picture = ImageList1.ListImages("Nine").Picture
            CommandNine.Tag = ""
         Case 16
            CommandSixteen.Picture = ImageList1.ListImages("Sixteen").Picture
            CommandSixteen.Tag = ""
         End Select
         
         huamNum = 1
         selArray(0) = Index
         selNum = 1
         For i = 0 To 15
            If i <> Index Then
               Command(i).Tag = ""
               Command(i).BackColor = &HC0C0FF
            End If
         Next i
      End If
   End If
End Sub

Private Sub CommandFour_Click()
   If CommandFour.Tag = "" Then
      CommandFour.Tag = "DOWN"
      CommandNine.Tag = ""
      CommandSixteen.Tag = ""
      CommandFour.Picture = ImageList1.ListImages("FourD").Picture
      CommandNine.Picture = ImageList1.ListImages("Nine").Picture
      CommandSixteen.Picture = ImageList1.ListImages("Sixteen").Picture
      a(1) = &H32
      a(2) = &H32
      FrmRt3.Sendcommand6s
      huamNum = 4
      
      Dim i As Integer
      For i = 0 To 15
         If i < 4 Then
            Command(i).Tag = ""
            Command(i).BackColor = &HFF0000
            selArray(i) = i
         Else
            Command(i).Tag = ""
            Command(i).BackColor = &HC0C0FF
         End If
      Next i
      selNum = 4
   End If
   Check1.Value = 0

End Sub

Private Sub CommandNine_Click()
   If CommandNine.Tag = "" Then
      CommandFour.Tag = ""
      CommandNine.Tag = "DOWN"
      CommandSixteen.Tag = ""
      CommandFour.Picture = ImageList1.ListImages("Four").Picture
      CommandNine.Picture = ImageList1.ListImages("NineD").Picture
      CommandSixteen.Picture = ImageList1.ListImages("Sixteen").Picture
      a(1) = &H33
      a(2) = &H33
      FrmRt3.Sendcommand6s
      huamNum = 9
   
      Dim i As Integer
      For i = 0 To 15
         If i < 9 Then
            Command(i).Tag = ""
            Command(i).BackColor = &HFF0000
            selArray(i) = i
         Else
            Command(i).Tag = ""
            Command(i).BackColor = &HC0C0FF
         End If
      Next i
      selNum = 9
   End If
   Check1.Value = 0

End Sub

Private Sub CommandSixteen_Click()
   If CommandSixteen.Tag = "" Then
      CommandFour.Tag = ""
      CommandNine.Tag = ""
      CommandSixteen.Tag = "DOWN"
      CommandFour.Picture = ImageList1.ListImages("Four").Picture
      CommandNine.Picture = ImageList1.ListImages("Nine").Picture
      CommandSixteen.Picture = ImageList1.ListImages("SixteenD").Picture
      a(1) = &H34
      a(2) = &H34
      FrmRt3.Sendcommand6s
      huamNum = 16
      
      Dim i As Integer
      For i = 0 To 15
         Command(i).Tag = ""
         Command(i).BackColor = &HFF0000
         selArray(i) = i
      Next i
      selNum = 16
   End If
   Check1.Value = 0

End Sub

Private Sub Form_Load()
   huamNum = 1
   selNum = 0
   
   Dim i As Integer
   For i = 0 To 15
      selArray(i) = 0
   Next i
End Sub