home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Planet Source Code Jumbo …e CD Visual Basic 1 to 7
/
5_2007-2008.ISO
/
data
/
Zips
/
New_API_Vi2067375252007.psc
/
APIViewer
/
Forms
/
frmAddDecl.frm
< prev
Wrap
Text File
|
2007-04-14
|
13KB
|
371 lines
VERSION 5.00
Begin VB.Form frmAddDecl
BorderStyle = 1 'Fixed Single
Caption = "Add New Declare Statement"
ClientHeight = 6270
ClientLeft = 45
ClientTop = 435
ClientWidth = 8595
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6270
ScaleWidth = 8595
StartUpPosition = 1 'CenterOwner
Begin VB.ComboBox cboRtnType
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":0000
Left = 5700
List = "frmAddDecl.frx":0002
TabIndex = 11
Top = 1440
Width = 2715
End
Begin VB.ComboBox cboReturnStd
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":0004
Left = 1980
List = "frmAddDecl.frx":0020
Style = 2 'Dropdown List
TabIndex = 9
Top = 1440
Width = 2055
End
Begin VB.ComboBox cboFnSub
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":0062
Left = 4380
List = "frmAddDecl.frx":006C
Style = 2 'Dropdown List
TabIndex = 7
Top = 1020
Width = 4035
End
Begin VB.TextBox txtLIB
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4380
TabIndex = 3
Top = 420
Width = 4035
End
Begin VB.TextBox txtAlias
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 240
TabIndex = 5
Top = 1020
Width = 4035
End
Begin VB.CommandButton cmdDown
Caption = "Move &Down"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1500
TabIndex = 29
ToolTipText = "Move Parameter down in the list order (Down Arrow)"
Top = 4320
Width = 1155
End
Begin VB.CommandButton cmdUp
Caption = "Move &Up"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 180
TabIndex = 28
ToolTipText = "Move Parameter up in the list order (Up Arrow)"
Top = 4320
Width = 1155
End
Begin VB.CommandButton cmdDelete
Caption = "De&lete"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2820
TabIndex = 30
ToolTipText = "Delete the selected Parameter (DEL)"
Top = 4320
Width = 1155
End
Begin VB.ListBox lstTypeItems
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2010
ItemData = "frmAddDecl.frx":007F
Left = 180
List = "frmAddDecl.frx":0081
TabIndex = 27
Top = 2220
Width = 3795
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 240
TabIndex = 1
Top = 420
Width = 4035
End
Begin VB.CommandButton cmdApply
Caption = "Apply"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 32
ToolTipText = "Accept new Declaration"
Top = 5040
Width = 1695
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6720
TabIndex = 33
ToolTipText = "Reject or exit without saving"
Top = 5040
Width = 1695
End
Begin VB.Frame Frame1
Caption = "Add New Prameter / Edit Selected Parameter properties"
Height = 2715
Left = 4020
TabIndex = 12
Top = 1980
Width = 4395
Begin VB.PictureBox picFixBorder
Height = 675
Left = 60
ScaleHeight = 615
ScaleWidth = 1395
TabIndex = 24
TabStop = 0 'False
Top = 1920
Width = 1455
Begin VB.CommandButton cmdAddNew
Caption = "Add Para&meter"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 60
TabIndex = 25
ToolTipText = "Add new declare parameter (ENTER)"
Top = 0
Width = 1335
End
End
Begin VB.TextBox txtSize
Alignment = 2 'Center
Height = 285
Left = 2880
TabIndex = 23
Text = "0"
Top = 2220
Width = 1335
End
Begin VB.TextBox txtNewEntry
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1620
TabIndex = 14
Top = 240
Width = 2595
End
Begin VB.ComboBox cboReference
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":0083
Left = 1620
List = "frmAddDecl.frx":0090
Style = 2 'Dropdown List
TabIndex = 16
Top = 660
Width = 2595
End
Begin VB.ComboBox cboTypeList
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":00AA
Left = 1620
List = "frmAddDecl.frx":00AC
TabIndex = 20
Top = 1500
Width = 2595
End
Begin VB.ComboBox cboStdType
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":00AE
Left = 1620
List = "frmAddDecl.frx":00CA
Style = 2 'Dropdown List
TabIndex = 18
Top = 1080
Width = 2595
End
Begin VB.CheckBox chkArray
Caption = "Define as an A&rray"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1620
TabIndex = 21
ToolTipText = "Select toTex Left = 1620
TabIndex = 21
ToolTipText = "Selecnr = 0 'FalseN = ilDn
EndProperty
Height = 315
ItemData = "frmAddDecl.frx":00terty
iket