VERSION 5.00
Begin VB.Form FormPropiedades
BorderStyle = 1 'Fixed Single
Caption = "Propiedades del proyecto"
ClientHeight = 4530
ClientLeft = 45
ClientTop = 435
ClientWidth = 4440
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4530
ScaleWidth = 4440
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
Caption = "Cancelar"
Height = 375
Left = 2520
TabIndex = 8
Top = 3960
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Aceptar"
Height = 375
Left = 600
TabIndex = 7
Top = 3960
Width = 1335
End
Begin VB.Frame Frame1
Caption = "Datos generales"
Height = 3615
Left = 120
TabIndex = 0
Top = 120
Width = 4215
Begin VB.TextBox Text3
Height = 1695
Left = 240
MultiLine = -1 'True
TabIndex = 6
Top = 1680
Width = 3735
End
Begin VB.TextBox Text2
Height = 285
Left = 840
TabIndex = 4
Top = 780
Width = 1095
End
Begin VB.TextBox Text1
Height = 285
Left = 840
TabIndex = 2
Top = 300
Width = 2775
End
Begin VB.Label Label3
Caption = "Descripción :"
Height = 255
Left = 120
TabIndex = 5
Top = 1320
Width = 1455
End
Begin VB.Label Label2
Caption = "Fecha :"
Height = 255
Left = 120
TabIndex = 3
Top = 840
Width = 735
End
Begin VB.Label Label1
Caption = "Autor :"
Height = 255
Left = 120
TabIndex = 1
Top = 360
Width = 615
End
End
End
Attribute VB_Name = "FormPropiedades"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
If (Len(Text1.Text) <> 0 Or Len(Text2.Text) <> 0 Or Len(Text3.Text) <> 0) Then
Principal.autor = Text1.Text
Principal.fecha = Text2.Text
Principal.descripcion = Text3.Text
End If
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim longitud As Integer
If (Len(Principal.autor) <> 0) Then
longitud = Len(Principal.autor)
If (Text1.MaxLength < longitud) Then Text1.MaxLength = longitud + 2
Text1.Text = Principal.autor
End If
If (Len(Principal.autor) <> 0) Then
longitud = Len(Principal.fecha)
If (Text2.MaxLength < longitud) Then Text2.MaxLength = longitud + 2
Text2.Text = Principal.fecha
End If
If (Len(Principal.descripcion) <> 0) Then
longitud = Len(Principal.descripcion)
If (Text3.MaxLength < longitud) Then Text3.MaxLength = longitud + 2
Text3.Text = Principal.descripcion
End If
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
