Rubrik: Drucker | VB-Versionen: VB4, VB5, VB6 | 19.05.02 |
Standarddrucker im Tooltip anzeigen Ein Beispiel, das zeigt, wie man den eingestellten Standarddrucker als ToolTip anzeigen kann. | ||
Autor: Roland Wutzke | Bewertung: | Views: 16.570 |
www.vb-power.net | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Jeder kennt die Druckersymbole in den Anwendungen, die einen Druck auf den Standarddrucker ausgeben. Fährt man mit der Maus auf dieses Symbol, bekommt man als Tooltip den Standarddrucker angezeigt. Das ganze lässt sich ganz leicht mit einem Zweizeiler realisieren.
Private Sub Form_Load() cmdPrint.Caption = "Drucken" ' Standarddrucker als ToolTip On Error Resume Next cmdPrint.ToolTipText = "Drucken auf " & _ Printer.DeviceName If Err Then _ cmdPrint.ToolTipText = "kein Standarddrucker vorhanden" On Error Goto 0 End Sub
Somit weiß der Anwender jederzeit, auf welchen Drucker die Ausgabe erfolgt.
Obiger Code lässt sich z.B. auch in das MouseMove-Ereignis setzen, so dass auch dann noch der aktuell eingestellte Standarddrucker angezeigt wird, falls dieser während der Programmsitzung verändert wurde.
Private Sub cmdPrint_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ' Standarddrucker als ToolTip On Error Resume Next cmdPrint.ToolTipText = "Drucken auf " & _ Printer.DeviceName If Err Then _ cmdPrint.ToolTipText = "kein Standarddrucker vorhanden" On Error Goto 0 End Sub