Todo Visual Basic 6.0 por Elinv.

Visual Basic 6.0 - Diferencia entre procedimiento y funciones por Elinv.

2012-02-22T15:19:00.004-08:00

Elinv y visual basic net

visual basic for, for visual basic,visual basic 6,

visual basic 6.0,que es visual basic 6.0,visual basic 2008,

visual basic tutorial,visual basic express,microsoft visual basic,

visual basic studio 2008,visual basic 2005,visual basic,descargar

Para sorprender a tu profe!
La diferencia entre procedimientos y funciones radica en que las funciones son llamadas a porciones de código que devuelven un valor como resultado, mientras que los procedimientos, no devuelven valores.

Visual Basic 6.0 - Execute y borrar toda la información de una tabla con ADO y sentencia MYSQL por Elinv.

2012-02-20T07:21:00.000-08:00

Elinv y visual basic net

visual basic for, for visual basic,visual basic 6,

visual basic 6.0,que es visual basic 6.0,visual basic 2008,

visual basic tutorial,visual basic express,microsoft visual basic,

visual basic studio 2008,visual basic 2005,visual basic,descargar

Adodc1.Recordset.ActiveConnection.Execute "delete * from resultados"
Adodc1.Refresh

Visual Basic 6.0 eliminar salto de linea por Elinv.

2012-02-20T07:18:00.002-08:00

Elinv y visual basic net

visual basic for, for visual basic,visual basic 6,

visual basic 6.0,que es visual basic 6.0,visual basic 2008,

visual basic tutorial,visual basic express,microsoft visual basic,

visual basic studio 2008,visual basic 2005,visual basic,descargar

texto = Replace(Replace(texto, Chr(10), " "), Chr(13), " ")

Visual Basic 6 - Obtener la resolución de pantalla por Elinv

2012-02-16T05:38:00.000-08:00

'Visual Basic 6.0 -
'Obtener la resolucion de la pantalla
'Por Elinv.
'http://todovisualbasicporelinv.blogspot.com/
Private Sub Form_Load()
Dim x As Integer, y As Integer
x = Screen.Width \ Screen.TwipsPerPixelX
y = Screen.Height \ Screen.TwipsPerPixelY
Label1 = "La resolucion de tu pantalla es " & x & " x " & y
End Sub

Visual Basic 6.0 - Salvar el contenido de un TextBox a un fichero en disco: Por Elinv.

2012-02-16T05:34:00.002-08:00

'Visual Basic 6.0 - Salvar el contenido de un TextBox a un fichero en disco:
'Por Elinv.
'http://todovisualbasicporelinv.blogspot.com/
'Añada el siguiente código: Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
'*******
'¡¡CUIDADO!!, el uso de OutPut, sobreescribe
'el contenido del fichero existente.
'*******
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Close #canalLibre
End Sub

Visual Basic 6 - Enviar y recibir del portapapeles por Elinv

2012-02-16T05:31:00.000-08:00

Clipboard.SetText "Hola Elinv! Buen día!"
Text1.Text = Clipboard.GetText

Visual Basic 6 - Cuenta regresiva al 21-12-2012 por Elinv.

2012-02-15T19:27:00.002-08:00

---->>> Al final de esta entrada tienes el proyecto que puedes bajarte para estudio.

'Elinv Argentina
'http://todovisualbasicporelinv.blogspot.com/
'Elinv agradece a pastebin.com
'------------------------------
VERSION 5.00
Begin VB.Form Form1
BackColor = &H0080FF80&
Caption = "Elinv - Cuanto falta para el 21/12/2012"
ClientHeight = 1320
ClientLeft = 60
ClientTop = 345
ClientWidth = 8895
LinkTopic = "Form1"
ScaleHeight = 1320
ScaleWidth = 8895
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H0000FFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 720
TabIndex = 0
Text = "Cuanto falta para el día 21-12-2012"
Top = 405
Width = 7350
End
Begin VB.Timer Timer1
Interval = 1000
Left = 4140
Top = 810
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'A este proyecto solo debe agregarse un Timer
'Nombre Timer1 con el valor Interval a 1000
'y Enabled a true y una casilla de texto Text1
Option Explicit
'Variables globales
'Variables necesarias
Dim fecha As String
'variable para contener el total de segundos faltantes
Dim totalsegundosfaltantes As Long
'Total de dias que faltan
Dim dias As Long
'Total de horas que faltan
Dim horas As Long
'Total de minutos que faltan
Dim minutos As Long
'Total de segundos que faltan
Dim segundos As Long
'Al cargar el programa
Private Sub Form_Load()
'Inicializamos fecha
fecha = "21-12-2012"
End Sub
'Timer con valor interval a 1000
'y enabled a true
Private Sub Timer1_Timer()
'Control general de errores
On Error Resume Next
'obtenemos el total de segundos faltantes
totalsegundosfaltantes = DateDiff("s", Now, fecha)
'Llamamos a la función para determinar dias horas minutos y segundos faltantes
AnalizarTiempoFaltante totalsegundosfaltantes, dias, horas, minutos, segundos
Text1.Text = dias & " dias " & horas & " horas " & minutos & " minutos " & segundos & " segundos"
End Sub
Private Sub AnalizarTiempoFaltante(ByVal totalsegundosfaltantes As Long, _
diasfaltan As Long, horasfaltan As Long, _
minutosfaltan As Long, segundosfaltan As Long)
'Extraer el número de días que faltan
'Dividimos el total de segundos faltantes por el total de
'segundos de un día
diasfaltan = totalsegundosfaltantes \ 86400
'Nos quedamos con los segundos que resultan del resto
'de esa división por ello usamos la función Mod
totalsegundosfaltantes = totalsegundosfaltantes Mod 86400
'Extraer el número de días que faltan.
horasfaltan = totalsegundosfaltantes \ 3600
totalsegundosfaltantes = totalsegundosfaltantes Mod 3600
'extract number of mins
minutosfaltan = totalsegundosfaltantes \ 60
totalsegundosfaltantes = totalsegundosfaltantes Mod 60
'Extraer el número de segundos que faltan
segundosfaltan = totalsegundosfaltantes
End Sub

--->>>Puedes bajar(download) el proyecto para estudio:

--> El proyecto se halla embebido en la imagen siguiente:
--> Haces click en la imagen con el boton izquierdo del mouse
--> Luego una vez que tienes la imagen ampliada a tu disposición
--> Presionas el botón derecho del mouse y buscas y ejecutas la
--> opción "guardar como"
--> Una vez en tu disco la seleccionas nuevamente con el mouse
--> Y con el boton derecho del mouse ejecutas "Abrir con"
--> Y la abres con el "WINRAR"

Visual Basic 6 - Ejecutar función DOS y recuperar en un textbox el resultado por Elinv

2012-02-15T14:34:00.000-08:00

--> Puedes bajarte el proyecto al final de esta entrada

Option Explicit
Private Sub ejecutar_Click()
informes
End Sub
Private Sub informes()
If Trim(Text1.Text) <> "Ingrese comando del DOS" Then
txt_resultado.Text = ""
txt_resultado.Text = ejecutar_Dos(Trim(Trim(Text1.Text)))
Else
MsgBox "Debe ingresar una directiva del dos válida!" _
& "Ej: dir c:", vbCritical, "Rutina Elinv del DOS a una casilla de Texto"
End If
End Sub
'Función que realiza todo el procedimiento
Function ejecutar_Dos(comando As String) As String
Dim oShell As WshShell
Dim oExec As WshExec
Dim ret As String
Set oShell = New WshShell
DoEvents
Set oExec = oShell.Exec("%comspec% /c " & comando)
ret = oExec.StdOut.ReadAll()
ejecutar_Dos = ret
DoEvents
Me.SetFocus
End Function
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub Text1_LostFocus()
'Aquí controlamos también el error de que
'se intente enviar una directiva nula o vacía
If Text1.Text = "" Then
Text1.Text = "Ingrese comando del DOS"
End If
End Sub

--> El proyecto se halla embebido en la imagen siguiente:
--> Haces click en la imagen con el boton izquierdo del mouse
--> Luego una vez que tienes la imagen ampliada a tu disposición
--> Presionas el botón derecho del mouse y buscas y ejecutas la
--> opción "guardar como"
--> Una vez en tu disco la seleccionas nuevamente con el mouse
--> Y con el boton derecho del mouse ejecutas "Abrir con"
--> Y la abres con el "WINRAR"

Visual Basic 6 - 'En un Text1 buscar y reemplazar palabras por palabras 'frases por palabra 'palabra por palabra 'palabra por frase por Elinv.

2012-02-11T08:30:00.000-08:00

'Visual Basic 6.0
'Elinv.
'------------------------------------------------------
'En un Text1 buscar y reemplazar palabras por palabras
'frases por palabra
'palabra por palabra
'palabra por frase
'------------------------------------------------------
'Agregar a tu proyecto un textbox "Text1"
'Multiline a true y ScrollBars en 2-Vertical
'Agregar un boton de comando
Private Sub Command1_Click()
'variables
Dim palabraofrasebuscada As String
Dim palabraofrasereemplaza As String
Dim Pos As Integer
'Inicializamos variables
palabraofrasebuscada = "mirenme a mi"
palabraofrasereemplaza = "mirate"
'Ubicamos la primer coincidencia
Pos = InStr(1, Text1.Text, palabraofrasebuscada, vbTextCompare)
'Si fué hallado
If Pos > 0 Then
'Seleccionamos el texto
Text1.SelStart = Pos - 1
Text1.SelLength = Len(palabraofrasebuscada)
Text1.SetFocus
'Borramos el portapapeles
Clipboard.Clear
'Copiarmos al portapapeles la palabra o
'frase que reemplaza
Clipboard.SetText palabraofrasereemplaza
'Pegamos con SendKeys.
SendKeys "^(V)"
Else
'Foco en el Text1
Text1.SetFocus
End If
End Sub
Private Sub Form_Load()
'Inicializamos el textbox1
Text1.Text = "Programar, programa cualquiera, sino mirenme a mi" _
& "-Un buen programador es alguien que siempre mira en" _
& "las dos direcciones antes de cruzar una carretera de " _
& "sentido único. (Doug Linder)" _
& "-Siempre programo como si la persona que mantendrá mi " _
& "código fuera un psicópata que sabe donde vivo.(Martin Golding)"
End Sub

Saber cuantos años tienes por Elinv.

2012-02-11T08:00:00.000-08:00

Private Sub Form_Load()
If IsDate("05/12/1961") Then
MsgBox "Tienes: " _
& Int(DateDiff("d", "05/12/1961", Date) / 365.25) _
& " años!"
Else
MsgBox "Formato correcto es: mm/dd/yyyy"
End If
End Sub

Saber el nombre corto y largo del día equis o actual de la semana y si es fin de semana por Elinv.

2012-02-11T07:49:00.001-08:00

'Nombre del día de la semana
Private Sub Form_Load()
'Primer modo de extraer el nombre del
'día de la semana
MsgBox WeekdayName(5, False)
MsgBox WeekdayName(5, True)
'Segundo modo de extraer el nombre del
'día de la semana
MsgBox WeekdayName(Weekday(#1/29/2012#), False)
MsgBox WeekdayName(Weekday(#1/29/2012#), True)
'Tercer modo: Nombre del día actual de la semana
MsgBox WeekdayName(Weekday(Date), False)
MsgBox WeekdayName(Weekday(Date), True)
'Saber si es fin de semana
If (Weekday(Now) = vbSaturday) Or (Weekday(Now) = vbSunday) Then
MsgBox "Ya es fin de semana "
Else
MsgBox "Todavía no es fin de semana!"
End If
End Sub
'Constantes Valor Descripción
'vbUseSystem 0
'vbSunday 1 Por defecto: Domingo
'vbMonday 2 Lunes
'vbTuesday 3 Martes
'vbWednesday 4 Miércoles
'vbThursday 5 Jueves
'vbFriday 6 Viernes
'vbSaturday 7 Sábado

1000 (MIL)Pesos Argentinos de premio en concurso al mejor vídeo amateur del tema: Alas de Cartón en versión original de Elinv.

2012-02-02T04:09:00.001-08:00

Elinv - su obra musical.

1000 (MIL)Pesos Argentinos de premio en concurso al mejor vídeo amateur del tema: Alas de Cartón en versión original de Elinv.

Entra al blog oficial e Elinv y entérate:

http://elinv-elinv.blogspot.com/

Visual Basic 6-Cambiar backcolor de commandbutton por Elinv.

2012-01-31T05:44:00.001-08:00

'Su funcionamiento - Cambiar el backcolor de un
'commandbutton al pasar por encima.
'Agregar al formulario un commandbutton.
'---------------------------------------
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &HC0FFC0
Command1.Caption = "COMENZAR"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
Command1.Caption = "Comenzar"
End Sub
'---------------------------------------

Visual Basic 6 - Barra de progreso por Elinv.

2012-01-31T05:42:00.000-08:00

Agreguen a su proyecto un commandbutton y una barra de progreso con los nombres que observan en el siguiente procedimiento.
DoEvents a veces es necesario si desea mostrar el progreso en algún label, captión, etc...

Private Sub command1_Click()
Dim inc As Integer
ProgressBar1.Min = 0
ProgressBar1.Max = 16000
For inc = ProgressBar1.Min To ProgressBar1.Max
ProgressBar1.Value = inc
'DoEvents
Next
ProgressBar1.Value = ProgressBar1.Min
End Sub

Afectar a varios controles rapidamente y sin mucho código(Para controles no indexados.) Por Elinv.

2012-01-31T05:37:00.001-08:00

'Afectar a varios controles rápidamente
'y sin mucho código(Para controles no indexados.)
'Por Elinv.
'-----------------------------------------------
Private Sub Form_Load()
Dim i
i = 6
For Each c In Me.Controls
If Left(c.Name, 7) = "Command" Then
c.Caption = "Comando" & i
i = i - 1
End If
Next
End Sub

Código fuente completo del programa en Visual Basic 6.0 para realizar miniaturas de páginas web por Elinv.

2012-01-29T09:42:00.000-08:00

Código fuente completo del programa para realizar miniaturas de paginas web por Elinv.

Les parecerá increíble como en 500 líneas de código con sus explicaciones, se ha logrado de parte de elinv este programa que permite capturar miniaturas de páginas web, en los mas distintos formatos desde 800 x 600 hasta 1440 x 900 lográndose inclusive el doble del alto de 900 o el triple del alto de 900.
Se pueden hacer miniaturas de varias páginas web en forma simultánea.

Los resultados se pueden grabar en bmp o jpg.
Inclusive el proyecto tiene una ayuda en chm para ilustrar al usuario, al estudiante de este proyecto a todos.
Si logran mejorarlo pueden enviarnos las mejoras para hacer conocer esas innovaciones a todos.
En las imagenes que siguen se encuentra el proyecto completo:
Deben bajar las imagenes a disco, luego abrir cada imagen con "Abrir con" y hacerlo con el WINRAR, una vez hecho esto, hallaran en su interior archivos como los siguientes:
Miniatura_Pagina_Web_Elinv.part1.rar.elinv
Miniatura_Pagina_Web_Elinv.part2.rar.elinv
Miniatura_Pagina_Web_Elinv.part3.rar.elinv
Miniatura_Pagina_Web_Elinv.part4.rar.elinv
Los bajan a un directorio de su disco duro...
Renombrar los archivos, quitándoles solamente la extensión ".elinv", con lo cual los archivos le deberían quedar así.
Miniatura_Pagina_Web_Elinv.part1.rar
Miniatura_Pagina_Web_Elinv.part2.rar
Miniatura_Pagina_Web_Elinv.part3.rar
Miniatura_Pagina_Web_Elinv.part4.rar
Ahora si pueden descomprimir el proyecto y a estudiarlo y a mejorarlo.
Seguidamente les dejo las imágenes que deben descargar:

Imagen conteniendo la primer parte del archivo comprimido.

Imagen conteniendo la segunda parte del archivo comprimido.

Imagen conteniendo la tercer parte del archivo comprimido.

Imagen conteniendo la cuarta parte del archivo comprimido.

Si este sitio le ha sido de interés o de ayuda, le solicitamos humildemente nos ayude a su sostenimiento en cuanta forma le sea posible, sea enviando códigos que estime de interés para los demás, sea aportando dudas, problemas cuya resolución no halle en la web, o códigos que consideré hacer conocer o en cuanta forma lo estime necesario.
Y gracias a vuestra ayuda podremos seguir alcanzándoles esos códigos que muchas veces tanto se desean concretar.
Muchas gracias!.
Elinv.

Código completo en Visual Basic del programa para medir en pantalla cualquier elemento por Elinv.

2012-01-29T07:27:00.000-08:00

Hola estimados amigos, aquí les dejo el código completo en Visual Basic 6 del programa para medir en pantalla todo lo que se halle en ella.
Fácil, intuitivo, sin egoísmos, se constituye en una herramienta fundamental para el desarrollador web, que a veces desea determinar el lugar exacto donde se halla un elemento de la página, o sus dimensiones.
Como siempre se bajan la imagen al pie de esta nota, y luego una vez en su disco duro, seleccionan "abrir con" y la abren con el WINRAR, hallarán el proyecto completo -solamente para estudio como siempre afirmamos- completamente a vuestra disposición.
Si este sitio le ha sido de interés o de ayuda, le solicitamos humildemente nos ayude a su sostenimiento en cuanta forma le sea posible, sea enviando códigos que estime de interés para los demás, sea aportando dudas, problemas cuya resolución no halle en la web, o códigos que consideré hacer conocer o en cuanta forma lo estime necesario.Muchas gracias!.
Elinv.

Como animar nuestro formulario, dale vida con uno o varios flash que lo hagan atractivo por Elinv.

2012-01-28T16:04:00.000-08:00

Como animar nuestro formulario, dale vida con uno o varios flash que lo hagan atractivo por Elinv.
Como cargar en tiempo de ejecución la imagen del fondo de nuestro formulario.
Aquí el código del formulario principal:
1. 'Elinv: Como animar nuestro formulario con flash
2. 'Y hacer del mismo una vista mas atractiva.
4. 'Nuestro proyecto tiene una referencia a
5. 'Microsoft Internet Controls
6. 'o en Componentes tilda
7. 'Microsoft Internet Controls
9. 'Evento principal.
10. Private Sub Form_Load()
11. frmMain.Picture = LoadPicture("pantalladelprograma.jpg")
12. 'Control de errores generales
13. On Error Resume Next
14. 'Habilitamos el webbrowser para edición.
15. WebBrowser1.Navigate2 "about:blank"
16. WebBrowser1.Document.designMode = "On"
17. 'Controlamos errores del webbrowser y mensajes molestosos
18. WebBrowser1.Silent = True
19. 'Contenido html de nuestro webbrowser.
20. Dim flashenformulario As String
21. flashenformulario = "<head><title>Elinv - Flash en un formulario Visual Basic 6.0</title></head>" _
22. & "<body background=""file:///" & App.Path & "\irreal.jpg"" leftmargin=0 topmargin=0 scroll=no>" _
23. & "<object width=""400"" height=""350"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab #version=10.0.0.0"">" _
24. & "<param name=""movie"" value=""" & App.Path & "\elinv.swf"" />" _
25. & "<param name=""quality"" value=""high"" />" _
26. & "<param name=""wmode"" value=""transparent"">" _
27. & "<embed width=""400"" height=""400""" _
28. & "alt=""Imagen en sustitución de flash""" _
29. & "title=""Imagen en sustitución de flash"" src=""" _
30. & "& App.Path & ""\elinv.swf"" quality=""high"" wmode=""Transparent""" _
31. & "fullscreen=yes type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer "">" _
32. & "</embed></object></body></html>"
33. 'Enviamos nuestro contenido html al webbrowser
34. frmMain.WebBrowser1.Document.Script.Document.Write flashenformulario
35. 'Deshabilitamos el modo edición del webbrowser.
36. WebBrowser1.Document.designMode = "Off"
37. End Sub
Y aquí te dejamos el proyecto que puedes bajarte para estudiar....

Si te ha servido algo de nuestro contenido, y quieres colaborar con el sostenimiento de este sitio, te rogamos que colabores en cuanta forma creas conveniente, enviando códigos que entiendas interesantes, enviando mejoras, correcciones, etc...
Atentamente.
Elinv.

'Control de Lineas sin apis ni códigos raros por Elinv

2012-01-28T09:28:00.000-08:00

'Control de Lineas sin apis ni códigos raros.
'-----------------------------------------------------------------------
'EL PROYECTO LO TIENES A TU DISPOSICIÓN DENTRO DE LA IMAGEN QUE SIGUE...
'-----------------------------------------------------------------------

'-----------------------------------------------------------------------
'Control de lineas en un Textbox o en una variable multilinea cualquiera
'Quita las lineas vacías.
'Permite saber la cantidad de lineas del textbox o de la variable

'Permite saber la cantidad de lineas en Blanco que han sido borradas.
'Permite extraer el texto de una determinada linea con solo hacer clic
'También llamando al numero de linea específico, que en este caso ha sido cargado en un listbox
'para su apreciación visual, pero pudiera cargarse en una matriz, para su agilización.
'También muestra el número de linea sobre el cual se hace clic y el contenido de esa linea.
'También llama a un número específico de linea directamente al textbox y muestra el contenido de la misma.
'-----------------------------------------------------------------------
'Código enteramente desarrollado y explicado por Luis Pedro Méndez.
'Desde Bragado, Provincia de Buenos Aires, Rca. Argentina.
'-----------------------------------------------------------------------

Flash - Reproductor multiradios en Flash por Elinv para ShoutCast por Elinv.

2012-01-19T06:16:00.001-08:00

Nuevo!!!!:
Email: elinv.elinv@gmail.com

Reproductor multiradios en Flash por Elinv para ShoutCast

&lt;p&gt;&amp;amp;amp;amp;lt;p&amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;amp;amp;amp;lt;p&amp;amp;amp;amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;lt;p&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;lt;p&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;gt;Su navegador no admite marcos en lnea ni se configura actualmente para no exhibir marcos en lnea. &amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;lt;/p&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;lt;/p&amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;amp;amp;amp;lt;/p&amp;amp;amp;amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;lt;/p&amp;amp;amp;amp;gt;&lt;/p&gt;

Totalmente realizado en flash, donde se podrá escuchar radios de Bragado y algunas otras que nos gustan, todas desde ese magnífico servidor Shoutcast.
Ver otros en Bragado mas se supera con Elinv. o Bragado mas de la mano de Elinv
Atentamente.
Elinv.

Elinv - Identificar el nombre de clase de la ventana por donde pasa el cursor y label multilinea.

2012-01-19T03:04:00.000-08:00

'Ingresen un timer al form de un proyecto nuevo
'un label
Option Explicit
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) AsLong
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVallpClassName As String, ByVal nMaxCount As Long) As Long
Private Sub Form_Load()
Label1.Caption = "elinv.elinv@gmail.com"
Label1.Width = 3135
Label1.Height = 1275
End Sub
Private Sub Timer1_Timer()
'Variables
Dim lugarpasacursor As POINTAPI, ventanapasacursor As Long
Dim texto As String
'capturamos el lugar por donde pasa el cursor
GetCursorPos lugarpasacursor
'Ahora la ventana
ventanapasacursor = WindowFromPoint(lugarpasacursor.X, lugarpasacursor.Y)
'Aquí la información.
texto = "Posición: (" & lugarpasacursor.X & ", " & lugarpasacursor.Y & ")" & vbCrLf
texto = texto & "Ventana(hWnd) : 0x" & Hex$(ventanapasacursor) & vbCrLf
texto = texto & "Nombre de Clase : " & nombre_de_clase(ventanapasacursor)
Label1.Caption = texto
End Sub
Private Function nombre_de_clase(ByVal hWnd As Long) As String
'Variables
Dim largodeltexto As Long, texto_nombre_ventana As String
'Asignamos espacios (Devuelve una cadena con 255 espacios.)
texto_nombre_ventana = Space$(255)
'Obtenemos la dimensión del nombre de la ventana
largodeltexto = GetClassName(hWnd, texto_nombre_ventana, 255)
'Extraemos con Left el nombre de la ventana
nombre_de_clase = Left$(texto_nombre_ventana, largodeltexto)
'Lo devolvemos como resultado de la función.
End Function

Cómo: Utilizar el objeto Dictionary con Visual Basic 6.0 presentado por Elinv.

2012-01-10T13:09:00.000-08:00

/*
*** Código presentado por Elinv***
* Nuestras Webs:

* Bragado + "Revoluciones"
*Bragado + "Revoluciones"
*TODO C y C++ por ELINV.
*TODO VISUAL BASIC 6.0 por ELINV.
*TODO VISUAL BASIC NET por ELINV
*TODO ASM, FLASH, HTML, JAVA, JAVASCRIPTS,
*PASCAL, PHP, TRUCOS, ETC... de ELINV.
*LUIS PEDRO MÉNDEZ(Elinv) su libro personal.
*ELINV y sus CANCIONES!!
*CANAL YouTube de ELINV.
*GOEAR y las canciones de ELINV.
*/

'Cómo: Utilizar el objeto Dictionary con Visual Basic 6.0
'Extraido de http://support.microsoft.com/kb/187234
'Agregar a un nuevo proyecto simplemente un commandbutton
'y el siguiente código
Option Explicit
Dim dictElinv As Dictionary
Private Sub Command1_Click()
'Claves de uso general.
Dim clavedictElinv, valordictElinv, elemento
'Nuestro objeto dictElinvionary
Set dictElinv = New Dictionary
With dictElinv
'seleccionamos el modo de comparación
.CompareMode = BinaryCompare
'Como añadir elementos
'añadimos elemento usando el nombre del argumento
.Add Key:="Elinv", Item:=1
'añadimos elemento sin el nombre del argumento
.Add "Elinv Argentina", 2
'Verificamos si existe un elemento en nuestro Dictionary
'Insensible a mayúsculas y minúsculas
'Averiguamos si existe "ELINV"
Print "Elinv existe ? = "; .Exists("ELINV")
'Aquí editamos laclave de nuestro elemento "Elinv"
.Key("Elinv") = "ELINV"
'does MIKE exist?
Print "ELINV existe ? = " & .Exists("ELINV")
Print " - - - - - - - "
'Extraemos las claves dentro de un array variant
Print "Matriz o array de claves"
clavedictElinv = .Keys
'Para enumerar las claves
Dim numerador As Integer
numerador = 1
'recorremos e informamos
For Each elemento In clavedictElinv
Print "Item "; numerador; vbTab; elemento
numerador = numerador + 1
Next
Print " - - - - - - - "
'Aquí extraemos los items dentro de un array variant
Print "Array de valores"
valordictElinv = .Items
numerador = 1
'recorremos e informamos
For Each elemento In valordictElinv
Print "Valor "; numerador; vbTab; elemento
numerador = numerador + 1
Next
Print " - - - - - - - "
'Vaciamos nuestro objeto Dictionary
.RemoveAll
Print "Luego de remover todos los items"
Print dictElinv.Count & " Items en dictElinv"
Print " - - - - - - - "
End With
Set dictElinv = Nothing
End Sub