Home‎ > ‎

Poner (Colocar) Icono a Nuestra Aplicacion

Sub PonMiIcono()
'***************************************************************
'&                                                            &*
'&                                                            &*
'&                                                            &*
'&                                                            &*
'&               Jefferson Jimenez (JJJT)                     &*
'&                 Cabimas - Venezuela                        &*
'&                    Marzo - 2010                            &*
'&                                                            &*
'&                                                            &*
'&                                                            &*
'&                                                            &*
'&                                                            &*
'***************************************************************
'El archivo icono debe estar en la misma carpeta donde esta la aplicacion access
Dim ElNombreIcono As String: ElNombreIcono = "TuIcono" & ".ico"
    Dim db As Object, ProPiedaD As Object
         On Error GoTo err_MiIcono
              Set db = DBEngine.OpenDatabase(CurrentProject.Path _
                                                & "\" & CurrentProject.Name)
         db.Properties("AppIcon").Value = CurrentProject.Path _
                                                   & "\" & ElNombreIcono
    db.Properties.Refresh
exit_MiIcono:
Err.Clear
err_MiIcono:
   If Err.Number = 3270 Then
     Set ProPiedaD = db.CreateProperty("AppIcon", _
                        DB_TEXT, CurrentProject.Path _
                                    & "\" & ElNombreIcono)
                db.Properties.Append ProPiedaD
             Set ProPiedaD = Nothing
       Application.RefreshTitleBar
   End If
End Sub
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
Comments