los .icl son colecciones de iconos, debes buscar algun programa que te abra esa extensión y puedas extraer lo iconos...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: ЖHORUS HACKERЖ en 17 Enero 2010, 21:29 PM
Buenas noticias ya pudee sii
andube buscando y encontre como usar el asynckeystate lo unico que ise fue esto
NECESITAS
1 TIMER
2 TEXTBOXPrivate Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Private Sub Form_Load()
Timer1.Interval = "100"
End Sub
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
Visible = False
End If
If GetKeyPress(vbKeyF2) Then
Visible = True
End If
End Sub
para ocultarlo precionas f1
para re aparecerlo precionas f2
si quieres cambiar la tecla solo sustitulle (vbKeyf1 o f2) por otra tecla ejemplo (vbKeyf6)
gracias a todos por ayudarme
Cita de: Mr. Crowley en 17 Enero 2010, 21:33 PM
La solucion es hacer un archivo .ico que contenga varios tamanos de iconos, ejemplo:
16x16, 32x32, 48x48, 64x64, etc. Ya windows sabra cual icono colocar segun sea el
caso.
A mi me ha pasado y lo he solucionado de esa forma.
Citarthe AddressOf operator was used to pass the address in memory of a function to an API procedure that takes a function pointer as an argument.
Cita de: TheGhost(Z) en 17 Enero 2010, 11:18 AM
No sé porque quitaron el RecordCount si es bastante util y se usa a menudo. Ahora tendre que estar haciendo un For cada ves que lo necesite. Todo un rrollo.. ahh. Puedo hacer una funcion RecordCount, no?
Gracias,
Si ya no existe pues nada...
Set L = lv.ListItems.Add(, , "caca" & i, 1, 1)
Option Explicit
Private Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (lpMutexAttributes As Any, ByVal bInitialOwner As Long, ByVal lpName As String) As Long
Private Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Const ERROR_ALREADY_EXISTS = 183&
Private Sub Form_Initialize()
Dim hMutex As Long
Dim vRet As Long
hMutex = CreateMutex(ByVal 0&, 1, App.Title)
If (Err.LastDllError = ERROR_ALREADY_EXISTS) Then
ReleaseMutex hMutex
CloseHandle hMutex
vRet = FindWindow("ThunderRT6FormDC", "Form1")
FlashWindow vRet, 1
End
End If
End Sub