-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathFRMSUBS.FRM
137 lines (126 loc) · 4.37 KB
/
FRMSUBS.FRM
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmSubs
BorderStyle = 3 'Fixed Dialog
Caption = "SubRutinas del Proyecto"
ClientHeight = 5895
ClientLeft = 1440
ClientTop = 1770
ClientWidth = 9555
Icon = "frmSubs.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5895
ScaleWidth = 9555
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmd
Caption = "&Salir"
Height = 375
Left = 4080
TabIndex = 1
Top = 5400
Width = 1215
End
Begin ComctlLib.ListView lview
Height = 5295
Left = 0
TabIndex = 0
Top = 0
Width = 9495
_ExtentX = 16748
_ExtentY = 9340
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
Icons = "imgProyecto"
SmallIcons = "imgProyecto"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 4
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "Origen"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "Sigla"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 2
Key = ""
Object.Tag = ""
Text = "Descripcion"
Object.Width = 4410
EndProperty
BeginProperty ColumnHeader(4) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
SubItemIndex = 3
Key = ""
Object.Tag = ""
Text = "Lineas de Código"
Object.Width = 2540
EndProperty
End
Begin ComctlLib.ImageList imgProyecto
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSubs.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSubs.frx":085C
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSubs.frx":0DAE
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSubs.frx":1300
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmSubs.frx":1852
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmSubs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Sub CargaInforme()
End Sub
Private Sub cmd_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call CargaRutinas(Me, TIPO_SUB)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmSubs = Nothing
End Sub