Attribute VB_Name = "Module2"
Option Explicit
Dim i As Long
Dim a1 As String
Dim A3 As Integer
Dim A2 As String
Public Sub Abrir()
Dim u As String
'mostremos el formulario2
Form2.Show
Unload Form1
'leamos fichero de texto
Open Module1.AL For Input As #2
'leemos el n de departamentos
Line Input #2, a1
Form2.Text1 = a1
Form2.Command1_Click
'leemos el valor de los relacionadores
Line Input #2, A2
Form2.Text4 = A2
Line Input #2, A2
Form2.Text3(0) = A2
Line Input #2, A2
Form2.Text3(1) = A2
Line Input #2, A2
Form2.Text3(2) = A2
Line Input #2, A2
Form2.Text3(3) = A2
Line Input #2, A2
Form2.Text3(4) = A2
Line Input #2, A2
Form2.Text3(5) = A2
'leemos el nombre y superficie de los departamentos
'nombre
For i = 1 To CInt(a1)
Line Input #2, A2
A3 = Len(A2)
Form2.Text2(i).Text = Mid(A2, 2, A3 - 2)
Next
'superficie
For i = a1 + 1 To CInt(2 * a1)
Line Input #2, A2
Form2.Text2(i).Text = A2
Next
End Sub
Public Sub relaciones()
Dim As Integer
Dim q As Integer
= 0
q = 0
For i = 1 To a
= + 1
q = q +
Next
For i = CInt(2 * a1 + 1) To CInt(2 * a1 + q)
Line Input #2, A2
A3 = Len(A2)
Form2.Text2(i).Text = Mid(A2, 2, A3 - 2)
Next
Close #2
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
