Mensajes

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Move X - Image1.Width / 2 + 20, Y - Image1.Height / 2 + 25
End Sub

'**Aqui si se mueve el image cuando muevo el cursor pero no se mueve cuando tengo presionado el boton izquiero del mouse

Claro, porque cuando pulsas el botón estás pulsando sobre image1.
Tienes que poner Image1.enabled = false. Y ya tendrás solucionado lo del click del mouse.

El código que estoy haciendo es muy sencillo..

Yo he hecho como antes dos images: image1 el fondo e image2 el cursor.. El código es simplemente este:

Código [Seleccionar] Expandir

Private Sub image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    If Button = 1 Then
        image2.Left = X + 900
        image2.Top = Y
    End If
   
End Sub

Lo único que tienes que definir son los límites de X e Y. Y además tienes que tener cuidado de que si pulsas en la imagen del fondo es posible que pulses en el cursor y entonces no se ejecutará el código anterior..
Yo lo veo muy fácil.. no sé dónde tienes la complicación...

Lo acabo de probar y va perfercto...
En vez de utilizar picture utiliza image.. La image del cursor la he creado después de la del fondo. Ahora no se ralentiza nada..

---------
Aunque el programa no funcione, tú puedes intentar acceder a la base de datos, y por supuesto modificarla..

Normalmente cuando se trabaja con una base de datos desde VB, la base de datos se guarda en uno o varios ficheros.
Lo que debes intentar localizar son estos ficheros y abrirlos. La base de datos se suele crear con Microsoft Access(97) o con el mismo VB desde el administrador visual de datos. Es decir, intenta abrir la base de datos primeramente con Access. Si el programador no ha variado la base, el archivo debe ser .mdb.

Intenta esto que te comento.. si el programador ha dejado la base de datos, hay bastantes posibilidades de abrirla.

Pues una cosa que se me ocurre que puedes hacer, es crear un nuevo picture con el icono que tú quieras.
Por ej. picture1 -> icono que quieres
          picture2 -> imagen sobre la que pasa el icono.

Crea un icono 16 x 16 que sea transparente. Después en las propiedades de picture2, pónle ese icono en mouseicon y mousepointer. De este modo el cursor desaparece.

Después en picture2 mientras mueves el cursor dentro de esta imagen, haces que el picture1 aparezca y lo pones en las coordenadas que tú quieras:

Código [Seleccionar] Expandir

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Y aquí pones el picture1 observando X e Y

Lo acabo de probar y para lo que quieres va bien. El único inconveniente que le veo es que se ralentiza ya que el cursor no aparece hasta no mover el mouse dentro de picture2.

Claro..

También hay que saber un poco de matemáticas, por ejemplo:
Una raiz cúbica a qué es igual??

3 elevado a 3 =27 -->  3³ = 27

por lo tanto raiz cúbica de 27 es tres, que es lo mismo que:
27^1/3 = 3

Así puedes hacer las raices que quieras..
El elevado es muy sencillo sólo tienes que poner: 3 ^ 3 = 27

Claro que puedes hacerla..
Busca un poco por MSDN:
Seno --> Sin
Coseno --> Cos
Exponente --> ^
la raiz es muy sencilla, dejo que lo pienses.

De acuerdo contigo frankener1986, pero fíjate una cosa..

Te voy a poner un ejemplo sencillo:
Cuando tú programas por ej. en VB y sabes que en una parte de tu código es posible que obtengas un error, normalmente utilizas para tratar ese error: On error goto lo que sea...

Si encuentras un error que esperas, (por ejemplo cuando trabajas con una base de datos y el registro es Null) entonces haces: Resume next, porque no tiene sentido acabar (end) con el programa no?

Pues por eso yo me imagino que en algunos programas puede ser algo así..
Es mi opinión..
Un saludo

Mira, a ver si te entiendo esto último.. intentas sumas a la fecha actual los 102000 segundos no??

Eso que haces de ese modo es bastante feo.

Si quieres añadir a una fecha un número determinado de segundos, por ej. en este caso 102000, lo puedes hacer muchísimo más sencillo de esta forma:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim a As Double
    'Le pongo double porque en la definición de DateAdd:
    'DateAdd (Interval as String, Number as Double, Date)
    a = 102000 'segundos

    'Ahora a la fecha actual le sumo los 102000 segundos:
    Text1.Text = DateAdd("s", a, Now)

End Sub


Si quieres más información sobre DateAdd, MSDN:
http://msdn2.microsoft.com/es-es/library/hcxe65wz.aspx

Hola..
1º) Si estás comenzando tu aplicación yo te recomendaría que en vez de utilizar un control de datos DAta que uses el control de datos ADO.

Mira para buscar como comentas el principio de un registro, puedes hacerlo de forma muy sencilla así:

Código [Seleccionar] Expandir

dim buscar as string
buscar="cel"

Data1.Recordset.MoveFirst 'Te vas al principio de la búsqueda tuya
Data1.Recordset.FindFirst "Campo LIKE '*" & buscar & "*'"
if Data1.Recordset.NoMatch Then
    'lo que quieras
    'y haces un movelast
end if
Te lo he puesto muy por encima, pero échale un vistazo.
El operador SQL Like permite hacer búsquedas de texto. Entonces le he dicho que busque en el Campo -> Campo y que encuentre el primer registro (findfirst) que empiece ('*) por buscar (en este caso -> cel).

Es sencillo..