VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "CORELAP 01"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 735
ClientWidth = 6780
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form1.frx":0442
ScaleHeight = 5850
ScaleWidth = 6780
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
Caption = "&Abrir"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 1
ToolTipText = "Abrir Aplicación Existente"
Top = 4080
Width = 1695
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.txt"
End
Begin VB.CommandButton Command1
Caption = "&Nuevo"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1560
MaskColor = &H00808080&
TabIndex = 0
ToolTipText = "Comenzar Aplicación"
Top = 4080
Width = 1695
End
Begin VB.Menu archivo
Caption = "&Archivo"
Index = 1
Begin VB.Menu Nuevo
Caption = "&Nuevo"
Shortcut = ^N
End
Begin VB.Menu Abrir
Caption = "&Abrir"
Shortcut = ^A
End
End
Begin VB.Menu ayuda
Caption = "Ay&uda"
Index = 2
Begin VB.Menu acerca
Caption = "Acerca de CORELAP 01"
End
Begin VB.Menu ayudita
Caption = "Ayud&a"
Shortcut = {F1}
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public SE As Boolean
Private Sub Abrir_Click()
Command2_Click
End Sub
Private Sub acerca_Click()
Form6.Show
End Sub
Private Sub ayudita_Click()
Form8.WebBrowser1.Navigate "D:\PROGRAMA\MANUAL\Manual Corelap 01.htm"
'Form8.WebBrowser1.Navigate "...\Manual Corelap 01.htm"
Form8.Show
End Sub
Private Sub Command1_Click()
Form2.Show
Unload Form1
SE = False
End Sub
Private Sub Command2_Click()
SE = True
Module1.almacenambiento
End Sub
Private Sub Nuevo_Click()
Command1_Click
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
