SoloCodigo

Hola
Pon en un Form un PictureBox y un Timer, pega este código en declaraciones y ejecútalo.

Te mostrará con efecto de zoom la zona donde se encuentra el ratón

Option Explicit

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Const SRCCOPY = &HCC0020
Private Const VelocidadRefrescoMilliSegundos = 100

Private Type POINTAPI
 X As Long
 Y As Long
End Type

Private FactorZoom As Single, UltimaPos As POINTAPI, DimensionAlto As Long, DimensionAncho As Long

Private Sub TakeShot(CenterX As Long, CenterY As Long)
Dim Top As Long, Left As Long, nAlto As Long, nAncho As Long, ScreenDC As Long
nAlto = DimensionAlto * (1 / FactorZoom)
nAncho = DimensionAncho * (1 / FactorZoom)
ScreenDC = GetDC(GetDesktopWindow)
Top = CenterY - (DimensionAlto / (2 * FactorZoom))
Left = CenterX - (DimensionAncho / (2 * FactorZoom))
Call StretchBlt(Picture1.hdc, 0, 0, DimensionAncho, DimensionAlto, ScreenDC, Left, Top, nAncho, nAlto, SRCCOPY)
End Sub

Private Sub Form_Load()
DimensionAlto = 200
DimensionAncho = 300
Picture1.Height = DimensionAlto * Screen.TwipsPerPixelY
Picture1.Width = DimensionAncho * Screen.TwipsPerPixelX
FactorZoom = 2        'Valor inicial de factor de zoom
Timer1.Interval = VelocidadRefrescoMilliSegundos
End Sub

Private Sub Timer1_Timer()
    'Solo refresca la imagen si se ha modificado la
    'posición del mouse, así consume menos recursos
    'y corre más
    Dim NuevaPos As POINTAPI, Changed As Boolean
    Changed = False
    Call GetCursorPos(NuevaPos)
    If NuevaPos.X <> UltimaPos.X Then Changed = True
    If NuevaPos.Y <> UltimaPos.Y Then Changed = True
    If Changed = True Then
        UltimaPos = NuevaPos
        Call TakeShot(UltimaPos.X, UltimaPos.Y)
    End If
End Sub

Saludos.

Hola

Para colocar una casilla de verificación o cualquier otro control en una posición dada de un DbGrid, debes crear estos controles en tiempo de ejecución y situarlos en la posición adecuada, asignandole los valores.

Si quieres un ejemplo, puedes bajarte una demo donde aparece una lista en una celda de un DbGrid para toda una columna.
La dirección es   www.islaprogramacion.com en el apartado demos la encontrarás.

Saludos.

Hola:

Vgeta, como comentas anteriormente, RecordCount a veces no funciona bien, ésto no es del todo cierto, si funciona bien, el problema radica en que tienes que rellenar el recorset con los datos y esto no sucede hasta quel el puntero recorra los registros. Poner un movelast basta para que esto suceda. Asi que mi consejo es que antes de un RecordCount se haya realizado al menos un MoveLast.

Saludos.

Hola Juan:

El evento RowColChange se ejecuta cada vez que cambia la columna o fila donde este el cursor, ya sea por cambiar de celda o por que lo hagas con el RecordSelectors.

Si lo que quieres es que solo lo haga cuando pulse el selector de la Izda tienes que escribir un condicional (If) que evalue si la fila esta seleccionada, ya que si lo haces mediante el cambio de celda la fila no se selecciona.

Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

End Sub

DBGrid1.SelBookmarks.Count devuelve el numero de filas que tienes en la coleccion de filas seleccionadas.
Puedes usar esta colección para posicionar el puntero de la base de datos en la fila seleccionada.

If DBGrid1.SelBookmarks.Count > 0 Then
Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(0)
Else
'Esto evitaria que el usuario seleccionara otra fila mientras pulsa Shift o Ctrl.
MsgBox "Solo puedes seleccionar una fila para mostrar"
End If

Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
   If DBGrid1.SelBookmarks.Count > 0 Then
      Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(0)
      'Aqui situas el código para los TextBox si no están enlazados al data.
   Else
      'Esto evitaria que el usuario seleccionara otra fila mientras pulsa Shift o Ctrl.
      MsgBox "Solo puedes seleccionar una fila para mostrar"
   End If
End Sub

Observa que al igual que los indices de controles el valor del último indice es Count - 1

Saludos.

Puede que los objetos existan, pero seguro que estos los declaraste en un formulario y no en el modulo.

Puedes pasar los objetos como parametros de esas funciones.

Este ejemplo pasa como parametro un ComboBox si el Item se añade te devuelve Verdadero en caso de error devuelve False.

Public Function AñadirItem(Combo As ComboBox, Valor As String) As Boolean
   On Error Goto Terror
   Combo.AddItem Valor
   AñadirItem = True
   Exit Function
Terror:
   AñadirItem = False
End Function

Al llamar a la función desde cualquier Form de tu proyecto, se añadira a la lista del comboBox pasado como primer parametro, el valor indicado en el segundo parametro. Solo tienes que indicarle con que objeto trabajar y el valor a añadir.

If AñadirItem(MiCombo,"Hola") Then
   MsgBox "El elemento se ha añadido"
Else
   MsgBox "Se ha producido un error"
End If

Esto no es más que un ejemplo, adaptalo al objeto y valores que quieras usar.

Saludos.
Para más información www.islaprogramacion.com

En modo lvwReport el Listview no admite iconos en los SubItem.

Hola

Guarda los iconos en un imagelist

itm es un objeto de tipo Item para añadir al ListView

'Asigna el control ImageList al ListView
ListView1.Icons = ImageList1

Set itm = ListView1.ListItems.Add(, , "Texto")

' Establece el Icono 1 del ImageList1
itm.Icon = 1

Saludos.