Mensajes

Al final lo terminé haciendo:

Código [Seleccionar] Expandir


Private Sub Simplificar(ByRef Numerador As Long, ByRef Denominador As Long)
Dim Divisor As Long
  Divisor = 2
  Do While (Divisor <= Numerador) And (Divisor <= Denominador)
    If (Numerador Mod Divisor = 0) And (Denominador Mod Divisor = 0) Then
      Numerador = Numerador / Divisor
      Denominador = Denominador / Divisor
    Else
      Divisor = Divisor + 1
    End If
  Loop
End Sub


El cliente de informix guarda los datos de los servidores en el registro de windows (con el setnet32), podrias sacarlo de ahi.

Saludos

Primero deberias pensar en un algoritmo y despues pasarlo a codigo. Podria ser comprobando si los dos numeros son divisibles por un numero, por ejemplo por 2, si son divisibles, hacer la division y seguir haciendo la comprobacion hasta que no sean divisibles, luego ir incrementando el divisor (2) y hacer el procedimiento anterior. El divisor lo iras incrementando mientras que sea menor o igual al menor de los dos numeros(numerador y denominador).

Saludos

Herxeleid:

Te sugiero que los comprimas con la opcion 'Crear archivo sólido' ya que mejora infinitamente la tasa de compresion con este tipo de archivos

Saludos

Para cargar un archivo de imagen está el comando de VB LoadPicture , que soporta varios formatos: bmp, jpg, gif, etc. Para guardar una imagen esta el comando SavePicture, pero solo en formato bmp, para guardar en jpg podes usar la libreria de windows GDIplus, pero para guardar en gif, no hay una API de windows, creo que por problemas de licencia con el formato.

No se si existe la posibilidad de hacerlo desde ADO, pero sí al momento de crear las tablas: (la sintaxis de de MySQL)

Código [Seleccionar] Expandir


CREATE TABLE prueba(
id INTEGER AUTO_INCREMENT PRIMARY KEY,
nombre VARCHAR(40)
);


La función now devuelve una variable de tipo date con la fecha y la hora actual

Deberias recorrer la matriz de controles y enviar el mensaje a c/u.

Este código captura el color del pixel en que esta posicionado el cursor:

Código [Seleccionar] Expandir


Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Type PointAPI
        X As Long
        Y As Long
End Type

Private Sub timer1_Timer()
Dim DeskTopWindow As Long
Dim CurPos As PointAPI, ScreenPixel As Long
  Call GetCursorPos(CurPos)
  ScreenPixel = GetPixel(GetDC(0), CurPos.X, CurPos.Y)
  Label1 = ScreenPixel
End Sub



Lo guardas en una variable y lo vas comparando si cambia...

Saludos

Ojo que cuando la ruta que devuelve es el directorio raiz de la unidad, la cadena termina en \, en los demas casos no.