English
frmSetPage.frm
资源名称：物流管理系统实例.rar [点击查看]
上传用户：ykswallow
上传日期：2009-12-30
资源大小：1107k
文件大小：10k
源码类别：
其他行业
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
- Begin VB.Form frmSetPage
- BorderStyle = 3 'Fixed Dialog
- Caption = "设置打印边界"
- ClientHeight = 2820
- ClientLeft = 2760
- ClientTop = 3750
- ClientWidth = 4980
- Icon = "frmSetPage.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2820
- ScaleWidth = 4980
- ShowInTaskbar = 0 'False
- StartUpPosition = 1 '所有者中心
- Begin VB.CommandButton cmdSetPrint
- Caption = "打印设置"
- Height = 360
- Left = 3000
- TabIndex = 14
- Top = 600
- Width = 1335
- End
- Begin MSComCtl2.UpDown UpDownXS
- Height = 300
- Index = 3
- Left = 1920
- TabIndex = 7
- TabStop = 0 'False
- Top = 1560
- Width = 375
- _ExtentX = 661
- _ExtentY = 529
- _Version = 393216
- Value = 10
- BuddyControl = "txtXS(3)"
- BuddyDispid = 196610
- BuddyIndex = 3
- OrigLeft = 3960
- OrigTop = 840
- OrigRight = 4335
- OrigBottom = 1140
- Max = 100
- Orientation = 1
- SyncBuddy = -1 'True
- BuddyProperty = 0
- Enabled = -1 'True
- End
- Begin MSComCtl2.UpDown UpDownXS
- Height = 300
- Index = 2
- Left = 1920
- TabIndex = 6
- TabStop = 0 'False
- Top = 840
- Width = 375
- _ExtentX = 661
- _ExtentY = 529
- _Version = 393216
- BuddyControl = "txtXS(2)"
- BuddyDispid = 196610
- BuddyIndex = 2
- OrigLeft = 3960
- OrigTop = 480
- OrigRight = 4335
- OrigBottom = 780
- Max = 100
- Orientation = 1
- SyncBuddy = -1 'True
- BuddyProperty = 0
- Enabled = -1 'True
- End
- Begin MSComCtl2.UpDown UpDownXS
- Height = 300
- Index = 1
- Left = 1920
- TabIndex = 9
- TabStop = 0 'False
- Top = 1200
- Width = 375
- _ExtentX = 661
- _ExtentY = 529
- _Version = 393216
- Value = 10
- BuddyControl = "txtXS(1)"
- BuddyDispid = 196610
- BuddyIndex = 1
- OrigLeft = 1800
- OrigTop = 840
- OrigRight = 2175
- OrigBottom = 1140
- Max = 100
- Orientation = 1
- SyncBuddy = -1 'True
- BuddyProperty = 0
- Enabled = -1 'True
- End
- Begin MSComCtl2.UpDown UpDownXS
- Height = 300
- Index = 0
- Left = 1920
- TabIndex = 8
- TabStop = 0 'False
- Top = 480
- Width = 375
- _ExtentX = 661
- _ExtentY = 529
- _Version = 393216
- Value = 20
- BuddyControl = "txtXS(0)"
- BuddyDispid = 196610
- BuddyIndex = 0
- OrigLeft = 1800
- OrigTop = 480
- OrigRight = 2175
- OrigBottom = 780
- Max = 100
- Orientation = 1
- SyncBuddy = -1 'True
- BuddyProperty = 0
- Enabled = -1 'True
- End
- Begin VB.TextBox txtXS
- BeginProperty DataFormat
- Type = 1
- Format = "0"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 1
- EndProperty
- Height = 300
- IMEMode = 3 'DISABLE
- Index = 0
- Left = 1320
- MaxLength = 3
- TabIndex = 0
- Text = "20"
- Top = 480
- Width = 615
- End
- Begin VB.TextBox txtXS
- BeginProperty DataFormat
- Type = 1
- Format = "0"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 1
- EndProperty
- Height = 300
- IMEMode = 3 'DISABLE
- Index = 1
- Left = 1320
- MaxLength = 3
- TabIndex = 2
- Text = "10"
- Top = 1200
- Width = 615
- End
- Begin VB.CommandButton cmdCancel
- Caption = "取消"
- Height = 360
- Left = 3360
- TabIndex = 5
- Top = 2280
- Width = 1215
- End
- Begin VB.CommandButton cmdOK
- Caption = "确定"
- Default = -1 'True
- Height = 360
- Left = 2025
- TabIndex = 4
- Top = 2280
- Width = 1215
- End
- Begin VB.TextBox txtXS
- BeginProperty DataFormat
- Type = 1
- Format = "0"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 1
- EndProperty
- Height = 300
- IMEMode = 3 'DISABLE
- Index = 2
- Left = 1320
- MaxLength = 3
- TabIndex = 1
- Text = "0"
- Top = 840
- Width = 615
- End
- Begin VB.TextBox txtXS
- BeginProperty DataFormat
- Type = 1
- Format = "0"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 1
- EndProperty
- Height = 300
- IMEMode = 3 'DISABLE
- Index = 3
- Left = 1320
- MaxLength = 3
- TabIndex = 3
- Text = "10"
- Top = 1560
- Width = 615
- End
- Begin VB.Line Line5
- BorderColor = &H80000003&
- X1 = 240
- X2 = 4680
- Y1 = 240
- Y2 = 240
- End
- Begin VB.Line Line6
- BorderColor = &H80000005&
- X1 = 240
- X2 = 4700
- Y1 = 2040
- Y2 = 2040
- End
- Begin VB.Line Line7
- BorderColor = &H80000003&
- X1 = 240
- X2 = 240
- Y1 = 240
- Y2 = 2040
- End
- Begin VB.Line Line8
- BorderColor = &H80000005&
- X1 = 4680
- X2 = 4680
- Y1 = 240
- Y2 = 2040
- End
- Begin VB.Label lblFieldLabel
- AutoSize = -1 'True
- Caption = "左(毫米):"
- Height = 180
- Index = 6
- Left = 480
- TabIndex = 13
- Top = 480
- Width = 810
- End
- Begin VB.Label lblFieldLabel
- AutoSize = -1 'True
- Caption = "上(毫米):"
- Height = 180
- Index = 7
- Left = 480
- TabIndex = 12
- Top = 1200
- Width = 810
- End
- Begin VB.Label lblFieldLabel
- AutoSize = -1 'True
- Caption = "下(毫米):"
- Height = 180
- Index = 2
- Left = 480
- TabIndex = 11
- Top = 1560
- Width = 810
- End
- Begin VB.Label lblFieldLabel
- AutoSize = -1 'True
- Caption = "右(毫米):"
- Height = 180
- Index = 5
- Left = 480
- TabIndex = 10
- Top = 840
- Width = 810
- End
- End
- Attribute VB_Name = "frmSetPage"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Public intTop As Integer
- Public intLeft As Integer
- Public intRight As Integer
- Public intBottom As Integer
- Public bOK As Byte
- Private Sub cmdCancel_Click()
- bOK = 0
- txtXS(0).SetFocus
- Hide
- End Sub
- Private Sub cmdOK_Click()
- intTop = txtXS(1) * 60
- intLeft = txtXS(0) * 60
- intRight = txtXS(2) * 60
- intBottom = txtXS(3) * 60
- bOK = 1
- txtXS(0).SetFocus
- Hide
- End Sub
- Private Sub cmdSetPrint_Click()
- fMain.SetPrint
- End Sub
- Private Sub Form_Activate()
- bOK = 0
- End Sub
- Private Sub txtXS_Change(Index As Integer)
- If Val(txtXS(Index)) < 0 Then
- txtXS(Index) = 0
- End If
- If Val(txtXS(Index)) > 100 Then
- txtXS(Index) = 100
- End If
- txtXS(Index) = Val(txtXS(Index))
- End Sub
- Private Sub txtXS_GotFocus(Index As Integer)
- txtXS(Index).SelStart = 0
- txtXS(Index).SelLength = Len(txtXS(Index))
- End Sub
- Private Sub txtXS_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
- If KeyCode = vbKeyDown Then
- If Val(txtXS(Index)) <= 0 Then
- txtXS(Index) = 100
- Exit Sub
- End If
- txtXS(Index) = Val(txtXS(Index)) - 1
- ElseIf KeyCode = vbKeyUp Then
- If Val(txtXS(Index)) >= 100 Then
- txtXS(Index) = 0
- Exit Sub
- End If
- txtXS(Index) = Val(txtXS(Index)) + 1
- End If
- End Sub
- Private Sub UpDownXS_Change(Index As Integer)
- txtXS(Index).SetFocus
- End Sub
