Mensajes

no hay nada como el AsyncDownload de los usercontrol...

¿Y si eliminamos todos los subforos y posteamos en el indice de temas??????

jaja estaria bien ordenado 

Super Calculadora PHP

cuando tengas duda busca en internet asi de simple es...

Hola, te arme este ejemplo "asi nomas" para ver si es lo que queres, lo que hace es mostrar en el formulario el area 50x50 donde pasa el mouse por la pantalla.lo unico que debes hacer es ponerle la api para detectar el click y que ahi capture, (o podes usar el hook del mouse, lo que vos quieras).

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Type PALETTEENTRY
    peRed As Byte
    peGreen As Byte
    peBlue As Byte
    peFlags As Byte
End Type

Private Type LOGPALETTE
    palVersion As Integer
    palNumEntries As Integer
    palPalEntry(255) As PALETTEENTRY
End Type

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

Private Type PicBmp
    Size As Long
    Type As Long
    hBmp As Long
    hPal As Long
    Reserved As Long
End Type

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long
Private Declare Function GetSystemPaletteEntries Lib "GDI32" (ByVal hDC As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long
Private Declare Function CreatePalette Lib "GDI32" (lpLogPalette As LOGPALETTE) As Long
Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long
Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Long) As Long
Private Declare Function SelectPalette Lib "GDI32" (ByVal hDC As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "GDI32" (ByVal hDC As Long) As Long
Private Declare Function GetWindowDC Lib "USER32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDesktopWindow Lib "USER32" () As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long

Private Const RASTERCAPS As Long = 38
Private Const RC_PALETTE As Long = &H100
Private Const SIZEPALETTE As Long = 104

Private vMouse As POINTAPI

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 50
End Sub

Private Function CapturarAreaPantalla(ByVal X As Long, ByVal Y As Long, ByVal pAncho As Long, ByVal pAlto As Long) As Picture
    Dim hDCMemory       As Long
    Dim hBmp            As Long
    Dim hBmpPrev        As Long
    Dim r               As Long
    Dim hDCSrc          As Long
    Dim hPal            As Long
    Dim hPalPrev        As Long
    Dim RasterCapsScrn  As Long
    Dim HasPaletteScrn  As Long
    Dim PaletteSizeScrn As Long
    Dim LogPal          As LOGPALETTE
   
    Dim hWndScreen As Long
   
    hWndScreen = GetDesktopWindow()
   
    hDCSrc = GetWindowDC(hWndScreen)
   
    hDCMemory = CreateCompatibleDC(hDCSrc)
   
    hBmp = CreateCompatibleBitmap(hDCSrc, pAncho, pAlto)
    hBmpPrev = SelectObject(hDCMemory, hBmp)
   
    RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS)
    HasPaletteScrn = RasterCapsScrn And RC_PALETTE
    PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE)
   
    If HasPaletteScrn And (PaletteSizeScrn = 256) Then
        LogPal.palVersion = &H300
        LogPal.palNumEntries = 256
        r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
        hPal = CreatePalette(LogPal)
        hPalPrev = SelectPalette(hDCMemory, hPal, 0)
        r = RealizePalette(hDCMemory)
    End If
   
    r = BitBlt(hDCMemory, 0, 0, pAncho, pAlto, hDCSrc, X, Y, vbSrcCopy)
   
    hBmp = SelectObject(hDCMemory, hBmpPrev)
   
    If HasPaletteScrn And (PaletteSizeScrn = 256) Then
        hPal = SelectPalette(hDCMemory, hPalPrev, 0)
    End If
   
    r = DeleteDC(hDCMemory)
    r = ReleaseDC(hWndScreen, hDCSrc)
   
    Set CapturarAreaPantalla = CreateBitmapPicture(hBmp, hPal)
End Function

Private Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture
    Dim r As Long
    Dim Pic As PicBmp
   
    Dim IPic As IPicture
    Dim IID_IDispatch As GUID
   
    With IID_IDispatch
        .Data1 = &H20400
        .Data4(0) = &HC0
        .Data4(7) = &H46
    End With
   
    With Pic
        .Size = Len(Pic)
        .Type = vbPicTypeBitmap
        .hBmp = hBmp
        .hPal = hPal
    End With
   
    r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
   
    Set CreateBitmapPicture = IPic
End Function

Private Sub Timer1_Timer()
    Call GetCursorPos(vMouse)
    Me.Picture = CapturarAreaPantalla(vMouse.X, vMouse.Y, 50, 50)
End Sub

saludos.

pues lo unico que veo es que cada flecha llama a un link diferente, dependiendo del nombe del anunciante, por ejemplo si entras dodne estan las flechas, la priemra se dirige a :

lapagina/portal/registration/1543/11
lapagina/portal/registration/531/acuista

etc...

habria que fijarse a donde te direcciona cuando haces click en esas flechas, por cierto ¿cual es la pagina?

consejo: cambiale los nombres a los forms, si los dejas asi es muy cutre...

la maquina que tiene XP es mas vieja que la que tiene el Seven... y asi y todo tarda la mitad.

gracias a todos por responder, ya he solucionado mi problema, cargando los 10.000 registros en arreglos una ves que inicio el programa, y despues trabajando con estos arreglos y no haciendo consultas a la base de datos, la diferencia es abismal, lo que antes me tardaba 20 segundo ahora me tarda solo centesimas.

Saludos   

para, para ¿como haciendo consultas a la base? ¿como lo estabas haciendo antes?, si tenias un recordset con 6000 registros ¿no me digas que hacias 6000 select a la base? 

Hola, pone doble comillas..

saludos.