Mensajes

Para posicionar el mouse tenes que:

Código [Seleccionar] Expandir


Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
SetCursorPos 500, 233
End Sub

Te recomiendo que fijes la posicion del formulario, porque como esta puede variar al menos un poco, se puede ir es misma resposicion a otro lado.

El programa no lo encontre, pero busque sobre userport y me lo baje lo puse en el system32/drivers ejecute el programa le puse la direccion del puerto, (cerre el puerto para poder actualizarlo), pero nada paso. Despues segui una guia del porttalk que algo similar al userport y tampoco dio resultado.
Gracias igual.

lo unico que hice fue copiarlas al system32, pero, al igual que demon_cry,  no se a que te referis con registrarla.

Gracias por responder, ese tema lo lei completo, tengo el io.dll que es para xp y el inpout32.dll para xp, pero ninguno hace algo. la direccion del puerto la verifique y es la que estoy usando. No se que puede estar pasando.

Tengo un problema con este programa que tiene incopatibilidades con xp, con win 98 funciona perfecto
pero con xp, no hace nada las señales de portout no hacen nada.
Que estoy haciendo mal?.
Muchas gracias por su ayuda.

Código [Seleccionar] Expandir


Dim activacion As Integer

Private Sub Command1_Click()
activacion = 1
PortOut &H378, 1
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
activacion = 2
PortOut &H378, 4
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
PortOut &H378, 0
End
End Sub

Private Sub Timer1_Timer()
If (activacion = 1) Then
PortOut &H378, 4
activacion = 2
Else
PortOut &H378, 1
activacion = 1
End If
End Sub


muchas gracias Ironhorse y Slasher-K.
Ya esta solucionado, funciona a la perfección.
Muchas gracias.

muchas gracias Llorx. ahora los precios estan solucionados.
Faltaría el problema con los numeros que tienen demasiados decimales para achicarlos a 2.
Muchas gracias.

Tengo unos problema con los decimales
1)
Al imprimir una factura, en el textbox que uso para el precio se muestra asi:
ej:
12.9
el problema es que necesito que ese 12.9 tenga un segundo decimal osea asi 12.90.
2)
Para redondear a 2 decimales las cuentas que daban con muchos decimales usaba round  y le especificaba 2, pero no me acepta la instrucción, y la misma en vb 6 funciona perfectamente. Estoy usando el vb5.

Espero que me puedan ayudar.
Muchas gracias.

ah, muchas gracias por tu ayuda.

Tengo un problema, no puedo asignar el recordsource en otro evento que no sea el form_load.
Estoy usando Access. Lo que trato de hacer es que por cada número de lista asignada a cada cliente,
cambie a la tabla correspondiente. Muchas gracias y si tienen alguna pregunta sobre el código...solo haganla.
muchas gracias.

Código [Seleccionar] Expandir


Private Sub txtcant1_GotFocus()
If (txtlista = 1) Then
Data1.RecordSource = "ARTICULOS"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
ElseIf (txtlista = 2) Then
Data1.RecordSource = "Art2"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
ElseIf (txtlista = 3) Then
Data1.RecordSource = "Art3"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
ElseIf (txtlista = 4) Then
Data1.RecordSource = "Art4"
Data1.Recordset.FindFirst "cod Like '" & txtart1.Text & "'"
End If
End SUb