65 lines
2.4 KiB
VB.net
65 lines
2.4 KiB
VB.net
|
Public Class RepGrafica
|
|||
|
|
Inherits System.Windows.Forms.Form
|
|||
|
|
Dim clGraf As New clsGrafica()
|
|||
|
|
#Region " C<>digo generado por el Dise<73>ador de Windows Forms "
|
|||
|
|
|
|||
|
|
Public Sub New()
|
|||
|
|
MyBase.New()
|
|||
|
|
|
|||
|
|
'El Dise<73>ador de Windows Forms requiere esta llamada.
|
|||
|
|
InitializeComponent()
|
|||
|
|
|
|||
|
|
'Agregar cualquier inicializaci<63>n despu<70>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<73>ador de Windows Forms
|
|||
|
|
Private components As System.ComponentModel.IContainer
|
|||
|
|
|
|||
|
|
'NOTA: el Dise<73>ador de Windows Forms requiere el siguiente procedimiento
|
|||
|
|
'Puede modificarse utilizando el Dise<73>ador de Windows Forms.
|
|||
|
|
'No lo modifique con el editor de c<>digo.
|
|||
|
|
Friend WithEvents AxDBGrid1 As AxMSDBGrid.AxDBGrid
|
|||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|||
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(RepGrafica))
|
|||
|
|
Me.AxDBGrid1 = New AxMSDBGrid.AxDBGrid()
|
|||
|
|
CType(Me.AxDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|||
|
|
Me.SuspendLayout()
|
|||
|
|
'
|
|||
|
|
'AxDBGrid1
|
|||
|
|
'
|
|||
|
|
Me.AxDBGrid1.Location = New System.Drawing.Point(64, 88)
|
|||
|
|
Me.AxDBGrid1.Name = "AxDBGrid1"
|
|||
|
|
Me.AxDBGrid1.OcxState = CType(resources.GetObject("AxDBGrid1.OcxState"), System.Windows.Forms.AxHost.State)
|
|||
|
|
Me.AxDBGrid1.Size = New System.Drawing.Size(224, 128)
|
|||
|
|
Me.AxDBGrid1.TabIndex = 0
|
|||
|
|
'
|
|||
|
|
'RepGrafica
|
|||
|
|
'
|
|||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|||
|
|
Me.ClientSize = New System.Drawing.Size(406, 292)
|
|||
|
|
Me.ControlBox = False
|
|||
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.AxDBGrid1})
|
|||
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
|
|||
|
|
Me.Name = "RepGrafica"
|
|||
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|||
|
|
Me.Text = "RepGrafica"
|
|||
|
|
CType(Me.AxDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
|||
|
|
Me.ResumeLayout(False)
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
#End Region
|
|||
|
|
|
|||
|
|
End Class
|