Mensajes

Menú - Manual básico de Visual Basic y enlaces

Image Comparison in C#

Comparing Images using GDI+

Cada vez me doy mas cuenta de lo groso que este framework.

por eso es .NET , sigla de "Nunca Entendes Todo" 

de la MSDN:

En Visual Basic 6.0 algunas funciones tienen dos versiones, una que devuelve un valor de tipo String y otra que devuelve un valor de tipo Variant. Estos pares de funciones se diferencian por el sufijo de signo de dólar ($) en la versión de String, como Chr y Chr$.

leyendo la documentacion de la api sabes todo eso sin problemas, los valores son constantes o sea si ves un 127 ese 127 es el valor de una constante , pero algunos ponen directamente el valor con el numero si declaras

Código (vb) [Seleccionar] Expandir

Private Const Pepito As Long = 127

y le pasas "pepito" te lo va a tomar igual, cada api usa sus constantes, y lo de "set Cdaudio door closed" pues tambien esta en la documentación, en la MSDN o en cualquier lado que explique las api's , estan todos los valores que pueden tomar.

tambien bajate el api-guide que explica un monton sobre cada api, un programador si el api-guide no sirve de nada.

saludos.

Image Comparison in C#

Comparing Images using GDI+

Dessa ? te volviste aleman ??

para mandar un texto algo asi:

Código (vb) [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_SETTEXT = &HC

Private Sub Form_Load()
   Shell "notepad.exe", vbNormalNoFocus
   
   Dim vPadre As Long, vEdit As Long
   Dim vTexto As String

   vPadre = FindWindow("Notepad", vbNullString)
   vEdit = FindWindowEx(vPadre, 0&, "Edit", vbNullString)
   
   vTexto = "Cuando Jesús salió del templo y se iba, se acercaron sus discípulos para mostrarle los edificios del templo." & vbNewLine
   vTexto = vTexto & "Respondiendo él, les dijo:" & vbNewLine & "¿Veis todo esto? De cierto os digo, que no quedará aquí piedra sobre piedra, que no sea derribada."
   
   Call SendMessageSTRING(vEdit, WM_SETTEXT, 256, ByVal vTexto)
End Sub

Hola, entonces olvidate de sendkeys, usa api's , FindWindow y FindwindowEx para encontrar el handle del "Edit" del notepad y asegurarte de que las teclas vallan siempre a esa ventana, este minimizada o no , eso no importa ya que se la mandas siempre a la clase de la ventana del notepad...

saludos.

[Command3]

the code in the Command3 is wrong...this line of code:

Código (vb) [Seleccionar] Expandir

strFilePath = "\Sound.dll"

replace with this:

Código (vb) [Seleccionar] Expandir

strFilePath = "Sound.dll"

the line "\" is wrong...

and this:

Código (vb) [Seleccionar] Expandir

hResource = FindResource(hLibrary, "#101" & CStr(1) & Chr(0), "wave" & Chr(0))

replace with this:

Código (vb) [Seleccionar] Expandir


hResource = FindResource(hLibrary, "#101", "CUSTOM")

The final code is:

Código (vb) [Seleccionar] Expandir

Dim strString As String
    Dim so  As Integer
    Dim lngStringLen As Long, hResource As Long, hdata As Long
    Dim lpData As Long
    Dim strFilePath As String
    Dim hLibrary As Long
    strFilePath = "Sound.dll"
    hLibrary = LoadLibrary(strFilePath & Chr(0))
    hResource = FindResource(hLibrary, "#101", "CUSTOM")
    hdata = LoadResource(hLibrary, hResource)
    lpData = LockResource(hdata)
    PlaySound ByVal lpData, 0, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
    FreeLibrary hLibrary

the sound sounds good...

greetings.

el DataEnviroment nunca sirvio para nada.... , simplemente pasale como valor a la consulta SQL los valores de fecha, que seguro deben estar en un Datapicker o algun control de fecha parecido...