84 lines
2.6 KiB
VB.net
84 lines
2.6 KiB
VB.net
|
Public Class FrmCal
|
||
|
|
Inherits System.Windows.Forms.Form
|
||
|
|
|
||
|
|
#Region " Windows Form Designer generated code "
|
||
|
|
|
||
|
|
Public Sub New()
|
||
|
|
MyBase.New()
|
||
|
|
|
||
|
|
'This call is required by the Windows Form Designer.
|
||
|
|
InitializeComponent()
|
||
|
|
|
||
|
|
'Add any initialization after the InitializeComponent() call
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
'Form overrides dispose to clean up the component list.
|
||
|
|
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
|
||
|
|
|
||
|
|
'Required by the Windows Form Designer
|
||
|
|
Private components As System.ComponentModel.IContainer
|
||
|
|
|
||
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
||
|
|
'It can be modified using the Windows Form Designer.
|
||
|
|
'Do not modify it using the code editor.
|
||
|
|
Friend WithEvents DtmpComodin As System.Windows.Forms.DateTimePicker
|
||
|
|
Friend WithEvents BTAceptar As System.Windows.Forms.Button
|
||
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
|
|
Me.DtmpComodin = New System.Windows.Forms.DateTimePicker
|
||
|
|
Me.BTAceptar = New System.Windows.Forms.Button
|
||
|
|
Me.SuspendLayout()
|
||
|
|
'
|
||
|
|
'DtmpComodin
|
||
|
|
'
|
||
|
|
Me.DtmpComodin.Location = New System.Drawing.Point(16, 24)
|
||
|
|
Me.DtmpComodin.Name = "DtmpComodin"
|
||
|
|
Me.DtmpComodin.Size = New System.Drawing.Size(208, 20)
|
||
|
|
Me.DtmpComodin.TabIndex = 0
|
||
|
|
'
|
||
|
|
'BTAceptar
|
||
|
|
'
|
||
|
|
Me.BTAceptar.Location = New System.Drawing.Point(16, 64)
|
||
|
|
Me.BTAceptar.Name = "BTAceptar"
|
||
|
|
Me.BTAceptar.Size = New System.Drawing.Size(208, 32)
|
||
|
|
Me.BTAceptar.TabIndex = 1
|
||
|
|
Me.BTAceptar.Text = "Aceptar"
|
||
|
|
'
|
||
|
|
'FrmCal
|
||
|
|
'
|
||
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||
|
|
Me.ClientSize = New System.Drawing.Size(240, 109)
|
||
|
|
Me.Controls.Add(Me.BTAceptar)
|
||
|
|
Me.Controls.Add(Me.DtmpComodin)
|
||
|
|
Me.Name = "FrmCal"
|
||
|
|
Me.Text = "FrmCal"
|
||
|
|
Me.ResumeLayout(False)
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
#End Region
|
||
|
|
|
||
|
|
Private Sub BTAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTAceptar.Click
|
||
|
|
|
||
|
|
clsVaribles.FechaComodin = DtmpComodin.Value.Date
|
||
|
|
|
||
|
|
Me.Close()
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub FrmCal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub FrmCal_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
|
||
|
|
clsVaribles.FechaComodin = DtmpComodin.Value.Date
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
End Class
|