Menú

Mostrar Mensajes

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ú

Mensajes - seba123neo

#1871
los .icl son colecciones de iconos, debes buscar algun programa que te abra esa extensión y puedas extraer lo iconos...
#1872
.NET (C#, VB.NET, ASP) / Re: Que diferencia?
18 Enero 2010, 01:40 AM
Hola, que yo sepa, no estoy seguro, que Core.dll es para el Compact Framework...
#1873
Cita de: ЖHORUS HACKERЖ en 17 Enero 2010, 21:29 PM
Buenas noticias ya pudee sii  ;D
andube buscando y encontre como usar el asynckeystate lo unico que ise fue esto

NECESITAS
1 TIMER
2 TEXTBOX

Private 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 ;D



mejor usar la apis RegistrerHotKey y UnRegistrerHotKey, ya que con esa no necesitas Timers...

saludos.
#1874
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.  :P

exacto, abri el icono con un editor de iconos, uno de los mas simples y buenos es el IconFX, y ahi te salen todas los tamaños y resoluciones que tiene el icono, lo que pasa es que si tenes un icono por ejemplo con maxima resolución de 32x32 y queres verlo en 48x48, si no existe el de 48x48, agarra el de 32x32 y te lo adapta y por eso se ve mal...

saludos.
#1875
de Microsoft para visual basic 6:

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.

mas claro echale agua...

saludos.
#1876
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...

quitaron un monton de cosas, pero solamente porque la forma de programar es otra y se necesitan otras propiedades, ya te dijeron si usas un DataReader para saber tenes que recorrerlo con un While Dt.Read..... (ya que solo se recorre para delante o como le dicen FowardOnly), sino la otra es con un DataTable que este si tiene la propiedad Rows.Count que seria lo mas proximo al recordcount....

saludos.
#1877
el problema es que le estas poniendo que carge el icono con indice "1", pero eso es para cuando esta en otro modo que no sea reporte el listview, debes agregar en el parametro que sige tambien el valor "1"...quedaria asi:

Código (vb) [Seleccionar]
Set L = lv.ListItems.Add(, , "caca" & i, 1, 1)

el ultimo parametro es para cuando esta en modo reporte.

saludos.
#1879
Hola, este es un ejemplo de como hacer que te parpadee la ventana si a tenes ya abierta.

Código (vb) [Seleccionar]
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


adaptalo al tuyo..

saludos.
#1880
no sabemos lo que vos estas viendo, pone una captura por favor va a ser mas facil...