• Miércoles 24 de Julio de 2024, 07:21

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - banderousky

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Buscar por FindItem en un ListView
« en: Miércoles 24 de Noviembre de 2010, 19:58 »
Hola amigos programadores, tengo un problema, les menciono estoy
en ultimo semestre de ingenieria electromecanica y la programacion
no es mi fuerte pero estoy haciendo un proyecto en visul basic 6,
espero me puedan ayudar.

Necesito buscar un Item en un Listview por medio
de un Textbox y un CommandButton para que me lo seleccione...

Gracias y buen dia

2
estube estudiando un libro de visual basic y llegue
a la siguiente conclusion de como resolver este problema
espero y les sirva a alguien mas, yo lo necesitaba para no ingresar
mas de un punto decimal en las cajas de texto que necesito para hacer
operaciones matematicas, despues me encontre con el problema de cuando
ponia pegar en la caja de texto y podia poner un letas y me cometia errores
por lo que tube qe restringir la itulizacion de pegar o crtl + V
bueno saludos a todos


en el evento keypress de la caja de texto

'Bloqueamos la utilización de pegar o Crtl+V para evitar que se ingresen letras'
'cuando es obligatorio ingresar solamente numeros'
 
 Clipboard.Clear
 Clipboard.SetText ""

'Solo admitimos numeros en la caja de texto y el punto decimal'

If InStr("0123456789." & Chr(8) & Chr(13), Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If

Dim sCar As String * 1
 sCar = Chr(KeyAscii)

 If sCar = "." Then
 ' comprueba si se ha pulsado el punto'
 KeyAscii = IIf(sDecimal = ",", 44, 46)
 sCar = Chr(KeyAscii)

 ' si ya se ha puesto un punto decimal, no admite otro
 If (InStr(txtC2H2, sCar) > 0) Then
  KeyAscii = 0
  Exit Sub
 End If

 Exit Sub
 End If

If KeyAscii = 13 Then            'Verifica que se pulsa la tecla ENTER'
    SendKeys "{tab}"               'Se pulsa la tecla TAB'
End If



y en el evendo mousedown

'Bloqueamos la utilización de pegar o Crtl+V para evitar que se ingresen letras'
'cuando es obligatorio ingresar solamente numeros'
 
 Clipboard.Clear
 Clipboard.SetText ""

y en el vento load del formulario (yo lo tengo en el evento activate)

'comprueba el formato numérico del sistema
sDecimal = Format(0.1, "#.#")
sDecimal = IIf(InStr(sDecimal, ","), ",", ".")

3
hola muchas gracias, creo que no me especifique bien
miren lo que intento hacer es que en un textbox
me admita numeros y un solo punto, que no se pueda
repetir mas de una vez el punto por ejemplo 12.32
y no 12.32.1.4.2 porque al momento de hacer operaciones
matematicas me produce errores saludos

4
Hola soy ingeniero electromecanico y estoy realizando un proyecto y estoy utilizando
visual basic 6.0 pero mi gran duda es que... como puedo hacer para que en una caja de texto
me admita solo numeros (esto ya se como hacerlo) y que me admita solamente un punto, ya que
estoy haciendo operaciones matematicas con estas cajas de texto, no deben de llevar mas de un
punto decimal porque me sale un error. saludos y de antemano gracias

Páginas: [1]