mal wieder Icon - diesmal Taskleiste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Integer, _ ByVal lParam As Long) As Long Private Declare Function ExtractIcon Lib "shell32.dll" _ Alias "ExtractIconA" ( _ ByVal hInst As Long, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Long) As Long Private Const WM_SETICON = &H80 Private Const ICON_BIG = 1 Private Const ICON_SMALL = 0 Sub IconChange() Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String strIconPath = "C:\Windows\JM\RaidLogo.ico" 'vollständiger Pfad zum Icon lngXLHwnd = FindWindow("XLMAIN", Application.Caption) lngIcon = ExtractIcon(0, strIconPath, 0) SendMessage lngXLHwnd, WM_SETICON, ICON_SMALL, lngIcon SendMessage lngXLHwnd, WM_SETICON, ICON_BIG, lngIcon End Sub Das Private Declare muss mit Function natürlich in eine Zeile, ich blicke nicht durch, wie ich das hier darstellen kann. _ Kommst Du damit klar? Gruß von Roland Hochhäuser

Hallo Mike,
1. "Kann ich das Icon auch im Workbook ablegen": das geht bestimmt irgendwie über Objekt einbetten oder so, ich weiss es aber nicht. Der o.a. Code funktioniert aber nur, wenn Du den Speicherort des Icons als String ausdrücken kannst; außerdem unterstützt zumindest Office 2003 (ich nehme an auch Office 2000) nicht das ico-Format beim Einfügen einer Grafik.
2. "Die Datei wird von verschiedenen Clients gestartet": Dann leg das Icon doch genau 1 x auf das Netzlaufwerk und passe den Pfad an (funktioniert 100%ig), dann können auch mehrere Nutzer gleichzeitig darauf zugreifen.
3. "Pfad mit IP" ? Willst Du das Icon ins Intra-/Internet oder eine Oracle-Datenbank einparken?
Grüße von
Roland Hochhäuser

musst Du die UNC-Laufwerksangabe erst "übersetzen". Ich nutze dazu folgende Routinen:


Private Function LogicalDrives() As Collection
Dim s  As String * 128
Dim i  As Long
GetLogicalDriveStringsA Len(s), s
i = InStr(s, vbNullChar & vbNullChar)    ' Länge
Set LogicalDrives = New Collection
For i = 1 To i Step 4
LogicalDrives.Add Mid$(s, i, 2)
Next i
End Function


Private Function DrivePath(ByVal Path As String, _
Optional IgnoreErrors As Boolean = True) As String
Dim Drive As Variant
Dim UNC As String
If Right$(Path, 1)  "\" Then Path = Path & "\"
For Each Drive In LogicalDrives()
UNC = UNCPath(Drive, True)
If InStr(1, Path, UNC, vbTextCompare) = 1 Then Exit For
Next Drive
If IsEmpty(Drive) Then
If IgnoreErrors Then
DrivePath = Path
Else
Err.Raise 5
End If
Else
DrivePath = Drive & Mid$(Path, Len(UNC))
End If
End Function


Private Function UNCPath(ByVal Path As String, _
Optional IgnoreErrors As Boolean = False) As String
Dim UNC As String * 512
If Len(Path) = 1 Then Path = Path & ":"
If Right$(Path, 1)  "\" Then Path = Path & "\"
If WNetGetConnectionA(Left$(Path, 2), UNC, Len(UNC)) Then
' API-Routine gibt Fehler zurück:
If IgnoreErrors Then
UNCPath = Path
Else
Err.Raise 5
End If
Else
UNCPath = Left$(UNC, InStr(UNC, vbNullChar) - 1) _
& Mid$(Path, 3)
End If
End Function


Private Sub Test()
Dim Bild as String
Bild = DrivePath(\\172.24.0.10\Verzeichnis\) & ico.ico
End Sub

Kommen wir der Sache jetzt näher?
Gruß von
Roland Hochhäuser

Beliebteste Forumthreads (12 Monate)

mal wieder Icon - diesmal Taskleiste

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mal wieder Icon - diesmal Taskleiste

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread