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.
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 ratings0% 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.
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