VERSION 5.00
Begin VB.Form Presentacion
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Caltens"
ClientHeight = 4080
ClientLeft = 2040
ClientTop = 915
ClientWidth = 7755
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4080
ScaleWidth = 7755
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 615
Left = 2280
MultiLine = -1 'True
TabIndex = 7
Text = "Presentacion.frx":0000
Top = 720
Width = 4815
End
Begin VB.OptionButton Ingles
BackColor = &H00C0C0C0&
Caption = "English"
ForeColor = &H00000000&
Height = 375
Left = 5640
TabIndex = 3
Top = 2400
Width = 1095
End
Begin VB.OptionButton espanol
BackColor = &H00C0C0C0&
Caption = "Español"
ForeColor = &H00000000&
Height = 375
Left = 5640
TabIndex = 2
Top = 1800
Value = -1 'True
Width = 1095
End
Begin VB.CommandButton Siguiente
Caption = "Siguiente"
Height = 495
Left = 3960
TabIndex = 1
Top = 3360
Width = 1455
End
Begin VB.CommandButton Salir
Caption = "Salir a Windows"
Height = 495
Left = 5880
TabIndex = 0
ToolTipText = "Pulse este botón para volver a Windows."
Top = 3360
Width = 1455
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Optimizado para resolución de 1024x768"
ForeColor = &H80000008&
Height = 435
Left = 120
TabIndex = 6
Top = 3480
Width = 3360
WordWrap = -1 'True
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "MitLoop 2.0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3195
TabIndex = 5
Top = 240
Width = 1470
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "Elija idioma / Choose language"
ForeColor = &H00000000&
Height = 195
Left = 2640
TabIndex = 4
Top = 2160
Width = 2190
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1815
Left = 960
Picture = "Presentacion.frx":0061
Stretch = -1 'True
Top = 1440
Width = 1200
End
End
Attribute VB_Name = "Presentacion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub espanol_Click()
Siguiente.Caption = "Comenzar"
Salir.Caption = "Salir a Windows"
Label3.Caption = "Optimizado para resolución de 1024x768"
End Sub
Private Sub Ingles_Click()
Siguiente.Caption = "Start"
Salir.Caption = "Exit to Windows"
Label3.Caption = "Optimized for 1024x768 resolution."
End Sub
Private Sub Salir_Click()
End
End Sub
Private Sub Siguiente_Click()
If espanol.Value = True Then
Principal.idioma = "Español"
Else
Principal.idioma = "Inglés"
End If
Unload Me
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
