VERSION 5.00
Begin VB.Form Form7
BackColor = &H00C0CEC0&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Form7"
ClientHeight = 3015
ClientLeft = 45
ClientTop = 345
ClientWidth = 5745
LinkTopic = "Form7"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3015
ScaleWidth = 5745
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command2
Caption = "No"
Height = 375
Left = 3120
TabIndex = 3
Top = 1800
Width = 735
End
Begin VB.CommandButton Command1
Caption = "Sí"
Height = 375
Left = 1680
TabIndex = 2
Top = 1800
Width = 735
End
Begin VB.Label Label2
BackColor = &H00C0E0FF&
Caption = " ¿Esta seguro de cancelar el alta del producto?"
Height = 375
Left = 960
TabIndex = 1
Top = 960
Width = 3615
End
Begin VB.Label Label1
BackColor = &H00C0E0FF&
Caption = "No se guardará el producto al no tener niguna pieza asociada. "
Height = 375
Left = 600
TabIndex = 0
Top = 480
Width = 4455
End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form7.Visible = False
End Sub
Private Sub Command2_Click()
Form7.Visible = False
Form12.Visible = True
End Sub
Private Sub Form_Load()
' centrar el formulario en la parte superior
Move (Screen.Width - Width) \ 2, 1500
End Sub
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
