Die XP Sprechblasen

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von hax.

    Die XP Sprechblasen

    Ihr kennt Sicherlich unter WinXP die Sprechblasen, die kommen, wenn man ne Verbindung aufgebaut hat, ne neue Hardware eingebaut hat, oder wenn er auffordert Windows zu aktivieren, ... . Kann ich eigene Sprechblasen über mein VB Programm nutzen, es muss sowas geben, ich hab das mal von einem "nicht Microsoft" programm gesehen. Nur die Frage ist, wie so was geht
    Diese "Sprechblasen" wie du sie nennst, heissen "Balloon Tips". Es gibt dafür sicher eine Windows API, aber da ich keine Auflistung der neuen WinXP APIs zur Hand habe, kann ich dir leider nicht weiterhelfen. Möglich sind die aber sicher.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum
    Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

    Private Declare Function InitCommonControls Lib "comctl32" () As Long

    Private Const ECM_FIRST As Long = &H1500
    Private Const EM_SHOWBALLOONTIP As Long = (ECM_FIRST + 3)
    Private Const EM_HIDEBALLOONTIP As Long = (ECM_FIRST + 4)

    Private Type EDITBALLOONTIP
    cbStruct As Long
    pszTitle As String
    pszText As String
    ttiIcon As Long
    End Type

    Damit kannst du sowas realisieren.
    Hier ein Bsp. wies funktioniert

    Function DisplayBalloonHelp(Title As String, Text As _
    String, hWndOwner As Long) As Boolean
    Static BalloonTipPropertys As EDITBALLOONTIP

    With BalloonTipPropertys
    .cbStruct = Len(BalloonTipPropertys)
    .pszTitle = StrConv(Title, vbUnicode)
    .pszText = StrConv(Text, vbUnicode)
    .ttiIcon = 1
    End With

    Call SendMessage(hWndOwner, EM_SHOWBALLOONTIP, 0&, BalloonTipPropertys)
    End Function

    Du musst bevor Form_Load() aufgerufen wird InitCommonControls aufrufen !
    Also im orm_activate ereigniss (oder Form_initialize ? ich weiss es nich so genau musst du ausprobieren)
    Dann erst kannst du die Funktion verwenden !