Fecha y hora actual: Domingo 26 May 2019 16:57
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

numero decimal en textbox y autocompletar textbox

Responder al Tema

Índice del Foro > Visual Basic .NET > numero decimal en textbox y autocompletar textbox

Autor Mensaje
dpr87



Registrado: 10 Feb 2016
Mensajes: 1

Mensaje Publicado: Miércoles 10 Feb 2016 13:53

Título del mensaje: numero decimal en textbox y autocompletar textbox

Responder citando

Buenos días, soy nuevo en este foro y tengo 2 problemas con un formulario que creé.

1- cuando introduzco la longitud en mi textbox 3 en km, si utilizo un numero entero me funciona perfectamente pero si utilizo algún decimal no me hace la multiplicación correctamente.

2- Quisiera saber si se puede hacer que los combobox se pueden autocompletar de forma automatica si solo tiene una posibilidad en la lista desplegable?

Este es mi código:
Private Sub ComboBox1_Click(): CargarListBox2: End Sub
Private Sub ComboBox2_Click(): CargarListBox3: End Sub
Private Sub ComboBox3_Click(): CargarListBox4: End Sub
Private Sub ComboBox4_Click(): CargarListBox5: End Sub
Private Sub ComboBox5_Click(): CargarListBox6: End Sub


Private Sub ComboBox6_Click()
With ComboBox6
TextBox1 = .List(.ListIndex, 1)
TextBox2 = .List(.ListIndex, 2)
End With
End Sub

Private Sub CommandButton1_Click()
If IsNumeric(TextBox1) Then
Range("A2") = ComboBox1.Text
Range("B2") = ComboBox2.Text
Range("C2") = ComboBox3.Text
Range("D2") = ComboBox4.Text
Range("E2") = ComboBox5.Text
Range("F2") = ComboBox6.Text
Range("G2") = CDbl(TextBox1)
Range("H2") = CDbl(TextBox2)
Range("E5") = (TextBox3)
Range("F7") = (TextBox4)
Range("G7") = (TextBox5)
Unload Me
End If
End Sub





Private Sub CommandButton2_Click()

Me.TextBox4.Text = Val(Format(Me.TextBox1.Text, "##")) * Val(Format(Me.TextBox3.Text, "##"))
TextBox4.Text = Format(TextBox4, "Currency")

Me.TextBox5.Text = Val(Format(Me.TextBox2.Text, "##")) * Val(Format(Me.TextBox3.Text, "##"))
TextBox5.Text = Format(TextBox5, "Currency")
End Sub


Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub





Private Sub TextBox5_Change()

End Sub

Private Sub UserForm_Initialize()
With ComboBox5
.ColumnCount = 3
.ColumnWidths = ";0;0"
End With

CargarListBox1
End Sub

Private Sub CargarListBox1()
With ComboBox1
TextBox1 = "": TextBox2 = ""
.Clear: ComboBox2.Clear: ComboBox3.Clear: ComboBox4.Clear: ComboBox5.Clear: ComboBox6.Clear
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
.Text = Hoja1.Range("A" & x)
If .ListIndex = -1 Then .AddItem Hoja1.Range("A" & x)
Next
.Text = ""
End With
End Sub

Private Sub CargarListBox2()
With ComboBox2
TextBox1 = "": TextBox2 = ""
.Clear: ComboBox3.Clear: ComboBox4.Clear: ComboBox5.Clear: ComboBox6.Clear
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
If Hoja1.Range("A" & x) = ComboBox1.Text Then
.Text = Hoja1.Range("B" & x)
If .ListIndex = -1 Then .AddItem Hoja1.Range("B" & x)
End If
Next
.Text = ""
End With
End Sub

Private Sub CargarListBox3()
With ComboBox3
TextBox1 = "": TextBox2 = ""
.Clear: ComboBox4.Clear: ComboBox5.Clear: ComboBox6.Clear
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
If Hoja1.Range("A" & x) = ComboBox1.Text And _
Hoja1.Range("B" & x) = ComboBox2.Text Then
.Text = Hoja1.Range("C" & x)
If .ListIndex = -1 Then .AddItem Hoja1.Range("C" & x)
End If
Next
.Text = ""
End With
End Sub

Private Sub CargarListBox4()
With ComboBox4
TextBox1 = "": TextBox2 = ""
.Clear: ComboBox5.Clear: ComboBox6.Clear
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
If Hoja1.Range("A" & x) = ComboBox1.Text And _
Hoja1.Range("B" & x) = ComboBox2.Text And _
Hoja1.Range("C" & x) = ComboBox3.Text Then
.Text = Hoja1.Range("D" & x)
If .ListIndex = -1 Then .AddItem Hoja1.Range("D" & x)
End If
Next
.Text = ""
End With
End Sub

Private Sub CargarListBox5()
With ComboBox5
TextBox1 = "": TextBox2 = ""
.Clear: ComboBox5.Clear: ComboBox6.Clear
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
If Hoja1.Range("A" & x) = ComboBox1.Text And _
Hoja1.Range("B" & x) = ComboBox2.Text And _
Hoja1.Range("C" & x) = ComboBox3.Text And _
Hoja1.Range("D" & x) = ComboBox4.Text Then
.Text = Hoja1.Range("E" & x)
If .ListIndex = -1 Then .AddItem Hoja1.Range("E" & x)
End If
Next
.Text = ""
End With
End Sub

Private Sub CargarListBox6()
With ComboBox6
TextBox1 = "": TextBox2 = ""
.Clear
For x = 2 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row
If Hoja1.Range("A" & x) = ComboBox1.Text And _
Hoja1.Range("B" & x) = ComboBox2.Text And _
Hoja1.Range("C" & x) = ComboBox3.Text And _
Hoja1.Range("D" & x) = ComboBox4.Text And _
Hoja1.Range("E" & x) = ComboBox5.Text Then
.AddItem Hoja1.Range("F" & x)
.List(.ListCount - 1, 1) = FormatNumber(Hoja1.Range("G" & x))
.List(.ListCount - 1, 2) = FormatNumber(Hoja1.Range("H" & x))
End If
Next
.Text = ""
End With




End Sub

Volver arriba
Ver perfil del usuario Enviar mensaje privado
WhiteSkull
CoAdmin


Registrado: 20 Mar 2009
Mensajes: 3136
Ubicación: y*width+x

Mensaje Publicado: Miércoles 10 Feb 2016 15:39

Título del mensaje: numero decimal en textbox y autocompletar textbox

Responder citando

  1. El problema lo tienes al formatear la cadena, no lo tienes puesto para procesar números decimales con coma sólo enteros.

    https://msdn.microsoft.com/es-es/library/59bz1f0h

  2. Los campos con autocompletar se sirven de bases de datos y funcionan al detectar pulsaciones de teclas en el mismo campo de entrada, por cada entrada de texto se realiza una búsqueda de algo parecido.

  3. Otro hilo que publiques sin contener el código con las debidas etiquetas y será eliminado sin avisar.

Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Hacer que un text field o acepte numero negativos

Jensel S.G Java 2 Viernes 13 Oct 2017 04:11 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Scrip para capturar número de teléfon móvil

David Martinez Vilar JavaScript 0 Domingo 08 May 2016 20:03 Ver último mensaje
El foro no contiene ningún mensaje nuevo

cambiar el texto de un label desde un textbox v...

Michael Cerdas Visual Basic y VBA 1 Domingo 14 Jun 2015 17:59 Ver último mensaje
El foro no contiene ningún mensaje nuevo

pasar de caracter a numero float desde fichero ...

killgates C, C#, Visual C++ 2 Jueves 02 Abr 2015 19:41 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Convertir de decimal a binario (lenguaje C)

DanielC C, C#, Visual C++ 10 Martes 01 Jul 2014 15:39 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,