21Kb	Este control permite poner Iconos en la Barra de Tareas. Es fácil de usar, tiene propiedades para el texto q se muestra (el Tip), para la Icona (Icon), de solo lectura para el Estado (enabled), y un método para mostrar o esconder (SetEnabled). Dispone tambien de Eventos: MouseMove, MouseDown, MouseUp y DblClick, que corresponden a esos mismos eventos realizados sobre la icona de notificación. Cortesia de HOO.	HOO.ocx
154Kb	Control para captura e introducción de Números, Fechas, Horas, Textos y Tiempos, similar al TextBox, es enlazable a datos y permite especificar varios tipos de comportamiento, cada tipo de datos tiene su control particular	GesData.ZIP
60 Kb	Control de Información sobre Hardware	SysXInfo.ZIP
68 Kb	Control que permite visualizar una imagen standard, .JPG, .BMP,.GIF,etc.	SBitMap.ZIP
25 Kb	Control que permite crear ejecutable en la Bandeja del Sistema de Windows, (System Tray), fácil de usar y con programa de ejemplo.	SysTray.ZIP
430Kb	Controles BLACKTHORN compuesto de 11 controles que abarcan varias utilidades como: información de disco, programación de teclas de función, ejecución de ficheros .WAV, reiniciación del equipo, rotación de textos, activar el sleep, barra gráfica de prograsión de tarea, zoom de formularios, reloj de cuenta atrás, gestor de ratón, de tarjeta de sonido, etc. Muy sencillos de usar.	BThorn.EXE
18 Kb	Control que representa un bottón que permite mostrar menús popup muy sencillo de usar	IkButton.ZIP
66 Kb	Control que permite visualizar un fichero gráfico y superponer sobre el regiones calientes que al pasar el ratón sobre ellas nos lo indican y pulsando sobre ellas se desencadena un evento. Original de Microsoft muy sencillo de utilizar	msLayout.ZIP>
33 Kb	Control que permite crear una barra de tareas idéntica a las del Microsoft Explorer con posiblidad de sonido al pulsar, etc.	ToolBar.ZIP
55 Kb	Control dar tamaño a todos los controles de un formulario automáticamente sin necesidad de usar código. Es shareware.	msResize.ZIP
18 Kb	Control que permite activar/desactivar los siguientes elementos: System Tray, Barra de Tareas, Botón de Inicio, Gestor de tareas, Ratón, Escritorio, Salvapantallas, apagar i reiniciar el sistema.	Disable.ZIP
139 Kb	permite añadir Iconos a los menús, como en el propio Visual Basic.	IconMenu.EXE
25 Kb	Control que permite comprimir y descomprimir ficheros de una forma muy sencilla, sin usar código.	ActOCX.ZIP
-	Sencillo componente al que facilitando el nombre de un archivo nos informa sobre su tamaño y entrega las primeras líneas que contiene. Opcionalmente genera un evento si el tamaño del archivo es superior a un límite dado.	TamanoArchivo
-	Componente derivado de TButton que tan sólo añade una nueva propiedad, BeepEnabled que en caso de ser true hace que el control provoque un pitido cada vez que es pulsado.	BeepButton
-	Este control muestra un número en forma de cuenta-kilómetros. Es posible seleccionar colores de tinta y fondo, tipo de letra, número de dígitos, etc. Cuenta con una página de propiedades personalizada.	Odometro
-	Mediante este componente no visible podrás capturar desde tus programas el contenido de la pantalla, la ventana activa completa o el área cliente de la ventana activa.	Captura
10 Kb	Control OCX que permite comprimir y descomprimir ficheros.	ActiveZipper.zip
-	Control ocx para realizar dibujos fractales.	Apfel.zip
87 Kb	Control OCX para hacer sonar ficheros midi de manera sencilla	BeMidi.zip
5 Kb	Dll ActiveX que permite realizar operaciones al programador VB avanzado.	binop.zip
8 Kb	Control OCX que muestra un marcador como el de las boleras. Puede ser útil para varios juegos	Bowling.zip
-	Control OCX que trata de un Spin para incrementar, decrementar datos por ejemplo.	BtmSpin.zip.
-	Control OCX que muestra un calendario totalmente personalizable casi idéntico al de Microsoft.	calendar.zip
-	Versión 1.6.1 de este control OCX realizado para dejar operativas o no algunas funciones de Windows 95 o Windows NT.	Disable.zip
27 Kb	Control OCX para obtener el espacio libre en disco, la unidad de disco, que permite incluso obtener los parámetros de una unidad de Red	disc.zip
-	Control OCX realizado por Mundo Visual que permite calcular el NIF de un DNI dado. Release 1.0.1.	DniToNif.zip
-	Control OCX que permite abrir carpetas del sistema y seleccionar la ruta de un directorio.	dpdlg.zip
-	Control OCX que permite abrir una ventana de selección con las diferentes horas y fechas que acepta el sistema	dtdlg.zip
-	Control OCX que permite tener una caja 3D como el control Frame con la posibilidad de utilizar cualquuiera de los lados de la caja	edgectrl.zip

Compártelo

Este es un código fuente que exporta una base de datos mdb de access a excel.

 mdbtoxls.rar

Compártelo

 Declarar :

  Para 16 bits :
      Declare Function SendMessage Lib “User” (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
      Declare Sub ReleaseCapture Lib “User” ()

Para 32 bits :
      Declare Sub ReleaseCapture Lib “User32″ Alias “ReleaseCapture” ()
      Declare Function SendMessage Lib “User32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Para ambas :

Global Const WM_SYSCOMMAND = &H112
Global Const SC_MOVE = &HF012

En el evento Form_MouseDown escribiremos el código :

Dim res As Long
ReleaseCapture
res = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_MOVE, 0&)

El mensaje WM_NCLBUTTON es generado por Windows cuando el usuario hace click con el botón derecho del ratón sobre la barra de título de una ventana. Windows emplea este mensaje para saber cuándo la ventana debe moverse por las siguientes acciones del usuario.
Si la ventana no tiene barra de título este mensaje no se genera, pero es útil para mover una ventana que no tiene barra de título.
Una ventana o un formulario de Visual Basic 32 bits no tiene barra de título si :

Visual Basic 5.0
  Caption = “”
  ControlBox = False

El código que viene a continuación muestra cómo mover un formulario sin barra de título pinchando y arrastrándolo desde cualquier parte del formulario.
El código situado en el evento MouseMove del formulario puede ponerse en otro evento si se quiere. Por ejemplo en el evento MouseDown de una etiqueta para permitir mover el formulario pinchando en la misma.

Declaramos en el formulario :

Private Declare Function SendMessage Lib “User32″ Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib “User32″ ()

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Y en el evento MouseMove del formulario :

Dim lngReturnValue As Long

If Button = 1 Then ’si es el botón izquierdo
   Call ReleaseCapture
   lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If

NOTA
Este mismo procedimiento nos sirve para mover cualquier control que tenga la propiedad hWnd, sustituyendo Me.hWnd por Control.hWnd en la función SendMenssage.
Si el control que deseamos mover no tiene esta propiedad siempre podremos crear un UserControl que posea esta propiedad y contenga el control que deseamos mover.

Compártelo

En un módulo declarar :

Declare Function GetDiskFreeSpace Lib “kernel32″ Alias “GetDiskFreeSpaceA”_
     (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector_
      As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

En un formulario :

  Dim spc As Long
  Dim bps As Long
  Dim ncl As Long
  Dim ntc As Long
  Dim Unidad As String
  Unidad = “C:/”
  GetDiskFreeSpace Unidad, spc, bps, ncl, ntc
  debug.print spc & ” Sectores por cluster”
  debug.print bps & ” Bytes por sector”
  debug.print ncl & ” Número de clusters libres”
  debug.print ntc & ” Número total de clusters”
  debug.print “Espacio total en disco: ” & (spc * bps * ntc) & “bytes”
  debug.print “Espacio libre en disco: ” & (spc * bps * ncl) & “bytes”

Compártelo

Si necesitamos bloquear el acceso a un fichero para que otra aplicación no pueda abrirlo podremos hacer lo siguiente :

open “c:\mifichero.loquesea” for binary access read lock read write as #1

Cuando otro programa lo intente abrir le debería dar el error 70 : Permiso
denegado.

Bloquear el acceso a un fichero [VisualBasic]

Compártelo