Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
_code__
Poster
Poster



Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
"BallonTooltipps"?
Verfasst am: 17.02.2008, 19:59
hi, ihr kennt doch sicher diese "ballons" oder "Blasen" die immer unten rechts aus der taskleiste kommen "neues update verfügbar" oder was da nich alles kommt...


sind die auch in vb6 möglich?

mfg & thx
Kombo
_________________
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 17.02.2008, 21:00
element.tooltip

oder rechts in der leiste bei tooltip was reinschreiben
_________________
http://sollniss.1x.to/

 
_code__
Poster
Poster



Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat

Verfasst am: 17.02.2008, 21:05
nicht das wenn man mit der maus auf etwas bleibt der kasten der dann kommt sondern die die auch vom system kommen diese blasen kann man nich beschreiben ...

diese:


_________________
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 17.02.2008, 21:08
Code:

Private Sub cmdSysTray_Click()
  With nid
    .cbSize = Len(nid)
    .hWnd = Me.hWnd
    .uId = vbNull
    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    .uCallBackMessage = WM_MOUSEMOVE
    .hIcon = Me.Icon
    .szTip = "Server: " & strServer & vbCrLf & _
             "Channel: " & strChannel & vbNullChar
  End With
  Shell_NotifyIcon NIM_ADD, nid
 
  Me.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, _
  Shift As Integer, x As Single, y As Single)

  Dim lMsg As Long
  Dim sFilter As String
 
  lMsg = x / Screen.TwipsPerPixelX
  Select Case lMsg
     Case WM_LBUTTONDOWN
     
     Case WM_LBUTTONUP
     
     Case WM_LBUTTONDBLCLK
     
Shell_NotifyIcon NIM_DELETE, nid
Me.Visible = True

     Case WM_RBUTTONDOWN

     Case WM_RBUTTONUP

       PopupMenu mnuTray
       
     Case WM_RBUTTONDBLCLK
     
  End Select
End Sub
'      wiederherstellen
Private Sub mnuTrayRe_Click()
  Me.Visible = True
  Shell_NotifyIcon NIM_DELETE, nid
End Sub


kleiner ausschnitt aus meinem bot, der auch pub ist
_________________
http://sollniss.1x.to/

 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 09:12
@KomBo

Schonmal daran gedacht die Sufu zu benutzen oder einfach nach "Visual Basic Ballon Tips" zu googlen?
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
_code__
Poster
Poster



Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat

Verfasst am: 18.02.2008, 12:04
@ sollniss thx

@Zig ja hatte ich aber n bisher nur mist gefunden.

und wegen dem "KomBo" ich bin NICHT der spasst von mbk!
... kann ich ja anscheinend immer wieder sagen .. nur weil da son spastika meint sich den nick zu nehmen ...
_________________
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 12:24
Ja sorry, Nick hab ich verwechselt.
Auf pscode.com gibts sicher paar Sources für Balloon tips.

Kann aber auch sein, dass der User die Balloon Tips deaktiviert hat, so wie es bei mir der Fall ist.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
_code__
Poster
Poster



Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat

Verfasst am: 18.02.2008, 12:27
kann man das überüprüfen? also ob die deaktiviert sind?
_________________
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 13:02
Wahrscheinlich. Schätze mal dass das ein Registry Eintrag ist.
Aber welcher weiß ich nicht.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
_code__
Poster
Poster



Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat

Verfasst am: 18.02.2008, 13:19
ok, trotzdem danke für die infos Wink

sollniss welche komponente brauche ich da? oder muss ich was anderes beachten? so geht er jedenfalls net...Question



mfg & thx
Kombo

Edtit://
ich möcht jetzt nicht extra noch einen thread aufmachen ^^ weiß vll wer wie ich ein about fenster mache, das aussieht als würde das programm etwas schreiben? geht das nur per timer oder kann man das auch noch anders lösen?
_________________
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 18.02.2008, 15:03
hoppla, hab das modul vergessen:

Code:
Option Explicit

' alle benötigten API-Deklarationen
Public Declare Sub keybd_event Lib "user32" _
  (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const KEYEVENTF_KEYUP = &H2
Public Const VK_LWIN = &H5B

Public 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

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2

Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

Public Const WM_MOUSEMOVE = &H200

' Konstanten für linke Maustaste
Public Const WM_LBUTTONDBLCLK = &H203   ' Doppelklick
Public Const WM_LBUTTONDOWN = &H201     ' Maus gedrückt
Public Const WM_LBUTTONUP = &H202       ' Maus losgelassen

' Konstanten für rechte Maustaste
Public Const WM_RBUTTONDBLCLK = &H206   ' Doppelklick
Public Const WM_RBUTTONDOWN = &H204     ' Maus gedrückt
Public Const WM_RBUTTONUP = &H205       ' Maus losgelassen

Public Declare Function Shell_NotifyIcon Lib _
  "shell32" Alias "Shell_NotifyIconA" ( _
  ByVal dwMessage As Long, _
  pnid As NOTIFYICONDATA) As Boolean

Public nid As NOTIFYICONDATA


_________________
http://sollniss.1x.to/

 
_code__
Poster
Poster



Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat

Verfasst am: 18.02.2008, 15:10
bei mir fehlt da aber der ballon tooltip... Surprised
nur der tooltip, der kommt wenn man mit der maus auf dem systemtray verweilt kommt.. vll falsch verstanden?^^


mfg
Kombo
_________________
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 18.02.2008, 15:11

@Kombo

Wegen About Fenster.
Mit nem Timer ist doch eh simpel.

2 Textboxen und ein Timer.
In eine Textbox schreibst du einfach deinen Text und stellst sie auf invisible = True.

Der Timer liest dann immer aus der Textbox das nächste Zeichen aus und schreibt es in die Textbox, die angezeigt wird.

Kann man natürlich in den verschiedensten Varianten machen und auch vieles hinzufügen.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: vb6, taskleiste

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 869 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2432 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1242 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.4310s ][ Queries: 131 (0.0289s) ][ GZIP on - Debug on ]