Visual Basic .NET | GeoAvila (Geovanny G. Avila)

27Jul/091

Test de HD para Video Manual

Bueno estando en un café libre, pregunté si me podían echar una mano con la compresión de video, para el manual, y bueno he aquí la demo de lo mejor que he conseguido gracias a rodrigo polo, espero que se vea bien en la mayoría de los clientes.

Saludos

Espero sus comentarios, Gracias por la opinión.

Saludos

P.D. presiona el botón HD del plugin para ver el alta de definición

14Sep/080

Mini Tutorial: Enviar Texto a Aplicación Externa con VB NET

Hola, bueno esto lo hice porque veo que muchos lo preguntan y no saben como hacerlo, hay muchas formas para hacerlo, esta es una de ellas. Les voy a hacer un ejemplo de como mandar un texto al textbox de una aplicacion externa, en este caso el Notepad de windows.

como sabran pueden usar el SPY++ para averiguar los nombres de clase de los controles...

este es el nombre de clase de la ventana padre llamada "Notepad":

este es el nombre del control Textbox dentro de la ventana llamado "Edit":

para saber los datos de la ventana tienen que arrastrar el "iconito" sobre una ventana y te va diciendo las partes que la forman,en este caso fijense que esta seleccionado el area de escritura del bloc de notas y al lado en la ventana estan los datos...

el handle es el numero(Long) que le asigna windows a cada ventana ,es como si fuera el numero que identifica esa ventana,sabiendo eso,podes hacer un monton de cosas,cerrarla,moverla,resizarla,cambiar valores,etc....

el Class es el nombre de clase del control,o sea cada control tiene su nombre...ese ese es que nos interesa ahora..

ahora fijense con este codigo como escribo en el bloc de notas..usando unas funciones api's...

PLAIN TEXT

VB.NET:

Public Class Form1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Declare Function SendMessageLONG Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_SETTEXT = &HC
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Shell("notepad.exe", vbNormalNoFocus)
Dim a As Long
Dim b As Long
a = FindWindow("Notepad", vbNullString)
b = FindWindowEx(a, 0&, "Edit", vbNullString)
SendMessageSTRING(b, WM_SETTEXT, 256, "Holaaaaaaaaaaaa")
End Sub
End Class

saludos.

Filed under: Visual Basic .NET No Comments

18Oct/070

Saber el Tamaño de Un Archivo con VB NET

Este ejemplo permite saber el tamaño de un archivo,ingresando la ruta del mismo.Usa como metodo La libreria Microsoft Scripting Runtime,que la tenes que agregar desde el menu Proyecto-->Añadir Referencias.

PLAIN TEXT

VB.NET:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objFSO As Scripting.FileSystemObject
Dim objFile
objFSO = New Scripting.FileSystemObject
objFile = objFSO.GetFile("C:\teclas.zip")
MsgBox("El Archivo " & objFile.Name & ",Tiene un Tamaño de " & objFile.Size & " bytes", vbInformation + vbOKOnly, "Tamaño de archivo")
objFile = Nothing
objFSO = Nothing
End Sub