VERSION 5.00
Begin VB.Form Form2cond
BorderStyle = 1 'Fixed Single
Caption = "Nuevo grupo de conductores"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 435
ClientWidth = 4425
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 4425
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame2
Caption = "Vertical"
Height = 3015
Left = 120
TabIndex = 10
Top = 2760
Width = 4215
Begin VB.PictureBox Picture2
Height = 2175
Left = 120
Picture = "FormGrupoConductores.frx":0000
ScaleHeight = 2115
ScaleWidth = 2235
TabIndex = 18
Top = 480
Width = 2295
End
Begin VB.CommandButton Command1
Caption = "Aceptar"
Height = 255
Left = 3000
TabIndex = 17
Top = 2280
Width = 975
End
Begin VB.CommandButton Command2
Caption = "Cancelar"
Height = 255
Left = 3000
TabIndex = 16
Top = 2640
Width = 975
End
Begin VB.TextBox Text4
Height = 285
Left = 3480
TabIndex = 15
Text = "20"
Top = 360
Width = 495
End
Begin VB.TextBox Text5
Height = 285
Left = 3480
TabIndex = 14
Text = "10"
Top = 720
Width = 495
End
Begin VB.TextBox Text6
Height = 285
Left = 3480
TabIndex = 13
Text = "2"
Top = 1080
Width = 495
End
Begin VB.TextBox Text7
Height = 285
Left = 3480
TabIndex = 12
Text = "2"
Top = 1440
Width = 495
End
Begin VB.TextBox Text8
Height = 285
Left = 3480
TabIndex = 11
Text = "2"
Top = 1800
Width = 495
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "X (m.) :"
Height = 195
Left = 2880
TabIndex = 23
Top = 360
Width = 495
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Y (m.) :"
Height = 195
Left = 2880
TabIndex = 22
Top = 720
Width = 495
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "h (m.) :"
Height = 195
Left = 2880
TabIndex = 21
Top = 1080
Width = 480
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "d1 (m.) :"
Height = 195
Left = 2880
TabIndex = 20
Top = 1440
Width = 570
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "d2 (m.) :"
Height = 195
Left = 2880
TabIndex = 19
Top = 1800
Width = 570
End
End
Begin VB.Frame Frame1
Caption = "Horizontal"
Height = 2535
Left = 120
TabIndex = 0
Top = 120
Width = 4215
Begin VB.PictureBox Picture1
Height = 2150
Left = 120
Picture = "FormGrupoConductores.frx":1202A
ScaleHeight = 2085
ScaleWidth = 2265
TabIndex = 6
Top = 240
Width = 2325
End
Begin VB.TextBox Text1
Height = 285
Left = 3480
TabIndex = 5
Text = "20"
Top = 420
Width = 495
End
Begin VB.TextBox Text2
Height = 285
Left = 3480
TabIndex = 4
Text = "10"
Top = 780
Width = 495
End
Begin VB.TextBox Text3
Height = 285
Left = 3480
TabIndex = 3
Text = "2"
Top = 1120
Width = 495
End
Begin VB.CommandButton Command3
Caption = "Aceptar"
Height = 255
Left = 3000
TabIndex = 2
Top = 1680
Width = 975
End
Begin VB.CommandButton Command4
Caption = "Cancelar"
Height = 255
Left = 3000
TabIndex = 1
Top = 2040
Width = 975
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "X (m.) :"
Height = 195
Left = 2880
TabIndex = 9
Top = 480
Width = 495
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Y (m.) :"
Height = 195
Left = 2880
TabIndex = 8
Top = 840
Width = 495
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "d (m.) :"
Height = 195
Left = 2880
TabIndex = 7
Top = 1200
Width = 480
End
End
End
Attribute VB_Name = "Form2cond"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
TabStrip1.Tabs.Item
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
