vb@rchiv · Diskussionsforen · SystemTray

VB Classic
VB.NET
ADO.NET
VBA
C#

sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[860 User online]
[799 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Visual-Basic Einsteiger

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Visual-Basic Einsteiger

SystemTray

Autor: Emerson
Datum: 05.03.02 15:57

HILFE! - Ich hab mir folgenden Code gezogen: --- Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type - Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long - Private Const NIF_ICON = &H2 Private Const NIF_MESSAGE = &H1 Private Const NIF_TIP = &H4 Private Const NIM_ADD = &H0 Private Const NIM_DELETE = &H2 Private Const NIM_MODIFY = &H1 - Dim IC As NOTIFYICONDATA - Private Sub Command1_Click() With IC .cbSize = Len(IC) .hwnd = Picture1.hwnd 'an welches Fenster sollen die Nachrichten? .uID = 2& 'unveränderlich .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP .uCallbackMessage = &H200 '= MouseMove .hIcon = Picture1.Picture 'hier bekommen wir das Bild/Icon her .szTip = "Das ist der Tooltip " + vbNullChar End With - Shell_NotifyIcon NIM_ADD, IC - End Sub - Private Sub menuExit_Click() End End Sub - Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Hex(X) Case "1E3C" PopupMenu menuDatei End Select End Sub --- Und auf Form1 ein Button, ein Label und eine PictureBox mit einem Symbol gemacht. - [Ausführen]...[RechtsDoppelKlickAufIcon]..."Laufzeitfehler '424' / Objekt erforderlich." - Warum geht das nicht? - Bitte helft mir - DANKE! - MfG, Emerson

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

SystemTray	49	Emerson	05.03.02 15:57
Re: SystemTray	35	Necromancer	06.03.02 07:42

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

TOP Entwickler-Paket

TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...

Jetzt nur 979,00 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel