 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
 Verfasst am: 09.09.2007, 23:27 Titel: [gelöst] API Prob... |
 |
|
Hallo!
Kleines Prob, aber vorher der Code:
| Code: | Function ING_SetStatusA (Status As Integer, Icons As ING_Icons, Param As ING_SParam) As Boolean Export
Dim hIcon As HICON
Select Case Status
Case ING_STATUS_ONLINE
hIcon=Icons.Online
Case ING_STATUS_OFFLINE
hIcon=Icons.Offline
Case Else
hIcon=NULL
Return FALSE
End Select
With hSystrayIcon
.cbSize = Len(hSystrayIcon)
.hWnd = Param.hOwner
.uId = ING_IDENT_ICON
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.ucallbackMessage = WM_MOUSEMOVE
.hIcon = hIcon
.szTip = Param.sTipp + Chr(0)
End With
Return Cast(Boolean,Shell_NotifyIcon(NIM_MODIFY, @hSystrayIcon))
End Function
Function ING_SetStatus (Status As Integer, Icons As ING_Icons, Param As ING_SParam) As Boolean Export
Dim hIcon As HICON
Shell_NotifyIcon(NIM_DELETE, @hSystrayIcon)
Select Case Status
Case ING_STATUS_ONLINE
hIcon=Icons.Online
Case ING_STATUS_OFFLINE
hIcon=Icons.Offline
Case Else
hIcon=NULL
Return FALSE
End Select
With hSystrayIcon
.cbSize = Len(hSystrayIcon)
.hWnd = Param.hOwner
.uId = ING_IDENT_ICON
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.ucallbackMessage = WM_MOUSEMOVE
.hIcon = hIcon
.szTip = Param.sTipp + Chr(0)
End With
Return Cast(Boolean,Shell_NotifyIcon(NIM_ADD, @hSystrayIcon))
End Function |
Es wird zuerst mit ING_SetStatus der Icon erstellt, und DANN mit ING_SetStatusA modifiziert werden... es ändert sich nichts, vars sind alle gütlig...
EDIT:
Hat sich von selbst erledigt...
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
 |
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 10.09.2007, 19:24 Titel: |
|
|
Auch wenn sich das Problem auf mysteriöse Art und Weise von selbst erledigt hat/haben sollte, wäre es schon interessant zu wissen wie
Da du es unter 'Allgemeine Fragen zu FreeBASIC' gepostet hast, wäre das dann vllt. auch eine 'Allgemeine Lösung für FreeBASIC'..
Ansonsten gehören API-Fragen imho nach 'Windows-spezifische Fragen'..
..aber ich bin da nicht ganz sicher, ich hab ja keinen Lorenz 
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
