Mensajes

No creo que cambiandole el ícono al formulario funcione porque cambia el handle.

Si, si funciona...
Escribi el code en vb y lo probe dsp xD

Ah, y que es eso de 'cargar el icono desde un recurso' ??
a que te referis con es0 ??

un salud0

Hola Acosta:
el codigo para poner un icono el la barra de tareas es este:

En un modulo, pone este

Código [Seleccionar] Expandir


Public nid As NOTIFYICONDATA
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Public Const WM_CHAR = &H102
Public Const WM_SETTEXT = &HC
Public Const WM_USER = &H400
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_CLOSE = &H10
Public Const WM_COMMAND = &H111
Public Const WM_CLEAR = &H303
Public Const WM_DESTROY = &H2
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
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
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

'Iconos
Sub Icono()
With nid
.cbSize = Len(nid)
.hwnd = Form1.hwnd 'nombre del form que estara minimizado
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Form1.Icon 'nombre del formulario que contiene el icono
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub
Sub NoIcono()
Shell_NotifyIcon NIM_DELETE, nid
End Sub


Resto del codigo:

Código [Seleccionar] Expandir


Private Sub Form_Load ()
Icono 'muestra el icono
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Result As Long
    Dim msg As Long
    If Me.ScaleMode = vbPixels Then
    msg = X
    Else
    msg = X / Screen.TwipsPerPixelX
    End If
    Select Case msg
        Case 517 'click derecho en el icono
            Form1.PopupMenu mnuHola
        Case 514
            Result = SetForegroundWindow(Me.hwnd) 'click izquierdo en el icono
    End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)
NoIcono 'para sacar el icono cuando cerras la aplicacion
End Sub


y para cambiar el icono segun el estado de tu aplicacion tenes q poner un ImageList y cargas las imagenes que necesitas. Despues pones el siguiente code en cada evento que necesites:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    NoIcono
    Set Icon = ImageList1.ListImages(1).ExtractIcon 'en el (1) depende del lugar en que este tu imagen
    Icono
End Sub


esper0 q te haya sido util
un salud0

G0nz4

[Write]

:O
me acabo de dar cuenta XD
si utilizas la funcion Write, el texto guardado aparece entre "comillas", pero si usas la funcion Print aparece normal

SAlu2

Insertar Cita
Sabeis cuales son los archivos que instala/crea?

Fijate donde instalaste el VB... y tmb crea un par de claves en el registro:
HKLM\Software\Microsoft\Visual Basic
HKLM\Software\Microsoft\Visual Studio

y un par mas deve crear...
es cuestion de buscar...
Edicion > Buscar (Ctrl+B)

cya

Código [Seleccionar] Expandir


    Open "C:\asd.txt" For Append As #1 'Directorio donde se guardar el texto...
        Write #1, Text1.Text 'guardas el Text1
        Write #1, Text2.Text '.. el Text2
    Close #1 'Cerras el archivo


con eso basta...


salu2

levante la mano el q use latinchat
xDD es una jodita

emmm para poder interactuar con otros programas necesitas usar las dll's que estos traen. Fijate las funciones que te traen las dlls del LatinChat...

salu2

publike de nuevo el codigo para ir cerrand0 el tema y que no se haga tan larg0 el hilo

salu2

Código [Seleccionar] Expandir


Ressource = LoadResData(101, "CUSTOM") 'on charge la ressource du fichier1


Error:
Resource with identifier '101' not found

si saco esa linea solo me ejecuta los 2 archivos x separados, no me los junta en ningun lado..

ese code solo permite ejecutar 2 arcihvos diferentes, no juntarlos...
y tiene varios errores :S

nunca lo habia notado xD

thx