【VB开源代码栏目提醒】:网学会员,鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“frmDisplayMonitors.frm”一文,供大家参考学习!
VERSION 5.00
Begin VB.Form frmDisplayMonitors
BorderStyle = 1 'Fixed Single
Caption = "Display Monitors"
ClientHeight = 2655
ClientLeft = 45
ClientTop = 330
ClientWidth = 5535
Icon = "frmDisplayMonitors.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2655
ScaleWidth = 5535
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtPIX8
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 5160
TabIndex = 31
Text = "PIX"
Top = 2280
Width = 255
End
Begin VB.TextBox txtPIX7
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 5160
TabIndex = 28
Text = "PIX"
Top = 2040
Width = 255
End
Begin VB.TextBox txtPIX6
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 5160
TabIndex = 25
Text = "PIX"
Top = 1800
Width = 255
End
Begin VB.TextBox txtPIX5
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 5160
TabIndex = 22
Text = "PIX"
Top = 1560
Width = 255
End
Begin VB.TextBox txtPIX4
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 2400
TabIndex = 18
Text = "PIX"
Top = 2280
Width = 255
End
Begin VB.TextBox txtPIX3
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 2400
TabIndex = 15
Text = "PIX"
Top = 2040
Width = 255
End
Begin VB.TextBox txtPIX2
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 2400
TabIndex = 12
Text = "PIX"
Top = 1800
Width = 255
End
Begin VB.TextBox txtPIX1
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 2400
TabIndex = 9
Text = "PIX"
Top = 1560
Width = 255
End
Begin VB.TextBox txtWorkBottom
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 4080
Locked = -1 'True
TabIndex = 30
Top = 2280
Width = 975
End
Begin VB.TextBox txtWorkRight
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 4080
Locked = -1 'True
TabIndex = 27
Top = 2040
Width = 975
End
Begin VB.TextBox txtWorkTop
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 4080
Locked = -1 'True
TabIndex = 24
Top = 1800
Width = 975
End
Begin
VB.TextBox txtWorkLeft
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 4080
Locked = -1 'True
TabIndex = 21
Top = 1560
Width = 975
End
Begin VB.TextBox txtMonitorBottom
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 17
Top = 2280
Width = 975
End
Begin VB.TextBox txtMonitorRight
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 14
Top = 2040
Width = 975
End
Begin VB.TextBox txtMonitorTop
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 11
Top = 1800
Width = 975
End
Begin VB.TextBox txtMonitorLeft
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 8
Top = 1560
Width = 975
End
Begin VB.CheckBox chkPrimaryDisplay
Enabled = 0 'False
Height = 255
Left = 5160
TabIndex = 5
Top = 720
Width = 255
End
Begin VB.TextBox txtDeviceName
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 285
Left = 2040
Locked = -1 'True
TabIndex = 3
Top = 480
Width = 3375
End
Begin VB.ComboBox cboDisplayMonitors
Height = 315
Left = 2040
TabIndex = 1
Top = 120
Width = 3375
End
Begin VB.Label lblWork
Caption = "Work"
Height = 255
Left = 2880
TabIndex = 19
Top = 1200
Width = 1695
End
Begin VB.Label lblWorkBottom
Caption = "Bottom"
Height = 255
Left = 2880
TabIndex = 29
Top = 2280
Width = 975
End
Begin VB.Label lblWorkRight
Caption = "Right"
Height = 255
Left = 2880
TabIndex = 26
Top = 2040
Width = 975
End
Begin VB.Label lblWorkTop
Caption = "Top"
Height = 255
Left = 2880
TabIndex = 23
Top = 1800
Width = 975
End
Begin VB.Label lblWorkLeft
Caption = "Left"
Height = 255
Left = 2880
TabIndex = 20
Top = 1560
Width = 975
End
Begin VB.Label lblMonitor
Caption = "Monitor"
Height = 255
Left = 120
TabIndex = 6
Top = 1200
Width = 1695
End
Begin VB.Label lblMonitorBottom
Caption = "Bottom"
Height = 255
Left = 120
TabIndex = 16
Top = 2280
Width