选择出库货架位置.frm

亚龙高架库控制程序 VB 基本结构为PLC通过驱动器控制步进电机实现启动、停止、加速、减速、匀速、换向等运动轮廓

VERSION 5.00
Begin VB.Form Dialog1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "请选择出库货架"
   ClientHeight    =   2505
   ClientLeft      =   20835
   ClientTop       =   11850
   ClientWidth     =   6900
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2505
   ScaleWidth      =   6900
   ShowInTaskbar   =   0   'False
   Begin VB.ComboBox Combo1 
      Height          =   300
      Index           =   0
      ItemData        =   "选择出库货架位置.frx":0000
      Left            =   3240
      List            =   "选择出库货架位置.frx":0013
      TabIndex        =   5
      Top             =   945
      Width           =   750
   End
   Begin VB.ComboBox Combo2 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   1
      EndProperty
      DataMember      =   "1"
      DataSource      =   "4"
      Height          =   300
      Index           =   0
      ItemData        =   "选择出库货架位置.frx":0026
      Left            =   3240
      List            =   "选择出库货架位置.frx":0036
      TabIndex        =   4
      Top             =   1560
      Width           =   750
   End
   Begin VB.CommandButton CancelB 
      Caption         =   "取消"
      Height          =   375
      Index           =   0
      Left            =   4830
      TabIndex        =   1
      Top             =   945
      Width           =   1215
   End
   Begin VB.CommandButton OKB 
      Caption         =   "确定"
      Height          =   375
      Index           =   0
      Left            =   4830
      TabIndex        =   0
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label Lab2 
      Caption         =   "     出库货架上下位置（1-4）"
      Height          =   375
      Index           =   0
      Left            =   360
      TabIndex        =   3
      Top             =   1560
      Width           =   2535
   End
   Begin VB.Label Lab1 
      Caption         =   "     出库货架左右位置（1-5）"
      Height          =   495
      Index           =   0
      Left            =   360
      TabIndex        =   2
      Top             =   960
      Width           =   2655
   End
End
Attribute VB_Name = "Dialog1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'Option Explicit

'Private Sub CancelB_Click()
'sing = False
'Unload Me
'End Sub

'Private Sub Combo1_Change()
'If Val(Combo1.Text) > 5 Or Val(Combo1.Text) < 1 Then Combo1.Text = ""
'End Sub

'Private Sub Combo2_Change()
'If Val(Combo1.Text) > 4 Or Val(Combo1.Text) < 1 Then Combo2.Text = ""
'End Sub

'Private Sub Form_Load()
'Dim i As Integer
'i = 100
'End Sub

'Private Sub OKB_Click()

'Dim i, j As Integer

'If Combo1.Text <> "" Then
'   i = Val(Combo1.Text) '左右
'Else
'   GoTo 2
'End If

'If Combo2.Text <> "" Then
'   j = Val(Combo2.Text)  '上下
'Else
'   GoTo 2
'End If


'ind = i + 5 * (j - 1)

'sing = True

'Unload Me

'2
'End Sub