77 lines
2.7 KiB
VB.net
77 lines
2.7 KiB
VB.net
Public Class ExcProgreso
|
|
Inherits System.Windows.Forms.Form
|
|
Public pbExportCancel As Boolean
|
|
#Region " Código generado por el Diseñador de Windows Forms "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
'El Diseñador de Windows Forms requiere esta llamada.
|
|
InitializeComponent()
|
|
'Agregar cualquier inicialización después de la llamada a InitializeComponent()
|
|
End Sub
|
|
'Form reemplaza a Dispose para limpiar la lista de componentes.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
'Requerido por el Diseñador de Windows Forms
|
|
Private components As System.ComponentModel.IContainer
|
|
Friend WithEvents btn_Cancel As System.Windows.Forms.Button
|
|
|
|
'NOTA: el Diseñador de Windows Forms requiere el siguiente procedimiento
|
|
'Puede modificarse utilizando el Diseñador de Windows Forms.
|
|
'No lo modifique con el editor de código.
|
|
Friend WithEvents pbrAvance As System.Windows.Forms.ProgressBar
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ExcProgreso))
|
|
Me.pbrAvance = New System.Windows.Forms.ProgressBar()
|
|
Me.btn_Cancel = New System.Windows.Forms.Button()
|
|
Me.SuspendLayout()
|
|
'
|
|
'pbrAvance
|
|
'
|
|
Me.pbrAvance.Location = New System.Drawing.Point(2, 4)
|
|
Me.pbrAvance.Name = "pbrAvance"
|
|
Me.pbrAvance.Size = New System.Drawing.Size(487, 18)
|
|
Me.pbrAvance.TabIndex = 0
|
|
'
|
|
'btn_Cancel
|
|
'
|
|
Me.btn_Cancel.Location = New System.Drawing.Point(495, 3)
|
|
Me.btn_Cancel.Name = "btn_Cancel"
|
|
Me.btn_Cancel.Size = New System.Drawing.Size(65, 20)
|
|
Me.btn_Cancel.TabIndex = 1
|
|
Me.btn_Cancel.Text = "Cancelar"
|
|
Me.btn_Cancel.UseVisualStyleBackColor = True
|
|
'
|
|
'ExcProgreso
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.BackColor = System.Drawing.Color.WhiteSmoke
|
|
Me.ClientSize = New System.Drawing.Size(562, 27)
|
|
Me.ControlBox = False
|
|
Me.Controls.Add(Me.btn_Cancel)
|
|
Me.Controls.Add(Me.pbrAvance)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "ExcProgreso"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "ExcProgreso"
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click
|
|
pbExportCancel = True
|
|
End Sub
|
|
|
|
End Class
|