0% found this document useful (0 votes)
6 views

Progradesigner

The document is a Visual Basic code for a Windows Forms application named 'Form1' designed for billing purposes. It includes various input fields for customer information, product details, and billing calculations, along with buttons for calculating totals, canceling, and exiting the application. The form is structured with labels, text boxes, radio buttons, combo boxes, and groups to organize the user interface components.

Uploaded by

Eytan Pineda
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
6 views

Progradesigner

The document is a Visual Basic code for a Windows Forms application named 'Form1' designed for billing purposes. It includes various input fields for customer information, product details, and billing calculations, along with buttons for calculating totals, canceling, and exiting the application. The form is structured with labels, text boxes, radio buttons, combo boxes, and groups to organize the user interface components.

Uploaded by

Eytan Pineda
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 8

<Global.Microsoft.VisualBasic.CompilerServices.

DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form

'Form reemplaza a Dispose para limpiar la lista de componentes.


<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

'Requerido por el Diseñador de Windows Forms


Private components As System.ComponentModel.IContainer

'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento


'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.rdbcredito = New System.Windows.Forms.RadioButton()
Me.rdbcontado = New System.Windows.Forms.RadioButton()
Me.txtcliente = New System.Windows.Forms.TextBox()
Me.Txtrtn = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Lbldescuentoaplicado = New System.Windows.Forms.Label()
Me.CmboxDescuentoAplicado = New System.Windows.Forms.ComboBox()
Me.txtprecio = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtcantidad = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtproducto = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.txtdescuento = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txttotal = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtiva = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtsubtotal = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.txttotalapagar = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.btnCalcular = New System.Windows.Forms.Button()
Me.BtnCancelar = New System.Windows.Forms.Button()
Me.BtnSalir = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Tai Le", 21.75!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(265, 29)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(219, 37)
Me.Label1.TabIndex = 0
Me.Label1.Text = "FACTURACION"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(41, 96)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(42, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Cliente:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(41, 131)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(30, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "RTN"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(234, 131)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Fecha:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.rdbcredito)
Me.GroupBox1.Controls.Add(Me.rdbcontado)
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.GroupBox1.Location = New System.Drawing.Point(499, 89)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(156, 55)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Tipo de Factura:"
'
'rdbcredito
'
Me.rdbcredito.AutoSize = True
Me.rdbcredito.Location = New System.Drawing.Point(77, 32)
Me.rdbcredito.Name = "rdbcredito"
Me.rdbcredito.Size = New System.Drawing.Size(69, 20)
Me.rdbcredito.TabIndex = 1
Me.rdbcredito.TabStop = True
Me.rdbcredito.Text = "Credito"
Me.rdbcredito.UseVisualStyleBackColor = True
'
'rdbcontado
'
Me.rdbcontado.AutoSize = True
Me.rdbcontado.Checked = True
Me.rdbcontado.Location = New System.Drawing.Point(6, 32)
Me.rdbcontado.Name = "rdbcontado"
Me.rdbcontado.Size = New System.Drawing.Size(77, 20)
Me.rdbcontado.TabIndex = 0
Me.rdbcontado.TabStop = True
Me.rdbcontado.Text = "Contado"
Me.rdbcontado.UseVisualStyleBackColor = True
'
'txtcliente
'
Me.txtcliente.Location = New System.Drawing.Point(89, 89)
Me.txtcliente.Name = "txtcliente"
Me.txtcliente.Size = New System.Drawing.Size(342, 20)
Me.txtcliente.TabIndex = 5
'
'Txtrtn
'
Me.Txtrtn.Location = New System.Drawing.Point(89, 123)
Me.Txtrtn.Name = "Txtrtn"
Me.Txtrtn.Size = New System.Drawing.Size(139, 20)
Me.Txtrtn.TabIndex = 6
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Lbldescuentoaplicado)
Me.GroupBox2.Controls.Add(Me.CmboxDescuentoAplicado)
Me.GroupBox2.Controls.Add(Me.txtprecio)
Me.GroupBox2.Controls.Add(Me.Label7)
Me.GroupBox2.Controls.Add(Me.txtcantidad)
Me.GroupBox2.Controls.Add(Me.Label6)
Me.GroupBox2.Controls.Add(Me.txtproducto)
Me.GroupBox2.Controls.Add(Me.Label5)
Me.GroupBox2.Location = New System.Drawing.Point(44, 165)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(394, 132)
Me.GroupBox2.TabIndex = 7
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Especificaciones del Producto"
'
'Lbldescuentoaplicado
'
Me.Lbldescuentoaplicado.AutoSize = True
Me.Lbldescuentoaplicado.Location = New System.Drawing.Point(243, 50)
Me.Lbldescuentoaplicado.Name = "Lbldescuentoaplicado"
Me.Lbldescuentoaplicado.Size = New System.Drawing.Size(103, 13)
Me.Lbldescuentoaplicado.TabIndex = 14
Me.Lbldescuentoaplicado.Text = "Descuento Aplicado"
'
'CmboxDescuentoAplicado
'
Me.CmboxDescuentoAplicado.FormattingEnabled = True
Me.CmboxDescuentoAplicado.Items.AddRange(New Object() {"Nivel 1", "Nivel
2", "Nivel 3"})
Me.CmboxDescuentoAplicado.Location = New System.Drawing.Point(243, 75)
Me.CmboxDescuentoAplicado.Name = "CmboxDescuentoAplicado"
Me.CmboxDescuentoAplicado.Size = New System.Drawing.Size(138, 21)
Me.CmboxDescuentoAplicado.TabIndex = 13
'
'txtprecio
'
Me.txtprecio.Location = New System.Drawing.Point(71, 76)
Me.txtprecio.Name = "txtprecio"
Me.txtprecio.Size = New System.Drawing.Size(139, 20)
Me.txtprecio.TabIndex = 12
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(16, 83)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 11
Me.Label7.Text = "Precio"
'
'txtcantidad
'
Me.txtcantidad.Location = New System.Drawing.Point(71, 50)
Me.txtcantidad.Name = "txtcantidad"
Me.txtcantidad.Size = New System.Drawing.Size(139, 20)
Me.txtcantidad.TabIndex = 10
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(16, 57)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(49, 13)
Me.Label6.TabIndex = 9
Me.Label6.Text = "Cantidad"
'
'txtproducto
'
Me.txtproducto.Location = New System.Drawing.Point(71, 24)
Me.txtproducto.Name = "txtproducto"
Me.txtproducto.Size = New System.Drawing.Size(139, 20)
Me.txtproducto.TabIndex = 8
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(16, 31)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(50, 13)
Me.Label5.TabIndex = 7
Me.Label5.Text = "Producto"
'
'DateTimePicker1
'
Me.DateTimePicker1.Location = New System.Drawing.Point(272, 124)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(200, 20)
Me.DateTimePicker1.TabIndex = 8
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.txtiva)
Me.GroupBox3.Controls.Add(Me.txtdescuento)
Me.GroupBox3.Controls.Add(Me.Label12)
Me.GroupBox3.Controls.Add(Me.txttotal)
Me.GroupBox3.Controls.Add(Me.Label9)
Me.GroupBox3.Controls.Add(Me.Label10)
Me.GroupBox3.Controls.Add(Me.txtsubtotal)
Me.GroupBox3.Controls.Add(Me.Label11)
Me.GroupBox3.Location = New System.Drawing.Point(44, 303)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(261, 121)
Me.GroupBox3.TabIndex = 9
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "VALORES DE FACTURACION"
'
'txtdescuento
'
Me.txtdescuento.Location = New System.Drawing.Point(108, 95)
Me.txtdescuento.Name = "txtdescuento"
Me.txtdescuento.Size = New System.Drawing.Size(139, 20)
Me.txtdescuento.TabIndex = 20
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(43, 102)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(59, 13)
Me.Label12.TabIndex = 19
Me.Label12.Text = "Descuento"
'
'txttotal
'
Me.txttotal.Location = New System.Drawing.Point(108, 69)
Me.txttotal.Name = "txttotal"
Me.txttotal.Size = New System.Drawing.Size(139, 20)
Me.txttotal.TabIndex = 18
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(71, 76)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(31, 13)
Me.Label9.TabIndex = 17
Me.Label9.Text = "Total"
'
'txtiva
'
Me.txtiva.Location = New System.Drawing.Point(108, 43)
Me.txtiva.Name = "txtiva"
Me.txtiva.Size = New System.Drawing.Size(139, 20)
Me.txtiva.TabIndex = 16
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(78, 50)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(24, 13)
Me.Label10.TabIndex = 15
Me.Label10.Text = "IVA"
'
'txtsubtotal
'
Me.txtsubtotal.Location = New System.Drawing.Point(108, 17)
Me.txtsubtotal.Name = "txtsubtotal"
Me.txtsubtotal.Size = New System.Drawing.Size(139, 20)
Me.txtsubtotal.TabIndex = 14
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(49, 24)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 13
Me.Label11.Text = "Sub-Total"
'
'txttotalapagar
'
Me.txttotalapagar.Location = New System.Drawing.Point(152, 424)
Me.txttotalapagar.Name = "txttotalapagar"
Me.txttotalapagar.Size = New System.Drawing.Size(139, 20)
Me.txttotalapagar.TabIndex = 22
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(54, 428)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(92, 13)
Me.Label13.TabIndex = 21
Me.Label13.Text = "TOTAL A PAGAR"
'
'btnCalcular
'
Me.btnCalcular.Location = New System.Drawing.Point(389, 305)
Me.btnCalcular.Name = "btnCalcular"
Me.btnCalcular.Size = New System.Drawing.Size(91, 41)
Me.btnCalcular.TabIndex = 23
Me.btnCalcular.Text = "Calcular"
Me.btnCalcular.UseVisualStyleBackColor = True
'
'BtnCancelar
'
Me.BtnCancelar.Location = New System.Drawing.Point(389, 353)
Me.BtnCancelar.Name = "BtnCancelar"
Me.BtnCancelar.Size = New System.Drawing.Size(91, 41)
Me.BtnCancelar.TabIndex = 24
Me.BtnCancelar.Text = "Cancelar"
Me.BtnCancelar.UseVisualStyleBackColor = True
'
'BtnSalir
'
Me.BtnSalir.Location = New System.Drawing.Point(389, 400)
Me.BtnSalir.Name = "BtnSalir"
Me.BtnSalir.Size = New System.Drawing.Size(91, 41)
Me.BtnSalir.TabIndex = 25
Me.BtnSalir.Text = "Salir"
Me.BtnSalir.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(751, 463)
Me.Controls.Add(Me.BtnSalir)
Me.Controls.Add(Me.BtnCancelar)
Me.Controls.Add(Me.btnCalcular)
Me.Controls.Add(Me.txttotalapagar)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.Txtrtn)
Me.Controls.Add(Me.txtcliente)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "FACTURACION"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

Friend WithEvents Label1 As Label


Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents rdbcredito As RadioButton
Friend WithEvents rdbcontado As RadioButton
Friend WithEvents txtcliente As TextBox
Friend WithEvents Txtrtn As TextBox
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents txtproducto As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents txtprecio As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents txtcantidad As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents Lbldescuentoaplicado As Label
Friend WithEvents CmboxDescuentoAplicado As ComboBox
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents txtdescuento As TextBox
Friend WithEvents Label12 As Label
Friend WithEvents txttotal As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents txtiva As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents txtsubtotal As TextBox
Friend WithEvents Label11 As Label
Friend WithEvents txttotalapagar As TextBox
Friend WithEvents Label13 As Label
Friend WithEvents btnCalcular As Button
Friend WithEvents BtnCancelar As Button
Friend WithEvents BtnSalir As Button
End Class

You might also like