| Pregunta: | 331 - ICONOS EN LOS FORMULARIOS |
| Autor: | Armando |
| Quisiera saber como le cambio el icono a un formulario en Access 97 De antemano agradezco la respuesta | |
| Respuesta: | Johny Weismuller |
| 'Esto va al código del formulario Private Const WM_SETICON = &H80 Private Const IMAGE_ICON = 1 Private Const LR_LOADFROMFILE = &H10 Private Const SM_CXSMICON As Long = 49 Private Const SM_CYSMICON As Long = 50 Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" _ (ByVal hInst As Long, _ ByVal lpsz As String, ByVal un1 As Long, _ ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 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 Public Sub SetFormIcon(hwnd As Long, strIconPath As String) Dim lIcon As Long Dim x As Long, y As Long x = GetSystemMetrics(SM_CXSMICON) y = GetSystemMetrics(SM_CYSMICON) lIcon = LoadImage(0, strIconPath, 1, x, y, LR_LOADFROMFILE) SendMessage hwnd, WM_SETICON, 0, ByVal lIcon End Sub Private Sub Form_Load() 'cambiar la ruta del icono SetFormIcon Me.hwnd, "e:.ico" End Sub | |
| Respuesta: | Joaquin Roca |
| Hola, referente a tu pregunta de como cambiar un icono de un formulario, prueba de entrar en diseño del formulario y en propiedades en "Imagen" especifica el nuevo mapa de bits, o bien escribe el directorio y fichero donde se encuentra el nuevo icono, puedes cambiarlo tanto si es un botón de comando ó un cuadro de imagen, suerte | |