Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente bannato
    Registrato dal
    Mar 2007
    Messaggi
    190

    [vb6] messaggio della TrayBar

    ciao Ragazzi/e

    vi disturbo con una richiesta di informazioni
    come al solito per il linguaggio VisualBasic6

    Premetto che sono già in grado di realizzare, nella TrayBar
    le icone e i vari menu a scomparsa;

    Qualcuno sa come creare i "fumetti" con i messaggi ?

    dato che non so neanche come si chiamano,
    un po d'immagini di chiarimento aiutano sempre.



    grazie in anticipo

  2. #2
    Utente bannato
    Registrato dal
    Mar 2007
    Messaggi
    190
    questo è il codice che utilizzo
    per un'icone nella TRAY con menu al Click del Mouse.

    codice:
    Menu di della finestra
    name = traymenu
    Caption = "Tray menu"
    
    name = traymenu_tray1 
    Caption = "This is an example"
    
    name = traymenu_tray2 
    Caption = "of the tray control"
    
    name = traymenu_dash1 
    Caption  = "-"
    
    name = traymenu_cooleh 
    Caption = "Cool Eh!"
    
    name = traymenu_exit 
    Caption  = "Exit Program"
    
    
    Attribute VB_Name = "TrayEx"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Private Sub Form_Load()
    ' hide this form so that only the tray icon is visible
    Me.Hide
    ' get te picture that will be used for the tray icon.
    SavePicture Me.Icon, "temp.icx"
    ' Set the tray properties.
    Tray1.SetPicture = "temp.icx"
    Tray1.SetTip = "Tray Control Example"
    ' Then load it into the system Tray!
    Tray1.Add
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
    ' clean things up before we exit.
    ' delete the icon out of the tray.
    Tray1.Delete
    ' delete the temp icon file
    Kill "temp.icx"
    End
    End Sub
    
    Private Sub Tray1_MouseClick(Button As Integer)
    ' we want to look for a right single click .. button = 4
    If Button = 4 Then 
    PopupMenu traymenu
    end if
    End Sub
    
    Private Sub traymenu_exit_Click()
    ' close program to menu
    Unload Me
    End Sub

  3. #3

  4. #4
    Utente bannato
    Registrato dal
    Mar 2007
    Messaggi
    190
    grazie gibra

    » you this the best !«

    dato che nel SITO da te postato VB ExTooltip
    c'è il downloaded di un progetto di esempio

    me lo studio con calma, anche perché è in inglese.

    grazie ancora.

  5. #5

  6. #6
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,463

    Moderazione

    Originariamente inviato da tuono_2000
    ciao Ragazzi/e
    Ti è già stato esplicitamente detto più volte (vedi qui e qui) di non abusare della colorazione del testo e della formattazione all'interno dei tuoi post.

    Le prossime discussioni "variopinte" verranno chiuse senza preavviso.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.