www.pudn.com > wifi-car-VB-.rar > 主程序.frm, change:2012-04-13,size:39237b


VERSION 5.00 
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "Msinet.ocx" 
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "Mswinsck.ocx" 
Begin VB.Form form0  
   BackColor       =   &H00FF8080& 
   Caption         =   "wifi小车pc端----------------------------------------------(超仔编写2012/4)" 
   ClientHeight    =   6570 
   ClientLeft      =   5940 
   ClientTop       =   2010 
   ClientWidth     =   8730 
   BeginProperty Font  
      Name            =   "宋体" 
      Size            =   14.25 
      Charset         =   134 
      Weight          =   400 
      Underline       =   0   'False 
      Italic          =   0   'False 
      Strikethrough   =   0   'False 
   EndProperty 
   ForeColor       =   &H8000000D& 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   6570 
   ScaleWidth      =   8730 
   StartUpPosition =   1  '所有者中心 
   Begin VB.Frame Frame4  
      BackColor       =   &H80000013& 
      Caption         =   "功能选择区" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H80000008& 
      Height          =   1575 
      Left            =   5400 
      TabIndex        =   24 
      Top             =   120 
      Width           =   3255 
      Begin VB.TextBox Text5  
         Height          =   405 
         Left            =   2640 
         TabIndex        =   44 
         Text            =   "1" 
         Top             =   360 
         Visible         =   0   'False 
         Width           =   270 
      End 
      Begin VB.CommandButton Command27  
         Caption         =   "断开摄像头" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   1080 
         TabIndex        =   43 
         Top             =   240 
         Visible         =   0   'False 
         Width           =   975 
      End 
      Begin VB.CommandButton Command26  
         Caption         =   "断开单片机串口连接" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   2040 
         TabIndex        =   42 
         Top             =   240 
         Visible         =   0   'False 
         Width           =   975 
      End 
      Begin VB.CommandButton Command25  
         Caption         =   "壁障关" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   2400 
         TabIndex        =   41 
         Top             =   960 
         Visible         =   0   'False 
         Width           =   615 
      End 
      Begin VB.CommandButton Command24  
         Caption         =   "循迹关" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   1680 
         TabIndex        =   40 
         Top             =   960 
         Visible         =   0   'False 
         Width           =   615 
      End 
      Begin VB.CommandButton Command23  
         Caption         =   "警笛关" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   960 
         TabIndex        =   39 
         Top             =   960 
         Visible         =   0   'False 
         Width           =   615 
      End 
      Begin VB.CommandButton Command22  
         Caption         =   "照明关" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   240 
         TabIndex        =   38 
         Top             =   960 
         Visible         =   0   'False 
         Width           =   615 
      End 
      Begin VB.CommandButton Command1  
         Caption         =   "连接摄像头" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   1200 
         TabIndex        =   31 
         Top             =   240 
         Width           =   735 
      End 
      Begin VB.CommandButton Command3  
         Caption         =   "设置" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   240 
         TabIndex        =   30 
         Top             =   240 
         Width           =   735 
      End 
      Begin VB.CommandButton Command10  
         Caption         =   "连接单片机串口" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   615 
         Left            =   2160 
         TabIndex        =   29 
         Top             =   240 
         Width           =   735 
      End 
      Begin VB.CommandButton Command11  
         BackColor       =   &H8000000B& 
         Caption         =   "照明" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   240 
         MaskColor       =   &H00FFC0C0& 
         TabIndex        =   28 
         Top             =   960 
         Width           =   495 
      End 
      Begin VB.CommandButton Command12  
         Caption         =   "警笛" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   960 
         TabIndex        =   27 
         Top             =   960 
         Width           =   495 
      End 
      Begin VB.CommandButton Command13  
         Caption         =   "循迹" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   1680 
         TabIndex        =   26 
         Top             =   960 
         Width           =   495 
      End 
      Begin VB.CommandButton Command14  
         Caption         =   "壁障" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   2400 
         TabIndex        =   25 
         Top             =   960 
         Width           =   495 
      End 
   End 
   Begin VB.Frame Frame3  
      BackColor       =   &H80000013& 
      Caption         =   "电机控制区" 
      Enabled         =   0   'False 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   2055 
      Left            =   120 
      TabIndex        =   18 
      Top             =   4440 
      Width           =   3375 
      Begin VB.CommandButton Command5  
         Caption         =   "前(W)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   1320 
         TabIndex        =   23 
         Top             =   240 
         Width           =   855 
      End 
      Begin VB.CommandButton Command6  
         Caption         =   "右(D)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   2280 
         TabIndex        =   22 
         Top             =   840 
         Width           =   855 
      End 
      Begin VB.CommandButton Command7  
         Caption         =   "后(S)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   1320 
         TabIndex        =   21 
         Top             =   1440 
         Width           =   855 
      End 
      Begin VB.CommandButton Command8  
         Caption         =   "左(A)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   360 
         TabIndex        =   20 
         Top             =   840 
         Width           =   855 
      End 
      Begin VB.CommandButton Command9  
         Caption         =   "停(F)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   495 
         Left            =   1320 
         TabIndex        =   19 
         Top             =   840 
         Width           =   855 
      End 
   End 
   Begin VB.Frame Frame2  
      BackColor       =   &H80000013& 
      Caption         =   "摄像头云台控制区" 
      Enabled         =   0   'False 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   2535 
      Left            =   5400 
      TabIndex        =   17 
      Top             =   1800 
      Width           =   3255 
      Begin VB.PictureBox Picture2  
         BackColor       =   &H00400040& 
         Height          =   2175 
         Left            =   120 
         ScaleHeight     =   2115 
         ScaleWidth      =   2115 
         TabIndex        =   47 
         Top             =   240 
         Width           =   2175 
         Begin VB.CommandButton Command15  
            BackColor       =   &H00800000& 
            Height          =   375 
            Left            =   840 
            TabIndex        =   48 
            Top             =   840 
            Width           =   375 
         End 
      End 
      Begin VB.TextBox Text7  
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   285 
         Left            =   2520 
         TabIndex        =   46 
         Top             =   1560 
         Width           =   615 
      End 
      Begin VB.TextBox Text6  
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   285 
         Left            =   2520 
         TabIndex        =   45 
         Top             =   720 
         Width           =   615 
      End 
      Begin VB.Line Line1  
         BorderColor     =   &H80000004& 
         X1              =   2400 
         X2              =   2400 
         Y1              =   120 
         Y2              =   2520 
      End 
   End 
   Begin VB.Frame Frame1  
      BackColor       =   &H80000013& 
      Caption         =   "机械手控制区" 
      Enabled         =   0   'False 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   2055 
      Left            =   3840 
      TabIndex        =   3 
      Top             =   4440 
      Width           =   4815 
      Begin VB.CommandButton Command21  
         Caption         =   "松(M)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   300 
         Index           =   1 
         Left            =   2400 
         TabIndex        =   37 
         Top             =   1680 
         Width           =   1335 
      End 
      Begin VB.CommandButton Command20  
         Caption         =   "夹(N)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   300 
         Index           =   0 
         Left            =   960 
         TabIndex        =   36 
         Top             =   1680 
         Width           =   1335 
      End 
      Begin VB.TextBox Text4  
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   270 
         Left            =   3840 
         TabIndex        =   16 
         Top             =   1320 
         Width           =   495 
      End 
      Begin VB.TextBox Text3  
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   270 
         Left            =   3840 
         TabIndex        =   15 
         Top             =   960 
         Width           =   495 
      End 
      Begin VB.TextBox Text2  
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   270 
         Left            =   3840 
         TabIndex        =   14 
         Top             =   600 
         Width           =   495 
      End 
      Begin VB.TextBox Text1  
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   270 
         Left            =   3840 
         TabIndex        =   13 
         Top             =   240 
         Width           =   495 
      End 
      Begin VB.HScrollBar HScroll4  
         Height          =   255 
         Left            =   960 
         Max             =   0 
         TabIndex        =   7 
         Top             =   1320 
         Width           =   2775 
      End 
      Begin VB.HScrollBar HScroll3  
         Height          =   255 
         Left            =   960 
         Max             =   0 
         TabIndex        =   6 
         Top             =   960 
         Width           =   2775 
      End 
      Begin VB.HScrollBar HScroll2  
         Height          =   255 
         Left            =   960 
         Max             =   0 
         TabIndex        =   5 
         Top             =   600 
         Width           =   2775 
      End 
      Begin VB.HScrollBar HScroll1  
         Height          =   255 
         Left            =   960 
         Max             =   0 
         TabIndex        =   4 
         Top             =   240 
         Width           =   2775 
      End 
      Begin VB.Label Label9  
         BackColor       =   &H80000013& 
         Caption         =   "°" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   4440 
         TabIndex        =   35 
         Top             =   1320 
         Width           =   255 
      End 
      Begin VB.Label Label8  
         BackColor       =   &H80000013& 
         Caption         =   "°" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   4440 
         TabIndex        =   34 
         Top             =   960 
         Width           =   255 
      End 
      Begin VB.Label Label7  
         BackColor       =   &H80000013& 
         Caption         =   "°" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   4440 
         TabIndex        =   33 
         Top             =   600 
         Width           =   255 
      End 
      Begin VB.Label Label6  
         BackColor       =   &H80000013& 
         Caption         =   "°" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   4440 
         TabIndex        =   32 
         Top             =   240 
         Width           =   255 
      End 
      Begin VB.Label Label5  
         BackColor       =   &H80000013& 
         Caption         =   "关节4(L)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   120 
         TabIndex        =   12 
         Top             =   1320 
         Width           =   975 
      End 
      Begin VB.Label Label4  
         BackColor       =   &H80000013& 
         Caption         =   "关节3(K)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   120 
         TabIndex        =   11 
         Top             =   960 
         Width           =   975 
      End 
      Begin VB.Label Label3  
         BackColor       =   &H80000013& 
         Caption         =   "关节2(J)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   120 
         TabIndex        =   10 
         Top             =   600 
         Width           =   975 
      End 
      Begin VB.Label Label1  
         BackColor       =   &H80000013& 
         Caption         =   "关节1(H)" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   255 
         Left            =   120 
         TabIndex        =   9 
         Top             =   240 
         Width           =   975 
      End 
   End 
   Begin MSWinsockLib.Winsock Winsock1  
      Left            =   1920 
      Top             =   1920 
      _ExtentX        =   741 
      _ExtentY        =   741 
      _Version        =   393216 
      RemoteHost      =   "192.168.1.1" 
      RemotePort      =   2001 
   End 
   Begin VB.CommandButton Command4  
      BackColor       =   &H80000013& 
      Caption         =   "视频缩小(-)" 
      BeginProperty Font  
         Name            =   "黑体" 
         Size            =   7.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   255 
      Left            =   0 
      TabIndex        =   2 
      Top             =   240 
      Width           =   975 
   End 
   Begin VB.Timer Timer1  
      Enabled         =   0   'False 
      Interval        =   1 
      Left            =   3000 
      Top             =   1920 
   End 
   Begin VB.CommandButton Command2  
      BackColor       =   &H80000013& 
      Caption         =   "视频放大(+)" 
      BeginProperty Font  
         Name            =   "黑体" 
         Size            =   7.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   255 
      Left            =   0 
      TabIndex        =   1 
      Top             =   0 
      Width           =   975 
   End 
   Begin InetCtlsObjects.Inet Inet1  
      Left            =   2400 
      Top             =   1800 
      _ExtentX        =   1005 
      _ExtentY        =   1005 
      _Version        =   393216 
   End 
   Begin VB.PictureBox Picture1  
      AutoRedraw      =   -1  'True 
      AutoSize        =   -1  'True 
      BackColor       =   &H00000000& 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   4335 
      Left            =   0 
      ScaleHeight     =   4275 
      ScaleWidth      =   5235 
      TabIndex        =   0 
      Top             =   0 
      Width           =   5295 
      Begin VB.Image Image1  
         Height          =   4335 
         Left            =   0 
         Stretch         =   -1  'True 
         Top             =   0 
         Width           =   5295 
      End 
   End 
   Begin VB.Label Label2  
      Caption         =   "Label1" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   255 
      Left            =   0 
      TabIndex        =   8 
      Top             =   0 
      Width           =   1095 
   End 
End 
Attribute VB_Name = "form0" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
 
 
Private Sub Command15_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 1 Then 
oldX = X 
oldY = Y 
End If 
End Sub 
 
 
Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
If Button = 1 Then 
Winsock1.SendData "X" + form0.Text6.Text 
Winsock1.SendData "Y" + form0.Text7.Text 
Command15.Left = Command15.Left - oldX + X 
Command15.Top = Command15.Top - oldY + Y 
form0.Text6.Text = Command15.Left / 10 
form0.Text7.Text = Command15.Top / 10 
End If 
End Sub 
 
 
 
 
Private Sub Command22_Click() 
form0.Command22.Visible = False 
Winsock1.SendData form1.Text28.Text 
End Sub 
 
Private Sub Command23_Click() 
form0.Command23.Visible = False 
Winsock1.SendData form1.Text29.Text 
End Sub 
 
Private Sub Command24_Click() 
form0.Command24.Visible = False 
Winsock1.SendData form1.Text30.Text 
End Sub 
 
Private Sub Command25_Click() 
form0.Command25.Visible = False 
Winsock1.SendData form1.Text31.Text 
End Sub 
 
 
Private Sub Command26_Click() 
Winsock1.Close 
form0.Command26.Visible = False 
form0.Frame1.Enabled = False 
form0.Frame2.Enabled = False 
form0.Frame3.Enabled = False 
form0.Text5.Text = "1" 
End Sub 
 
Private Sub Command27_Click() 
Timer1 = False 
form0.Command27.Visible = False 
End Sub 
 
 
Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text8.Text 
form0.Command6.Visible = False 
form0.Command7.Visible = False 
form0.Command8.Visible = False 
form0.Command9.Visible = False 
End Sub 
 
Private Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text12.Text 
form0.Command6.Visible = True 
form0.Command7.Visible = True 
form0.Command8.Visible = True 
form0.Command9.Visible = True 
End Sub 
 
Private Sub Command6_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text11.Text 
form0.Command5.Visible = False 
form0.Command7.Visible = False 
form0.Command8.Visible = False 
form0.Command9.Visible = False 
End Sub 
 
Private Sub Command6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = True 
form0.Command7.Visible = True 
form0.Command8.Visible = True 
form0.Command9.Visible = True 
End Sub 
 
Private Sub Command7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text9.Text 
form0.Command5.Visible = False 
form0.Command6.Visible = False 
form0.Command8.Visible = False 
form0.Command9.Visible = False 
End Sub 
 
Private Sub Command7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = True 
form0.Command6.Visible = True 
form0.Command8.Visible = True 
form0.Command9.Visible = True 
End Sub 
 
Private Sub Command8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text10.Text 
form0.Command5.Visible = False 
form0.Command6.Visible = False 
form0.Command7.Visible = False 
form0.Command9.Visible = False 
End Sub 
 
Private Sub Command8_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = True 
form0.Command6.Visible = True 
form0.Command7.Visible = True 
form0.Command9.Visible = True 
End Sub 
 
Private Sub Command9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = False 
form0.Command6.Visible = False 
form0.Command7.Visible = False 
form0.Command8.Visible = False 
End Sub 
 
Private Sub Command9_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
form0.Command5.Visible = True 
form0.Command6.Visible = True 
form0.Command7.Visible = True 
form0.Command8.Visible = True 
End Sub 
 
 
 
Private Sub Command1_Click() 
Timer1 = True 
form0.Command27.Visible = True 
End Sub 
 
 
 
 
 
Private Sub Command10_Click() 
Winsock1.RemoteHost = form1.Text2 
Winsock1.RemotePort = form1.Text3 
Winsock1.Connect 
form0.Command26.Visible = True 
form0.Frame1.Enabled = True 
form0.Frame2.Enabled = True 
form0.Frame3.Enabled = True 
form0.Text5.Text = "0" 
End Sub 
 
Private Sub Command11_Click() 
form0.Command22.Visible = True 
Winsock1.SendData form1.Text4.Text 
End Sub 
 
Private Sub Command12_Click() 
form0.Command23.Visible = True 
Winsock1.SendData form1.Text5.Text 
End Sub 
 
Private Sub Command13_Click() 
form0.Command24.Visible = True 
Winsock1.SendData form1.Text6.Text 
End Sub 
 
Private Sub Command14_Click() 
form0.Command25.Visible = True 
Winsock1.SendData form1.Text7.Text 
End Sub 
 
 
 
 
 
 
 
 
Private Sub Command2_Click() 
Image1.Width = Image1.Width + 110 
Image1.Height = Image1.Height + 60 
Picture1.Width = Picture1.Width + 110 
Picture1.Height = Picture1.Height + 60 
Frame1.Left = Frame1.Left + 110 
Frame1.Top = Frame1.Top + 60 
Frame2.Left = Frame2.Left + 110 
Frame2.Top = Frame2.Top + 60 
Frame4.Left = Frame4.Left + 110 
Frame3.Top = Frame3.Top + 60 
End Sub 
 
 
 
Private Sub Command20_Click(Index As Integer) 
Winsock1.SendData form1.Text26.Text 
End Sub 
 
Private Sub Command21_Click(Index As Integer) 
Winsock1.SendData form1.Text27.Text 
End Sub 
 
Private Sub Command3_Click() 
form1.Visible = True 
End Sub 
 
Private Sub Command4_Click() 
Image1.Width = Image1.Width - 110 
Image1.Height = Image1.Height - 60 
Picture1.Width = Picture1.Width - 110 
Picture1.Height = Picture1.Height - 60 
Frame1.Left = Frame1.Left - 110 
Frame1.Top = Frame1.Top - 60 
Frame2.Left = Frame2.Left - 110 
Frame2.Top = Frame2.Top - 60 
Frame4.Left = Frame4.Left - 110 
Frame3.Top = Frame3.Top - 60 
End Sub 
 
 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
If form0.Text5 = 0 Then 
If KeyCode = 87 Then 
Winsock1.SendData form1.Text8.Text 
form1.Text8.Text = "" 
form0.Command6.Visible = False 
form0.Command7.Visible = False 
form0.Command8.Visible = False 
form0.Command9.Visible = False 
End If 
 
If KeyCode = 68 Then 
Winsock1.SendData form1.Text9.Text 
form1.Text9.Text = "" 
form0.Command5.Visible = False 
form0.Command7.Visible = False 
form0.Command8.Visible = False 
form0.Command9.Visible = False 
End If 
 
If KeyCode = 83 Then 
Winsock1.SendData form1.Text10.Text 
form1.Text10.Text = "" 
form0.Command5.Visible = False 
form0.Command6.Visible = False 
form0.Command8.Visible = False 
form0.Command9.Visible = False 
End If 
 
If KeyCode = 65 Then 
Winsock1.SendData form1.Text11.Text 
form1.Text11.Text = "" 
form0.Command5.Visible = False 
form0.Command6.Visible = False 
form0.Command7.Visible = False 
form0.Command9.Visible = False 
End If 
 
If KeyCode = 70 Then 
Winsock1.SendData form1.Text12.Text 
form1.Text12.Text = "" 
form0.Command5.Visible = False 
form0.Command6.Visible = False 
form0.Command7.Visible = False 
form0.Command8.Visible = False 
End If 
End If 
End Sub 
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) 
If form0.Text5 = 0 Then 
If KeyCode = 87 Then 
form1.Text8 = form1.Text32 
Winsock1.SendData form1.Text12.Text 
form0.Command6.Visible = True 
form0.Command7.Visible = True 
form0.Command8.Visible = True 
form0.Command9.Visible = True 
End If 
 
If KeyCode = 68 Then 
form1.Text9 = form1.Text33 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = True 
form0.Command7.Visible = True 
form0.Command8.Visible = True 
form0.Command9.Visible = True 
End If 
 
If KeyCode = 83 Then 
form1.Text10 = form1.Text34 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = True 
form0.Command6.Visible = True 
form0.Command8.Visible = True 
form0.Command9.Visible = True 
End If 
 
If KeyCode = 65 Then 
form1.Text11 = form1.Text35 
Winsock1.SendData form1.Text12.Text 
form0.Command5.Visible = True 
form0.Command6.Visible = True 
form0.Command7.Visible = True 
form0.Command9.Visible = True 
End If 
 
If KeyCode = 70 Then 
form1.Text12 = form1.Text36 
form0.Command5.Visible = True 
form0.Command6.Visible = True 
form0.Command7.Visible = True 
form0.Command8.Visible = True 
End If 
End If 
End Sub 
 
Private Sub Form_Load() 
HScroll1.Max = form1.Text19.Text 
HScroll1.Min = form1.Text18.Text 
HScroll2.Max = form1.Text21.Text 
HScroll2.Min = form1.Text20.Text 
HScroll3.Max = form1.Text23.Text 
HScroll3.Min = form1.Text22.Text 
HScroll4.Max = form1.Text25.Text 
HScroll4.Min = form1.Text24.Text 
 
 
 
End Sub 
 
 
 
Private Sub HScroll1_Change() 
HScroll1 = HScroll1.Value 
 form0.Text1 = HScroll1 
 Winsock1.SendData "A" + form0.Text1.Text 
End Sub 
 
Private Sub HScroll2_Change() 
HScroll2 = HScroll2.Value 
 form0.Text2 = HScroll2 
 Winsock1.SendData "B" + form0.Text2.Text 
End Sub 
 
Private Sub HScroll3_Change() 
HScroll3 = HScroll3.Value 
 form0.Text3 = HScroll3 
 Winsock1.SendData "C" + form0.Text3.Text 
End Sub 
 
Private Sub HScroll4_Change() 
HScroll4 = HScroll4.Value 
 form0.Text4 = HScroll4 
 Winsock1.SendData "D" + form0.Text4.Text 
End Sub 
 
Private Sub Text1_Change() 
HScroll1 = form0.Text1 
End Sub 
 
Private Sub Text2_Change() 
HScroll2 = form0.Text2 
End Sub 
 
Private Sub Text3_Change() 
HScroll3 = form0.Text3 
End Sub 
 
Private Sub Text4_Change() 
HScroll4 = form0.Text4 
End Sub 
 
 
Private Sub Timer1_Timer() 
If UCase(Left(form1.Text1.Text, 7)) = "HTTP://" Then 
      '网络图片地址 
      Dim FileByte() As Byte 
      FileByte = Inet1.OpenURL(form1.Text1.Text, icByteArray) 
      Open "C:\MyTemp.TMP" For Binary As #1 
      Put #1, 1, FileByte 
      Close #1 
      Image1.Picture = LoadPicture("C:\MyTemp.TMP") 
      Kill "C:\MyTemp.TMP" 
   Else 
      '本地图片地址 
      Image1.Picture = LoadPicture("C:\MyTemp.TMP") 
   End If 
End Sub