Mensajes

[OCX]

NOTA: es un control OCX, NO una libreria DLL

salud0s

G0nz4

hola nitrox
para bloquear el mouse podes hacer varias cosas
lo que mas te recomiendo es que pongas un timer con el siguiente codigo ya que si los blockeas con una API en Windows XP los 2 se vuelven a activar...
te dejo el codigo para el mouse (el del teclado no me lo acuerdo xD)

En un Modulo:

Código [Seleccionar] Expandir

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

En un Form:

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
    SetCursorPos 0,0
End Sub


esper0 q te sea util
si necesitas alg0 mas postea

un abraz0

G0nz4

tambien podes utilizar los controles de ese formulario:

Código [Seleccionar] Expandir


Form1.Text1.Text = "Hola"


cya

ahaha
ahora entiendo

iwal me sirvio la listita ^^

un abraz0

G0nz4

Util ^^

thx Anhur

[HUMILDAD ANTE TODO]

che GreenDevil, antes de postear busca info y experimenta a ver que logras hacer... si ahi se te complica mucho, entonces postea... pero no postees algo y a los 20 mins ya sabes como es...

cya

G0nz4







HUMILDAD ANTE TODO

[Shell]

modifique el registro utilizando la sentencia Shell, pero nada mas fuera de lo comun...
la verdad no se que pueda ser =S
gracias x la ayuda iwal

un salud0

G0nz4

mira podes hacer lo siguiente:
1ro que todo vas a tener que hacer los 93 txtbox independientes (sin los Index) y abrir el arcihvo en un TxtBox que lo podes hacer invisible

Código [Seleccionar] Expandir


Private Sub Form_Load()
Text2.Text = Mid(Text1.Text, 1, 2) 'el Text1 es el TxtBox invisible que contiene el archivo
Text3.Text = Mid(Text1.Text, 15, 2)' al 1 se le agregan 14, q son los espacios entre numero y numero
Text4.Text = Mid(Text1.Text, 29, 2)'14 + 14...
'etc...
End Sub

espero que te sirva, y fijate si podes hacer un boocle para no escribir tanto xD
un saludo

G0nz4

gracias numerin

un abraz0

G0nz4

gracias x la correccion

un abraz0

G0nz4