Visual Basic - iconos como el de icq

Life is soft - evento anual de software empresarial
 
Vista:

iconos como el de icq

Publicado por mare (5 intervenciones) el 07/10/2000 00:00:00
podria alguien decirme como poner iconos junto al reloj del sistema en vb, lo he buscado e intentado y no logro encontrar nada al respecto, les agradeceria su ayuda!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:iconos como el de icq

Publicado por Goku (77 intervenciones) el 07/10/2000 00:00:00
Chequea tu correo...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:iconos como el de icq

Publicado por PC (1 intervención) el 08/10/2000 00:00:00
Creo que la idea de un foro es colocar las respuestas para compartirlas entre todos no hacerlo en privado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Lo que tu digas PC

Publicado por Goku (77 intervenciones) el 08/10/2000 00:00:00
Copyright 1997 Karland International
´You may use this BAS file as much as you want as
´long as you leave all the contents in it..

´For starters to make this work you need to do one thing.
´Create a menu called mnuSystemtray. Create as many options
´you want under it. This will be what pops up when they right
´click on the icon while it´s in the system tray.. After you have
´created this menu then make sure that it is invisible and
´that´s all there is too it..

´***The below goes in a Module (BAS File)***
´Icon in systemtray
Public Const WM_LBUTTONDBLCLICK = &H203
Public Const WM_RBUTTONUP = &H205
Public Const WM_MOUSEMOVE = &H200
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Lo que tu digas PC I

Publicado por Goku (77 intervenciones) el 08/10/2000 00:00:00
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 VBGTray As NOTIFYICONDATA
Declare Function Shell_NotifyIcon Lib "shell32" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Lo que tu digas PC II

Publicado por Goku (77 intervenciones) el 08/10/2000 00:00:00
´Examample of use:
´****The below goes into your main form*****
´****Copy the below and take out the first ´ in every line****
´Private Sub GoSystemTray()
´ VBGTray.cbSize = Len(VBGTray)
´ VBGTray.hwnd = Me.hwnd
´ VBGTray.uId = vbNull
´ VBGTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
´ VBGTray.ucallbackMessage = WM_MOUSEMOVE


´ VBGTray.hIcon = Me.Icon
´ ´tool tip text
´ VBGTray.szTip = Me.Caption & vbNullChar

´ Call Shell_NotifyIcon(NIM_ADD, VBGTray)

´ App.TaskVisible = False ´remove application from taskbar
´ Me.Hide

´End Sub

´Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
´ Static lngMsg As Long
´ Static blnFlag As Boolean
´ Dim result As Long
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Lo que tu digas PC III

Publicado por Goku (77 intervenciones) el 08/10/2000 00:00:00
´lngMsg = x / Screen.TwipsPerPixelX

´ If blnFlag = False Then
´ blnFlag = True
´ Select Case lngMsg
´ ´doubleclick
´ Case WM_LBUTTONDBLCLICK
´ Me.WindowState = 0
´ Me.Show
´ ´right-click
´ Case WM_RBUTTONUP
´ result = SetForegroundWindow(Me.hwnd)
´ Me.PopupMenu mnuSystemtray ´<---You will need to create a menu called mnuSystemtray
´ End Select
´ blnFlag = False
´ End If
´End Sub

´Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

´ VBGTray.cbSize = Len(VBGTray)
´ VBGTray.hwnd = Me.hwnd
´ VBGTray.uId = vbNull

´ Call Shell_NotifyIcon(NIM_DELETE, VBGTray)

´End Sub

´Private Sub Form_Load()
´VBGTray.cbSize = Len(VBGTray)
´VBGTray.hwnd = Me.hwnd
´VBGTray.uId = vbNull
´VBGTray.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
´VBGTray.ucallbackMessage = WM_MOUSEMOVE


´VBGTray.hIcon = Me.Icon
´´tooltiptext
´VBGTray.szTip = Me.Caption & vbNullChar

´Call Shell_NotifyIcon(NIM_ADD, VBGTray)

´mnuSystemtray.Visible = False
´End Sub

´Private Sub Form_Resize()
´ If Me.WindowState = 1 Then
´ GoSystemTray
´ End If
´End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:iconos como el de icq

Publicado por tecniCam (220 intervenciones) el 13/10/2000 00:00:00
¿Te has "enterao" PC?
Yo lo tengo más corto y en cristiano, pero se me ha "adelantao" Goku.
Tas portao bien esta vez Goku. Ok. Se lo merece.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:iconos como el de icq-->Para tecniCam

Publicado por Goku (77 intervenciones) el 14/10/2000 00:00:00
Gracias tecniCam jajaja la verdad tengo por ahi algun codigo mas corto pero no me dio la paciencia para buscarlo
aunqeu seria interesante ver el que tu tienes mas corto porque capaz que es aun mas corto que los que yo tengo y eso siempre es bueno a la hora de programar
Suerte
Goku
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar