In that script, I create a Desktop shortcut to the application which I store in the user's Documents directory. When I started building the application, I knew from the outset that I would be using a VBScript to do the installation of the application (as well as updating when a newer version get's released). Fortunately for me, I've been using a Desktop shortcut from the begining. I eventually came across a post which really didn't seem fruitfull at the outset because it wasn't clear to me if the poster and myself were dealing with the same scenario.įirst off, your application must open via a shortcut. A short time after I posted the question, I got back on the horse and tried some more search terms. Apparently all I really needed was a break from the action and to type out my problem. I've made some minor tweeks to make it work in Access as opposed to that other piece of Microsoft Software that keeps getting in my search results so I will not name it here. Most of it was unattributed from whence I got it. I feel like there's ether a little something I'm missing, or an API function that could be used, or a better SendMessage constant, or that, maybe, it just can't be done.Īlso, as a disclaimer (I guess): obviously the above code was pulled from other posts from this forum and others. Is it possible to force the Taskbar Icon in the above scenario to something other than the standard Access Icon? However, for a program like Access, this button is greyed out. Furthermore, I would have to write some code to find the proper key and then change it (which I could do) but, it's unclear if this change would be immediate-not to mention I'd have to change it back when exiting the application.ģ.) Right-clicking the pinned application, then right clicking the application in the menu does give you a properties menu with a button called 'Change Icon.' in the 'Shortcut' tab. You can change the following registry key to change the default icon an application uses: "HKEY_CLASSES_ROOT\Access.Application.14\DefaultIcon(Default)." However, most users (myself included) don't have access to the HKEY_CLASSES_ROOT part of the registry. In my experience, almost no one uses any of the options except 'Always combine, hide labels'.Ģ.) Changing the Registry settings. BUT(!), it only works if the users have these settings checked on their end. So, basically, this does work I now get my icon for just the folder and the little label. I've changed this menu option to 'Never Combine' and 'Combine When Taskbar Is Full'. It does appear to work at the application level, but it never seems to work at the form level.įor those of you familiar with this particular predicament, let me list some of the other options outside of VBA that I have tried.ġ.) Taskbar\Properties\Taskbar buttons. Keep in mind that I have tried the above four lines of 'SendMessages' in various orders inside of and outside of, top of and bottom of the AppTasklist Sub to no avail. SendMessage32 hWndAccessApp, WM_SETICON, ICON_BIG, NewIco SendMessage32 hWndAccessApp, WM_SETICON, ICON_SMALL, NewIco SendMessage32 frmHwnd, WM_SETICON, ICON_BIG, NewIco SendMessage32 frmHwnd, WM_SETICON, ICON_SMALL, NewIco "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParamĮxecuted thus: Private Const WM_SETICON =
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |