Autor Tema: Establecer título e icono  (Leído 2923 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 220
Establecer título e icono
« en: Septiembre 22, 2019, 10:27:22 pm »
Palabras clave: icono, asociar, application, seticon
Autor: Sacado de centro de desarrolladores Microsoft

Objetivo:
Establecer el título y el icono de la aplicación en tiempo de ejecución.



Código: [Seleccionar]
Sub cmdAddProp_Click()
 Dim intX As Integer
 Const DB_Text As Long = 10
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application")
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp")
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1
 Application.RefreshTitleBar
End Sub
 
Function AddAppProperty(strName As String, _
 varType As Variant, varValue As Variant) As Integer
 Dim dbs As Object, prp As Variant
 Const conPropNotFoundError = 3270
 
 Set dbs = CurrentDb
 On Error GoTo AddProp_Err
 dbs.Properties(strName) = varValue
 AddAppProperty = True
 
AddProp_Bye:
 Exit Function
 
AddProp_Err:
 If Err = conPropNotFoundError Then
 Set prp = dbs.CreateProperty(strName, varType, varValue)
 dbs.Properties.Append prp
 Resume
 Else
 AddAppProperty = False
 Resume AddProp_Bye
 End If
End Function