GeoAvila (Geovanny G. Avila) » Visual Basic http://geoavila.com Desarrollo.. de software. Tue, 27 Apr 2010 23:30:21 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 Nuevo Diseño gracias a @kreativox http://geoavila.com/nuevo-diseno-gracias-a-kreativox/ http://geoavila.com/nuevo-diseno-gracias-a-kreativox/#comments Wed, 26 Aug 2009 20:13:31 +0000 GeoAvila http://geoavila.com/?p=230

Un nuevo diseño ha sido implementado en el sitio, y bueno las gracias son para www.kreativox.com.

Todo fue bastante fácil contar con alguien que sabe de tema de la web, tendencias y diseño, gracias a @kreativox por hacerme entrar en su cartera de clientes al haberme ofrecido varios diseños y haber hecho las modificaciones necesarias para que el sitio quedara con un buen diseño y también un tanto mi gusto personal.

Así que no me queda más que recomendar a www.kreativox.com, para el diseño de tu sitio web, ya sea personal empresarial y demas.

Nos vemos.

]]> http://geoavila.com/nuevo-diseno-gracias-a-kreativox/feed/ 1 Listar Servicios de Windows con .Net http://geoavila.com/listar-servicios-de-windows-con-net/ http://geoavila.com/listar-servicios-de-windows-con-net/#comments Fri, 14 Aug 2009 22:26:00 +0000 GeoAvila http://geoavila.com/2009/08/14/listar-servicios-de-windows-con-net/ Bueno una función que nos puede ayudar en determinado momento es listar los servicios activos de Windows un ejemplo sencillo de como hacerlo es hacer usando System.Serviceprocess (NO olvides agregarlo como referencia al proyecto):

PLAIN TEXT
VB.NET:
  1. Imports System
  2. Imports System.ServiceProcess
  3.  
  4. Class Program
  5. Private Shared Sub Main()
  6. Dim services As ServiceController() = ServiceController.GetServices()
  7.  
  8. Console.WriteLine("Listado de los servicios corriendo : ")
  9. For Each service As ServiceController In services
  10. If service.Status = ServiceControllerStatus.Running Then 'cambiar por ServiceControllerStatus.Stopped para ver inactivos
  11. Console.WriteLine()
  12. Console.WriteLine(" Nombre de servicio: {0}", service.ServiceName)
  13. Console.WriteLine(" Nombre mostrado: {0}", service.DisplayName)
  14. End If
  15. Next
  16. End Sub
  17. End Class

y en c# sería así.

PLAIN TEXT
C#:
  1. using System;
  2. using System.ServiceProcess;
  3.  
  4. class Program
  5. {
  6. static void Main()
  7. {
  8. ServiceController[] services = ServiceController.GetServices();
  9.  
  10. Console.WriteLine("Listado de los servicios corriendo : ");
  11. foreach (ServiceController service in services)
  12. {
  13. if (service.Status == ServiceControllerStatus.Running) //cambiar por ServiceControllerStatus.Stopped para ver inactivos
  14. {
  15. Console.WriteLine();
  16. Console.WriteLine(" Nombre de servicio: {0}",
  17. service.ServiceName);
  18. Console.WriteLine(" Nombre mostrado: {0}",
  19. service.DisplayName);
  20. }
  21. }
  22. }
  23. }

para saber los procesos que están inactivos usamos la siguiente propiedad.
ServiceControllerStatus.Stopped.

un buen truco espero les sirva.

]]> http://geoavila.com/listar-servicios-de-windows-con-net/feed/ 0 Test de HD para Video Manual http://geoavila.com/test-de-hd-para-video-manual/ http://geoavila.com/test-de-hd-para-video-manual/#comments Mon, 27 Jul 2009 21:45:26 +0000 GeoAvila http://geoavila.com/?p=153 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

(Video: Watch this video on the post page)

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

]]> http://geoavila.com/test-de-hd-para-video-manual/feed/ 1 Mono .NET 2.2 ha sido liberado http://geoavila.com/mono-net-ha-sido-liberado/ http://geoavila.com/mono-net-ha-sido-liberado/#comments Wed, 18 Mar 2009 04:29:21 +0000 GeoAvila http://geoavila.com/?p=134 Bueno desde hace rato esta en versión beta y ahora han liberado la versión release, y con esta soporta el C# 3, y bueno como tenemos pendiente por allí lo del manual de C#, lo usaremos para poder probarlo, así que acá les dejo el link de descarga http://www.go-mono.com/mono-downloads/.

 

Nos vemos pronto en el manual de C#

]]> http://geoavila.com/mono-net-ha-sido-liberado/feed/ 0 Visual Studio 2010 Wow..!!! http://geoavila.com/visual-studio-2010-wow/ http://geoavila.com/visual-studio-2010-wow/#comments Tue, 21 Oct 2008 17:01:53 +0000 GeoAvila http://geoavila.com/2008/10/21/visual-studio-2010-wow/ Se ve venir el Visual Studio 2010, la verdad es que aún no he probado de lleno el 2008 y veo venir ya el 2010, según el estudio dice que únicamente el 20% de código en la mayoría de las aplicaciones es nuevo, algo que es bastante interesante puesto, que no me había puesto a pensar eso, y también se menciona la que ha mejorado en Ajax UI, también tendremos que darle una vista a esto y algo que ayudará bastante al desarrollo, que hay 22 controles dentro del desarrollo de Ajax, espero lo disfruten.

les dejo un pantallazo.

nota en inglés

nos vemos

]]> http://geoavila.com/visual-studio-2010-wow/feed/ 0 Saber si un Proceso esta Ejecutandose desde Visual Basic 6 http://geoavila.com/saber-si-un-proceso-esta-ejecutandose-desde-visual-basic-6/ http://geoavila.com/saber-si-un-proceso-esta-ejecutandose-desde-visual-basic-6/#comments Wed, 02 Jul 2008 14:54:59 +0000 seba123neo http://geoavila.com/?p=99 Hola,bueno este codigo lo que hace es chequear si un proceso esta corriendo o no,usa una funcion que retorna un valor Boolean(verdadero o falso) segun se detecte si se esta ejecutandose...en este caso al apretar un boton chequea como proceso la calculadora de windows cuyo nombre de proceso es CALC.EXE, ustedes reemplazenlo por el que quieran saber...

PLAIN TEXT
Visual Basic:
  1. Option Explicit
  2. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  3. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  4. Private Declare Function EnumProcesses Lib "PSAPI.DLL" (lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
  5. Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
  6. Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
  7. Private Const PROCESS_VM_READ = &H10
  8. Private Const PROCESS_QUERY_INFORMATION = &H400
  9.  
  10. Private Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
  11. Const MAX_PATH As Long = 260
  12. Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
  13. Dim sName As String
  14. NombreDelProceso = UCase$(NombreDelProceso)
  15. ReDim lProcesses(1023) As Long
  16. If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
  17. For N = 0 To (lRet \ 4) - 1
  18. hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
  19. If hProcess Then
  20. ReDim lModules(1023)
  21. If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
  22. sName = String$(MAX_PATH, vbNullChar)
  23. GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
  24. sName = Left$(sName, InStr(sName, vbNullChar) - 1)
  25. If Len(sName) = Len(NombreDelProceso) Then
  26. If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
  27. End If
  28. End If
  29. End If
  30. CloseHandle hProcess
  31. Next N
  32. End If
  33. End Function
  34.  
  35. Private Sub Command1_Click()
  36. MsgBox EstaCorriendo("calc.exe")
  37. End Sub

saludos.

]]> http://geoavila.com/saber-si-un-proceso-esta-ejecutandose-desde-visual-basic-6/feed/ 0 Cerrar Formulario con Efecto en VB6 http://geoavila.com/cerrar-formulario-con-efecto-en-vb6/ http://geoavila.com/cerrar-formulario-con-efecto-en-vb6/#comments Tue, 03 Jul 2007 06:44:25 +0000 seba123neo http://geoavila.com/?p=71 Este codigo es un ejemplo de como hacer para cerrar un formualrio con efecto de transparencia,a medida que se va cerrando se va haciendo mas trasparente hasta que se hace transparente por completo y es ahi donde se cierra.solo se necesita un control Timer en el formulario.el codigo se puede modificar a gusto para lograr hacer el efecto cuando sea necesario.

En el Formulario pone:

PLAIN TEXT
Visual Basic:
  1. Option Explicit
  2.  
  3. Dim Trans As Integer
  4. Private Const LWA_COLORKEY = 1
  5. Private Const LWA_ALPHA = 2
  6. Private Const LWA_BOTH = 3
  7. Private Const WS_EX_LAYERED = &H80000
  8. Private Const GWL_EXSTYLE = -20
  9.  
  10. Private Declare Function SetLayeredWindowAttributes Lib "user32" _
  11. (ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, _
  12. ByVal alpha As Long) As Boolean
  13. Private Declare Function SetWindowLong Lib "user32" Alias _
  14. "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
  15. ByVal dwNewLong As Long) As Long
  16. Private Declare Function GetWindowLong Lib "user32" Alias _
  17. "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  18.  
  19. Sub SetTrans(hwnd As Long, Trans As Integer)
  20. Dim Tcall As Long
  21. Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
  22. SetWindowLong hwnd, GWL_EXSTYLE, Tcall Or WS_EX_LAYERED
  23. SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), Trans, LWA_ALPHA
  24. Exit Sub
  25. End Sub
  26.  
  27. Private Sub Form_Load()
  28. Form1.Show
  29. Form1.Enabled = False
  30. Timer1.Interval = 1
  31. Trans = 255
  32. SetTrans Me.hwnd, Trans
  33. End Sub
  34.  
  35. Private Sub Timer1_Timer()
  36. If Trans <> 0 Then
  37. Trans = Trans - 1
  38. End If
  39. SetTrans Me.hwnd, Trans
  40. If Trans = 0 Then
  41. Form1.Enabled = True
  42. Unload Me
  43. End If
  44. End Sub

]]> http://geoavila.com/cerrar-formulario-con-efecto-en-vb6/feed/ 10 Activar el Salvapantallas desde VB6 http://geoavila.com/activar-el-salvapantallas-desde-vb6/ http://geoavila.com/activar-el-salvapantallas-desde-vb6/#comments Thu, 21 Jun 2007 02:49:06 +0000 seba123neo http://geoavila.com/?p=70 Este codigo permite activar el salvapantallas que tengamos como predeterminado.Solo se necesita un Boton en el Formulario para probar el ejemplo.

En el Formulario Pone: 

PLAIN TEXT
Visual Basic:
  1. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  2. (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
  3. ByVal lParam As Long) As Long
  4.  
  5. Private Const WM_SYSCOMMAND = &H112&
  6. Private Const SC_SCREENSAVE = &HF140&
  7.  
  8. Private Sub Command1_Click()
  9. Dim Ret As Long
  10. Ret = SendMessage(Form1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
  11. End Sub

]]> http://geoavila.com/activar-el-salvapantallas-desde-vb6/feed/ 0 Redimensionar Controles en tiempo de ejecucion con VB6 http://geoavila.com/redimensionar-controles-en-tiempo-de-ejecucion-con-vb6/ http://geoavila.com/redimensionar-controles-en-tiempo-de-ejecucion-con-vb6/#comments Wed, 20 Jun 2007 18:34:27 +0000 seba123neo http://geoavila.com/?p=69 Este codigo permite redimensionar controles cuando la aplicacion este ejecutandose.Solo los controles que tengan la funcion Hwnd podran usar esta funcion.Para probar el ejemplo solo necesitas un PictureBox.

En el Formulario pone:

PLAIN TEXT
Visual Basic:
  1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  2.  
  3. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  4.  
  5. Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
  6.  
  7. Const GWL_STYLE = (-16)
  8.  
  9. Const WS_THICKFRAME = &H40000
  10.  
  11. Const WS_CHILD = &H40000000
  12.  
  13. Const SWP_DRAWFRAME = &H20
  14.  
  15. Const SWP_NOMOVE = &H2
  16.  
  17. Const SWP_NOSIZE = &H1
  18.  
  19. Const SWP_NOZORDER = &H4
  20.  
  21. Private Sub dimensionar(ByVal elControl As Control)
  22. Dim Style As Long
  23. On Local Error Resume Next
  24. Style = GetWindowLong(elControl.hWnd, GWL_STYLE)
  25. Style = Style Or WS_THICKFRAME
  26. Style = SetWindowLong(elControl.hWnd, GWL_STYLE, Style)
  27. Style = SetWindowPos(elControl.hWnd, Me.hWnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME)
  28. Err = 0
  29. On Local Error GoTo 0
  30. End Sub
  31.  
  32. Private Sub Form_Load()
  33. dimensionar Picture1
  34. End Sub

]]> http://geoavila.com/redimensionar-controles-en-tiempo-de-ejecucion-con-vb6/feed/ 0 Efecto Degrade en Formulario con VB6 http://geoavila.com/efecto-degrade-en-formulario-con-vb6/ http://geoavila.com/efecto-degrade-en-formulario-con-vb6/#comments Wed, 20 Jun 2007 18:02:41 +0000 seba123neo http://geoavila.com/?p=68 Este codigo permite hacer un efecto degradado de 2 colores en el Fondo del formulario.Podes modificar los valores RGB y asi obtener la combinacion de colores deseada.El codigo se escribe en el evento Resize del Formulario para que al redimensionar el formulario el efecto se aplique a todas las areas,ya que si se pone en el evento paint este al redimensionarlo no se aplica,a no ser que se empieze la aplicacion con el formulario totalmente maximizado.

En el Evento Resize del Form pone:

PLAIN TEXT
Visual Basic:
  1. Private Sub Form_Paint()
  2. Form1.Cls
  3. Form1.AutoRedraw = True
  4. Form1.DrawStyle = 6
  5. Form1.DrawMode = 13
  6. Form1.DrawWidth = 2
  7. Form1.ScaleMode = 3
  8. Form1.ScaleHeight = (256 * 2)
  9. For I = 0 To 255
  10. Form1.Line (0, Y)-(Form1.Width, Y + 2), RGB(0, 250, I), BF
  11. Y = Y + 2
  12. Next I
  13. End Sub

]]> http://geoavila.com/efecto-degrade-en-formulario-con-vb6/feed/ 0