Mensajes

[keybd_event]

Hola, vos queres que funcione en cualquier proceso de windows?? para eso necesitarias usar api's, para capturar cuando apretas la rueda del mouse, porque ahi solo te funciona dentro de tu aplicación. aparte mejor usa la api keybd_event para mandar las teclas, el Sendkeys te puede traer algun problema.

saludos.

no es nada 2 GB por internet, me habra bajado 3 peliculas la otra vez de 4 gb cada una DVD full, y tengo 5 megas, y creo que no es nada...

que tipo de impresora es Zebra?? yo hice para imprimir etiquetas en una Zebra, con solo un reporte de crystal reports...

saludos.

[SetFilePointer]

aca tenes el equivalente con api's, SetFilePointer...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Private Const FILE_BEGIN = 0
Private Const CREATE_NEW = 1
Private Const INVALID_HANDLE_VALUE = -1
Private Const GENERIC_WRITE = &H40000000

Public Sub SetFileSize(ByVal FileName As String, ByVal newSize As Long)
    Dim fileHandle As Long
   
    fileHandle = CreateFile(FileName, GENERIC_WRITE, 0&, ByVal 0&, CREATE_NEW, 0&, 0&)
   
    If fileHandle = INVALID_HANDLE_VALUE Then
        Err.Raise 53
    End If
   
    If SetFilePointer(fileHandle, newSize, 0&, FILE_BEGIN) = -1 Then
        CloseHandle fileHandle
        Err.Raise 5
    End If
   
    If SetEndOfFile(fileHandle) = 0 Then
        CloseHandle fileHandle
        Err.Raise 5
    End If
   
    CloseHandle fileHandle
End Sub


Private Sub Form_Load()
    Call SetFileSize("c:\archivo.dat", &HEAC1361F)
End Sub

cuidado que crea un archivo de 3 gigas..

saludos.

por ahi lei que esta estrella es 10 millones de veces mas brillante que el sol, pero la mas brillante conocida es unas 38 millones de veces, o sea que queda segunda en este ranking.

ahi pude saber el tamaño real de al estrella, o sea estoy calculando la velocidad de escape, debe ser tremenda...cuando termine lo pongo.

la velocidad de escape de esa estrella debe ser imposible, debe ser un mini-agujero negro en atraer objetos, imaginense que la velocidad de escape del sol es 620 Km por segundo, el de esta debe ser tremenda..a ver si encuentro datos como para calcularlo..

Hoygan, Betelgeuse cuantas masas solares posee?

20

"hasta el más listo ha de aprender a no saber."

El sabio, sabe que ignora.

[As New TimeSpan]

si le pones As New TimeSpan no soporta que despues le hagas una asignación, y se lo tenes que hacer en otra linea.

El .Net hace transformaciones de tipos automaticamente e inicializa los objetos automaticamente tambien .Net es un lenguaje simple, comodo y muy visual lo que le falta es potencia

potencia en que sentido?

mira he visto ejemplos con y sin el New, pero bue...visual basic te agarra lo que venga.. jaja.