frmadconfig.frm

一个不错的数控源码是vb的

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmAdConfig 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "高级配置"
   ClientHeight    =   6795
   ClientLeft      =   45
   ClientTop       =   270
   ClientWidth     =   6105
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6795
   ScaleWidth      =   6105
   StartUpPosition =   2  '屏幕中心
   Begin TabDlg.SSTab SSTab1 
      Height          =   6855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   12091
      _Version        =   393216
      Style           =   1
      Tabs            =   7
      TabsPerRow      =   7
      TabHeight       =   520
      TabCaption(0)   =   "速度"
      TabPicture(0)   =   "frmAdConfig.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Label1(0)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Label1(1)"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Label1(2)"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Label1(3)"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Label1(4)"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "Label1(5)"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "Label2(0)"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "Label2(1)"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "Label2(2)"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "Label2(3)"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).Control(10)=   "Label2(4)"
      Tab(0).Control(10).Enabled=   0   'False
      Tab(0).Control(11)=   "Label2(5)"
      Tab(0).Control(11).Enabled=   0   'False
      Tab(0).Control(12)=   "Label3(0)"
      Tab(0).Control(12).Enabled=   0   'False
      Tab(0).Control(13)=   "Label3(1)"
      Tab(0).Control(13).Enabled=   0   'False
      Tab(0).Control(14)=   "Label3(2)"
      Tab(0).Control(14).Enabled=   0   'False
      Tab(0).Control(15)=   "Label3(3)"
      Tab(0).Control(15).Enabled=   0   'False
      Tab(0).Control(16)=   "Label3(4)"
      Tab(0).Control(16).Enabled=   0   'False
      Tab(0).Control(17)=   "Label3(5)"
      Tab(0).Control(17).Enabled=   0   'False
      Tab(0).Control(18)=   "cmdCutLine(0)"
      Tab(0).Control(18).Enabled=   0   'False
      Tab(0).Control(19)=   "CmdCutArc(0)"
      Tab(0).Control(19).Enabled=   0   'False
      Tab(0).Control(20)=   "cmdCutLine(1)"
      Tab(0).Control(20).Enabled=   0   'False
      Tab(0).Control(21)=   "cmdCutLine(2)"
      Tab(0).Control(21).Enabled=   0   'False
      Tab(0).Control(22)=   "CmdWashLine(0)"
      Tab(0).Control(22).Enabled=   0   'False
      Tab(0).Control(23)=   "CmdWashArc(0)"
      Tab(0).Control(23).Enabled=   0   'False
      Tab(0).Control(24)=   "CmdPointMove(0)"
      Tab(0).Control(24).Enabled=   0   'False
      Tab(0).Control(25)=   "CmdFindPoint(0)"
      Tab(0).Control(25).Enabled=   0   'False
      Tab(0).Control(26)=   "CmdFindPoint(2)"
      Tab(0).Control(26).Enabled=   0   'False
      Tab(0).Control(27)=   "CmdFindPoint(1)"
      Tab(0).Control(27).Enabled=   0   'False
      Tab(0).Control(28)=   "CmdPointMove(2)"
      Tab(0).Control(28).Enabled=   0   'False
      Tab(0).Control(29)=   "CmdPointMove(1)"
      Tab(0).Control(29).Enabled=   0   'False
      Tab(0).Control(30)=   "CmdWashArc(2)"
      Tab(0).Control(30).Enabled=   0   'False
      Tab(0).Control(31)=   "CmdWashArc(1)"
      Tab(0).Control(31).Enabled=   0   'False
      Tab(0).Control(32)=   "CmdWashLine(2)"
      Tab(0).Control(32).Enabled=   0   'False
      Tab(0).Control(33)=   "CmdWashLine(1)"
      Tab(0).Control(33).Enabled=   0   'False
      Tab(0).Control(34)=   "CmdCutArc(2)"
      Tab(0).Control(34).Enabled=   0   'False
      Tab(0).Control(35)=   "CmdCutArc(1)"
      Tab(0).Control(35).Enabled=   0   'False
      Tab(0).Control(36)=   "TxtCutLineSpeedNode(0)"
      Tab(0).Control(36).Enabled=   0   'False
      Tab(0).Control(37)=   "TxtCutLineSpeedNode(1)"
      Tab(0).Control(37).Enabled=   0   'False
      Tab(0).Control(38)=   "TxtCutArcSpeedNode(0)"
      Tab(0).Control(38).Enabled=   0   'False
      Tab(0).Control(39)=   "TxtCutArcSpeedNode(1)"
      Tab(0).Control(39).Enabled=   0   'False
      Tab(0).Control(40)=   "TxtWashLineSpeedNode(0)"
      Tab(0).Control(40).Enabled=   0   'False
      Tab(0).Control(41)=   "TxtWashLineSpeedNode(1)"
      Tab(0).Control(41).Enabled=   0   'False
      Tab(0).Control(42)=   "TxtWashArcSpeedNode(0)"
      Tab(0).Control(42).Enabled=   0   'False
      Tab(0).Control(43)=   "TxtUpdownMoveSpeedNode(0)"
      Tab(0).Control(43).Enabled=   0   'False
      Tab(0).Control(44)=   "TxtFindPointSpeedNode(0)"
      Tab(0).Control(44).Enabled=   0   'False
      Tab(0).Control(45)=   "TxtWashArcSpeedNode(1)"
      Tab(0).Control(45).Enabled=   0   'False
      Tab(0).Control(46)=   "TxtUpdownMoveSpeedNode(1)"
      Tab(0).Control(46).Enabled=   0   'False
      Tab(0).Control(47)=   "TxtFindPointSpeedNode(1)"
      Tab(0).Control(47).Enabled=   0   'False
      Tab(0).ControlCount=   48
      TabCaption(1)   =   "比例"
      TabPicture(1)   =   "frmAdConfig.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame2"
      Tab(1).Control(1)=   "Frame3"
      Tab(1).Control(2)=   "Frame4"
      Tab(1).ControlCount=   3
      TabCaption(2)   =   "Tab 2"
      TabPicture(2)   =   "frmAdConfig.frx":0038
      Tab(2).ControlEnabled=   0   'False
      Tab(2).Control(0)=   "Frame1"
      Tab(2).ControlCount=   1
      TabCaption(3)   =   "轴号"
      TabPicture(3)   =   "frmAdConfig.frx":0054
      Tab(3).ControlEnabled=   0   'False
      Tab(3).Control(0)=   "Label5(0)"
      Tab(3).Control(0).Enabled=   0   'False
      Tab(3).Control(1)=   "Label5(1)"
      Tab(3).Control(1).Enabled=   0   'False
      Tab(3).Control(2)=   "Label5(2)"
      Tab(3).Control(2).Enabled=   0   'False
      Tab(3).Control(3)=   "Text1"
      Tab(3).Control(3).Enabled=   0   'False
      Tab(3).Control(4)=   "Text2"
      Tab(3).Control(4).Enabled=   0   'False
      Tab(3).Control(5)=   "Text3"
      Tab(3).Control(5).Enabled=   0   'False
      Tab(3).ControlCount=   6
      TabCaption(4)   =   "Tab 4"
      TabPicture(4)   =   "frmAdConfig.frx":0070
      Tab(4).ControlEnabled=   0   'False
      Tab(4).ControlCount=   0
      TabCaption(5)   =   "Tab 5"
      TabPicture(5)   =   "frmAdConfig.frx":008C
      Tab(5).ControlEnabled=   0   'False
      Tab(5).ControlCount=   0
      TabCaption(6)   =   "Tab 6"
      TabPicture(6)   =   "frmAdConfig.frx":00A8
      Tab(6).ControlEnabled=   0   'False
      Tab(6).ControlCount=   0
      Begin VB.TextBox Text3 
         Height          =   270
         Left            =   -72480
         TabIndex        =   85
         Text            =   "Text3"
         Top             =   2760
         Width           =   1455
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   -72480
         TabIndex        =   84
         Text            =   "Text2"
         Top             =   1920
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   -72480
         TabIndex        =   81
         Text            =   "Text1"
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Frame Frame1 
         Caption         =   "回起始点"
         Height          =   1935
         Left            =   -74520
         TabIndex        =   61
         Top             =   1680
         Width           =   4815
         Begin VB.ComboBox CombReturnAccel 
            Height          =   300
            Index           =   2
            Left            =   3480
            TabIndex        =   70
            Text            =   " "
            Top             =   1320
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnAccel 
            Height          =   300
            Index           =   1
            Left            =   3480
            TabIndex        =   69
            Text            =   " "
            Top             =   840
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnHigh 
            Height          =   300
            Index           =   2
            Left            =   2280
            TabIndex        =   68
            Text            =   " "
            Top             =   1320
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnHigh 
            Height          =   300
            Index           =   1
            Left            =   2280
            TabIndex        =   67
            Text            =   " "
            Top             =   840
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnLow 
            Height          =   300
            Index           =   2
            Left            =   1080
            TabIndex        =   66
            Text            =   " "
            Top             =   1320
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnLow 
            Height          =   300
            Index           =   1
            Left            =   1080
            TabIndex        =   65
            Text            =   " "
            Top             =   840
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnAccel 
            Height          =   300
            Index           =   0
            Left            =   3480
            TabIndex        =   64
            Text            =   " "
            Top             =   360
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnHigh 
            Height          =   300
            Index           =   0
            Left            =   2280
            TabIndex        =   63
            Text            =   " "
            Top             =   360
            Width           =   1095
         End
         Begin VB.ComboBox CombReturnLow 
            Height          =   300
            Index           =   0
            Left            =   1080
            TabIndex        =   62
            Text            =   " "
            Top             =   360
            Width           =   1095
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "比例三"
         Height          =   1935
         Left            =   -74760
         TabIndex        =   54
         Top             =   4560
         Width           =   5655
         Begin VB.TextBox TxtFactor2 
            Height          =   270
            Index           =   5
            Left            =   2160
            TabIndex        =   60
            Text            =   "Text1"
            Top             =   1320
            Width           =   1095
         End
         Begin VB.TextBox TxtFactor2 
            Height          =   270
            Index           =   4
            Left            =   2160
            TabIndex        =   59
            Text            =   "Text1"
            Top             =   840
            Width           =   1095
         End
         Begin VB.TextBox TxtFactor2 
            Height          =   270
            Index           =   2
            Left            =   2160
            TabIndex        =   58
            Text            =   "Text1"
            Top             =   360
            Width           =   1095
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "三轴比例"
            Height          =   180
            Index           =   9
            Left            =   600
            TabIndex        =   79
            Top             =   1320
            Width           =   720
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "二轴比例"
            Height          =   180
            Index           =   5
            Left            =   600
            TabIndex        =   76
            Top             =   840
            Width           =   720
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "一轴比例"
            Height          =   180
            Index           =   2
            Left            =   600
            TabIndex        =   73
            Top             =   360
            Width           =   720
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "比例二"
         Height          =   1935
         Left            =   -74760
         TabIndex        =   53
         Top             =   2520
         Width           =   5655
         Begin VB.TextBox TxtFactor1 
            Height          =   270
            Index           =   2
            Left            =   2160
            TabIndex        =   57
            Text            =   "Text1"
            Top             =   1320
            Width           =   1095
         End
         Begin VB.TextBox TxtFactor1 
            Height          =   270
            Index           =   1
            Left            =   2160