Autor
|
Tema: como agregar iconos a comand button (Leído 1,504 veces)
|
choquito
Desconectado
Mensajes: 38
MANUEL VENERO
|
hola señores mi problema es el siguiente: quiero que aparezca un dibujo en un command button y que este dibujo se ubique en una esquina para poder escribir un texto en este command button esperando su comprension y su pronta respuesta me despido su amigo manuel lima - peru
|
|
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
agrega a tu proyecto "Microsoft Forms 2.0 Objet Library", y usa las propiedades Picture y PicturePosition para ponerle una imagen y decirle en donde la alinie.
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
choquito
Desconectado
Mensajes: 38
MANUEL VENERO
|
AMIGO CELAYA MUCHAS GRACIAS POR TU AYUDA,.. AHORA SI NO FUERA MUCHA MOLESTIA, SABEZ EN QUE PAGINA PUEDO ENCONTRAR DIBUJOS O ICONOS DE POR EJEMPLO : UN DIBUJO DE NUEVO , GUARDAR, MODIFICAR, ELIMINAR
|
|
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
esos vienen en "C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics", pero son al estilo w98, si quieres unos iconos mejores sacalos de "c:\windows\system32\shell32.dll" te dejo una función para sacar los iconos: En un módulo pones: Option Explicit
Private Type PicBmp Size As Long tType As Long hBmp As Long hPal As Long Reserved As Long End Type
Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As Byte End Type
Public FILE_SHELL As String
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 ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long Private Declare Function DestroyIcon Lib "user32" (ByVal hicon As Long) As Long
Public Sub GetIconFromFile(ByRef Lista As ImageList, FileName As String, iconIndex As Long, UseLargeIcon As Boolean) ' As Picture Dim X As Long ' Parametros: ' FileName - Nombre Fichero (EXE o DLL) que contiene los iconos ' IconIndex - Indice del icono a extraer, comienza en 0 ' UseLargeIcon-True para icono grande, False para icono pequeño ' Returns: Objeto Picture, donde devolvera el icono Dim hlargeicon As Long, hsmallicon As Long, selhandle As Long ' El objeto requiere una referencia a "Standard OLE Types" Dim pic As PicBmp, IPic As IPicture, IID_IDispatch As GUID X = 0 'While ExtractIconEx(FileName, X, hlargeicon, hsmallicon, 1) <> 0 If ExtractIconEx(FileName, iconIndex - 1, hlargeicon, hsmallicon, 1) <> 0 Then If UseLargeIcon Then selhandle = hlargeicon Else selhandle = hsmallicon End If With IID_IDispatch .Data1 = &H20400 .Data4(0) = &HC0 .Data4(7) = &H46 End With ' Fill Pic with necessary parts. ' Configura el picture con las partes necesarias With pic .Size = Len(pic) ' Longitud de la extructura. .tType = vbPicTypeIcon ' Tipo de Picture (bitmap). .hBmp = selhandle ' Handle al bitmap. End With ' Crea el objeto Picture Call OleCreatePictureIndirect(pic, IID_IDispatch, 1, IPic) ' Devuelve el objeto Picture Lista.ListImages.Add , , IPic 'Set GetIconFromFile = IPic DestroyIcon hsmallicon DestroyIcon hlargeicon X = X + 1 End If 'Wend End Sub
y en el form: GetIconFromFile ImageList1, "c:\windows\system32\shell32.dll", Numero_de_icono, True picture1.Picture = ImageList1.ListImages(1).Picture
lo que hago aqui es poner las imagenes en un ImageList y luego de alli las paso a cualquier control, espero te sirva
|
|
« Última modificación: 15 Enero 2007, 23:58 pm por CeLaYa »
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Como agregar Iconos al Menu Contextual de WindowsXP
Scripting
|
Lordzito
|
5
|
5,402
|
7 Marzo 2012, 05:07 am
por Lordzito
|
|
|
¿ Como hago para que un radiobutton rebote en un button ?
.NET (C#, VB.NET, ASP)
|
arts
|
2
|
2,645
|
18 Junio 2013, 04:18 am
por XresH
|
|
|
Ejecutar comand DOS con ShellExecute?
Programación C/C++
|
t4r0x
|
1
|
1,970
|
27 Octubre 2016, 15:22 pm
por fary
|
|
|
Como poner un toggle button o boton deslizante en vb.net
.NET (C#, VB.NET, ASP)
|
GDoBle
|
3
|
4,682
|
23 Noviembre 2022, 19:42 pm
por richardu1980
|
|