|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.11.2008 02:46:34 |
Philipp |
|
|
|
12.11.2008 02:51:32 |
Philipp |
|
|
|
12.11.2008 03:16:20 |
Philipp |
|
|
 Aw:Aw:Aw:Excel Symbol und Name ändern |
12.11.2008 17:35:00 |
jh |
|
|
|
12.11.2008 21:01:54 |
Philipp |
|
|
|
13.11.2008 04:41:16 |
jh |
|
|
|
15.11.2008 00:57:41 |
Philipp |
|
|
Von:
jh |
Datum:
12.11.2008 17:35:00 |
Views:
1163 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Excel Symbol und Name ändern |
Hallo,
Application.Caption hast du ja schon selbst herausgefunden.
Ändern des Icon:
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal Classname As String, _
ByVal WindowName As String) As Long
Private Declare Function ExtractIcon Lib "shell32" _
Alias "ExtractIconA" (ByVal Inst As Long, ByVal FName As String, _
ByVal Indx As Long) As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal Handle As Long, ByVal Message As Long, _
ByVal Param1 As Integer, ByVal Param2 As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" ( _
ByVal Handle As Long) As Long
Public Sub InstallIcon(strFileName As String, lngIdx As Long)
Dim lngWHnd As Long, lngIcon As Long
lngWHnd = FindWindow(vbNullString, Application.Caption)
If lngWHnd <> 0 Then
lngIcon = ExtractIcon(0, strFileName, lngIdx)
If lngIcon <> 0 Then
SendMessage lngWHnd, &H80, 0, lngIcon
DrawMenuBar lngWHnd
End If
End If
End Sub
Parameter strFileName der Sub InstallIcon ist entweder eine
Coderessource, die Icons enthält (*.dll, *.exe) oder eine explizite
Bilddatei (*.ico, *.bmp) mit der Icondarstellung inkl. vollständigem
Pfad. Im ersten Fall ist lngIdx die nullbasierte lfd. Nr. des Icons
in der Datei, anderenfalls 0.
Die Buttons oben recht lassen sich auch entfernen oder deaktivieren,
das muss ich aber erst mal raussuchen.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.11.2008 02:46:34 |
Philipp |
|
|
|
12.11.2008 02:51:32 |
Philipp |
|
|
|
12.11.2008 03:16:20 |
Philipp |
|
|
Aw:Aw:Aw:Excel Symbol und Name ändern |
12.11.2008 17:35:00 |
jh |
|
|
|
12.11.2008 21:01:54 |
Philipp |
|
|
|
13.11.2008 04:41:16 |
jh |
|
|
|
15.11.2008 00:57:41 |
Philipp |
|
|