|
|
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 - ldvgsmca
Páginas: [1]
1
« en: Sábado 2 de Junio de 2007, 15:51 »
saludos a todos, estoy realizando un sistema y quisiera obtener o saber de un metodo de seguridad de sistemas para controlar las instalaciones del mismo, saber que si el cliente tiene el sistema una sola vez, y evidente para controlar las copias ilegales, es decir lo que quiero es:
yo tengo el sistema (los instaladores) en un servidor, cuando me compren el sistema yo le entrego al cliente un guid de seguridad y el descarga desde internet los instaladores el problema es como controlo las veces de copia.
gracias
2
« en: Martes 20 de Febrero de 2007, 21:23 »
mi amigo carlos agustin me respondio correctamente. gracias de antemano
la solucion fue:
mlngX = 1500
mlngY = 1500
Picture = VB.LoadPicture(cmmdgFile.FileName)
Left = 1035
Top = 1020
mlngX1 = .Width
mlngY1 = .Height
Move .Left + ((mlngX - mlngX1) / 2), .Top + ((mlngY - mlngY1) / 2)
3
« en: Martes 20 de Febrero de 2007, 20:44 »
Hola, necesito centrar una imagen cualquiera, en un objeto Image, lo que quiero es centrar la imagen en este objeto.
Gracias
4
« en: Viernes 16 de Febrero de 2007, 19:20 »
claro que existe, y tenés razón tiene que ver con API:
Public Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_SHOWWINDOW = &H40 Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
ahora solo tenés que pasarle el Hwnd de la ventana que querés tener por encima de las demás..
p.ej.. en el Load de un formulario hacés esto:
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, SWP_FLAGS
y con esto tenés tu formulario por encima de todos los demás....  gracias, realmente eso es lo que necesito y funciona muy bien ....... mientras mas veo mas aprendo
5
« en: Jueves 15 de Febrero de 2007, 17:22 »
Necesito saber si existe algun programa que este colocado por encima de mi formulario, si es asi necesito colocar mi formulario siempre por encima
se que esto tiene que ver con una funcion de la API
6
« en: Viernes 9 de Febrero de 2007, 06:45 »
Hola a Todos:
Necesito saber si existe algun comando en Visual para poder refrescar la memoria que apunta a una bd en access 2002 (como si fuera un fflush en C), debido al siguiente problema:
tengo una base de datos en access, despues de manejarla de 2 a 3 horas con un sistema que hice, comienza a enrredar filas, sobre escribe y confunde siempre las dos ultimas modificaciones (antes se comporta sin ningun problema), es demasiado raro, bueno por eso quiero saber si existe algun comando que refresque la memoria y pueda reorganizarla, ¿alguien me podria ayudar?, eso saludos.
 realmente no se si esto te pudiera servir. pero yo he tenido el mismo problema en un software que desarrolle y lo resolvi de la siguiente manera cuando consultava la bd que llenava mi recorset ejecutaba "refresh" eso lo hacia cuando consultava, mosificava, o insertava, tambien siempre cerraba el recorset close set rst = nothing pruebalo y me avisas
7
« en: Viernes 9 de Febrero de 2007, 06:37 »
Ya estoy algo oxidado en vb. He programado antes, pero como lo he dejado ud comprenderan.
Estoy haciendo esta linea de codigo donde intendto restringir el cuadro de texto a solo numeros.
Como veran uso el evento keypress
y la funcion INSTR
Este es el codigo
Private Sub Text1_KeyPress(KeyAscii As Integer)
numeros = Chr(KeyAscii)
Print n
If InStr(n, "1234567890") <> 0 Then
KeyAscii = 0
End If
End Sub
En que me estoy equivocando amigos programadores
De ante mano les agradesco su aporte. atte Abel. bueno amigo te envio un excelente ejemplo que he desarrollado para controlar los datos suministrador por en usuario. esta funcion controla hasta la coma y el punto en los formato de los numero
8
« en: Jueves 8 de Febrero de 2007, 20:17 »
Me alegra q halla servido 
Aunque avabo de darme cuenta que para el ocx
Esto:
x = x - Me.Left - 60 y = y - Me.Top - 345
Lo cambias por esto:
x = x - Me.Left y = y - Me.Top
Ya que las restas esas son para los bordes del formulario, los cuales el ocx no tiene.
Saludos gracias tu solucion fue efectiva, pero ahora nacesito preguntarte asi como la funcion de la API GetCursorPos, para obtener la posicion del puntero habra una para posicionar. te lo pregunto porque necesito hacer lo siguiente. cuando detecte que estoy fuera del picture1 necesito colocar el puntero del mouse dentro del objeto gracias
9
« en: Martes 6 de Febrero de 2007, 03:11 »
Buenas.
Crea un proyecto con 1 form y 1 modulo
en el form agrega un picturebox y un timer. dejale los nombres genericos, al timer ponle el intervalo que quieras.
Luego agrega el siguiente codigo en el modulo:
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Type POINTAPI x As Long y As Long End Type Public Function isOver(ByRef x As Integer, ByRef y As Integer) As Boolean Dim a As Long Dim coo As POINTAPI a = GetCursorPos(coo) x = coo.x * Screen.TwipsPerPixelX y = coo.y * Screen.TwipsPerPixelY isOver = a End Function
y en el formulario el siguiente:
Private Sub Timer1_Timer() Dim x As Integer, y As Integer Dim RetVal As Boolean RetVal = isOver(x, y) If RetVal = False Then MsgBox "Error", , "+ Error +" Exit Sub End If x = x - Me.Left - 60 y = y - Me.Top - 345 x = x - Picture1.Left y = y - Picture1.Top If (x < 0) Or (x > Picture1.Width) Or (y < 0) Or (y > Picture1.Height) Then Picture1.BackColor = RGB(255, 0, 0) Else Picture1.BackColor = RGB(0, 0, 255) End If End Sub
Ejecuta la aplicacion y mueve el mouse sobre el picturebox. Wala 
No era tan complicado, ahora solo tienes que adaptarlo a tu aplicacion, en el evento mousemove del control activas el timer, luego una vez que salio lo desactivas, para ahorrar un poco de memoria.
Saludos
Este es
http://foros.solocodigo.com/index.php?showtopic=26834 realmente esto es lo que necesito, muy sabio tu codigo.....
gracias por tu ayuda
saludos saludos y gracias a la vez, realmente esta es la solucion y te felicito por el analisis de tu codigo y dejame decirte que eso es lo que necesita tambien para lo de mi OCX. Gracias
10
« en: Martes 6 de Febrero de 2007, 03:03 »
Buenas.
Crea un proyecto con 1 form y 1 modulo
en el form agrega un picturebox y un timer. dejale los nombres genericos, al timer ponle el intervalo que quieras.
Luego agrega el siguiente codigo en el modulo:
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Type POINTAPI x As Long y As Long End Type Public Function isOver(ByRef x As Integer, ByRef y As Integer) As Boolean Dim a As Long Dim coo As POINTAPI a = GetCursorPos(coo) x = coo.x * Screen.TwipsPerPixelX y = coo.y * Screen.TwipsPerPixelY isOver = a End Function
y en el formulario el siguiente:
Private Sub Timer1_Timer() Dim x As Integer, y As Integer Dim RetVal As Boolean RetVal = isOver(x, y) If RetVal = False Then MsgBox "Error", , "+ Error +" Exit Sub End If x = x - Me.Left - 60 y = y - Me.Top - 345 x = x - Picture1.Left y = y - Picture1.Top If (x < 0) Or (x > Picture1.Width) Or (y < 0) Or (y > Picture1.Height) Then Picture1.BackColor = RGB(255, 0, 0) Else Picture1.BackColor = RGB(0, 0, 255) End If End Sub
Ejecuta la aplicacion y mueve el mouse sobre el picturebox. Wala
No era tan complicado, ahora solo tienes que adaptarlo a tu aplicacion, en el evento mousemove del control activas el timer, luego una vez que salio lo desactivas, para ahorrar un poco de memoria.
Saludos
Este es
http://foros.solocodigo.com/index.php?showtopic=26834 realmente esto es lo que necesito, muy sabio tu codigo..... gracias por tu ayuda saludos
11
« en: Lunes 5 de Febrero de 2007, 23:19 »
No se si esto lo que quieres pero intenta haber que sale...
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "dentrol del frame" End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "dentro del picture" End Sub
 realmento no es lo que quiero. lo que quiero es saber cuando el mouse sale del objeto frame por decir cualquier cosa. mi problema es que tengo un picture_a dentro de otro picture_b. el obj picture_a tiene a su vez varios obj, como textbox, etc, lo que quiero es controlar que el usuario no le de click a otro obj que este fuera del picture_a para que termine de llenar los campos del picture_a si logro sabe cuando el mouse esta fuera del picture_a puedo mandar una alerte de mensaje al usuario gracias
12
« en: Lunes 5 de Febrero de 2007, 21:46 »
Saludos a todos.
Como hago para saber cuando el mouse sale de un objeto que esta sobre otro objeto, es decir
Tengo un frm dentro de el tengo un picture y dentro del picture tengo un frame
todos estos objeto estan centrados y cada uno mas pequeno que otro.
La pregunta como hago para saber cuando el puntero del mouse esta fuera del frame o cuando esta fuera del picture
Gracias
13
« en: Viernes 2 de Febrero de 2007, 16:32 »
Tengo un problema con el puntero del mouse, cuando pasa de un objeto al otro, simpre me deja encendido en anterior y no se porque......
el otro problema es que cuando le doy click sobre el objeto me marca correptamente pero en ocasiones muy frecuente esa parca se piede cuando el puntero sale del objeto no se porque.....
Gracias a quien me pudiera ayudar
hay les envio la fuente con un ejemplo
14
« en: Jueves 1 de Febrero de 2007, 14:57 »
Buenas.
El problema es que usas el evento MouseMove, el cual se produce unicamente cuando el mouse esta encima del control. Tienes que tener en cuenta que al mover el mouse, las coordenadas del mismo no siempre varian de 1 en 1, por lo que si lo mueves muy rapido puede pegar saltos y "no pasar por encima de tu control" por eso tienes que estar verificando constantemente la posicion del mouse.
Puedes usar un timer, q se active al posiconarse el mouse sobre tu control y desactivarse una vez q halla corroborado q el mouse no se encuentra mas encima.
Saludos Saludos y gracias a la vez...... realmente no interpreto bien tu explicación, si podrias ser un poco mas explicita te lo agradeceria o simplemente si me pudieras decir que debo hacer para corregir mi problema, porque resulta que en mi sistema que estoy desarrollado tengo ese componecte en todos lo formularios y ya sabes que significa eso.... te lo agradezco de antemano
15
« en: Martes 30 de Enero de 2007, 16:19 »
Gracias Luciano2, te envio un ejemplo y el codigo fuente del componente.
16
« en: Lunes 29 de Enero de 2007, 22:23 »
tengo un problema, es que he desarrollado el componete que simula un boton windows vista, el problema es que cuando paso el mouse sobre el objeto me dibuja el marco correctamente pero cuando el puntero del mouse sale del objeto a veces lo limpia y a veces no y cuando el puntero vuelve al objeto no me dibuja correctamente el marco del boton..... al que me puede ayudar por favor me dice y le paso el codigo completo con un ejemplo para que lo evalue y me pueda decir donde es que tengo la falla
Gracias
p.d:
no se como colocar la fuente del programa, si me pueden decir como lo hago se los agradeceria para asi ver cual es mi falla.
17
« en: Lunes 29 de Enero de 2007, 20:23 »
tengo un problema, es que he desarrollado el componete que simula un boton windows vista, el problema es que cuando paso el mouse sobre el objeto me dibuja el marco correctamente pero cuando el puntero del mouse sale del objeto a veces lo limpia y a veces no y cuando el puntero vuelve al objeto no me dibuja correctamente el marco del boton..... al que me puede ayudar por favor me dice y le paso el codigo completo con un ejemplo para que lo evalue y me pueda decir donde es que tengo la falla
Gracias
Páginas: [1]
|
|
|
Mostrar Mensajes
