Hjælp til at indsætte ikon ved opstart

jeg mener ikke at det skulle være et problem. men billedet skal være i den mappe også

You can set this in the startup menu!

and in code
Application.CurrentProject.Properties!AppIcon = "C:\ThisApp.ico"

Hvis du mener det billede, som kommer op midt på skærmen et par sekunder, når man starter Access, kan du, så vidt jeg ved, kun ændre det vha. et installationsscript, som registrerer din database som en applikation i Windows Registreringsdatabasen. Her kan man sætte det som en parameter(StartupScreen). Der findes kommercielt tilgængelige installationsscripts, som kan lave det, men det er dyrt.


Hvis du mener det lille ikon oppe i venstre hjørne, ville jeg bruge:

Application.CurrentProject.Properties!AppIcon = CurrentProject.Path & "ThisApp.ico"

Så er du ikke afhængig af, hvor brugerne placerer databasen.

.

hekla>Its possible to alter the "splash screen" by having a .bmp file with the same name as the dB in the same folder

My.mdb
Me.bmp

But I prefer making my own as a form which gets displayed for a few seconds.

me.bmp = My.bmp

terry> Det vidste jeg ikke, men det er da betydeligt lettere.
Hvorfor foretrækker du formularen frem for billedet?

The picture is only visible for a short time, making your own gives mich more flexibility. Show it longer, alter information such as Program version number etc.

all we need now is some responce from bol :o)

Heej med jer alle sammen - JA det er billet oppe i venstra hjørn det hedder logo og er en bmp fil - HVor skal koden indsættes Hekla??

Application.CurrentProject.Properties!AppIcon = "C:\ThisApp.ico"
or
Application.CurrentProject.Properties!AppIcon = CurrentProject.Path & "ThisApp.ico"

almost the same :o)

Make a function in a module named autoexec and then make a macro also named autoexec which calls the function. Autoexec will run when you start you application!
and obvioulsy the code is palced in the function

Lav et nyt modul og skriv følgende i modulet:

Public Function AngivIkon()
Application.CurrentProject.Properties!AppIcon = CurrentProject.Path & "ThisApp.ico"
end function

Lav en makro og kald den autoexec (hvis ikke du har den i forvejen).
I "Handling vælger du "AfspilKode" og i "Funktionsnavn" skriver du "AngivIkon()" uden citationstegn.

Du var hurtigst igen terry :o)

I must have a faster internet connection ;o)

.

bol, whats the problem?