Visual Basic - Uso de API WIN32 desde VB

Life is soft - evento anual de software empresarial
 
Vista:

Uso de API WIN32 desde VB

Publicado por jevi19 (6 intervenciones) el 26/06/2004 17:29:19
Alguien me puede decir si es necesario cargar alguna librería para poder utilizar la API de Win32 desde VisualBasic?? Me he bajado un tutorial, y estoy intentando probar un ejemplo, y no me reconoce el hWnd como dato miembro de un botón, y no sé x q, xq soy nuevo con la API y estoy intento hacerlo de mil formas

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de RAUL
Val: 2
Ha aumentado su posición en 97 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Uso de API WIN32 desde VB

Publicado por RAUL (443 intervenciones) el 26/06/2004 22:48:53
LA PROPIEDAAD hWnd no aparece en la ventana de propiedades por que su valor solo esta disponible en tiempo de ejecución. Ademas es Propiedad de solo lectura y, por tanto, no podras asignarle ningún valor.
Devuelve un valor entero de 32 bits que windows utiliza internamente para identificar un control para los programadores de VB estandar carece de valor yaa que su utilidad es al ejecutar rutinas de Windows API.
Servido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

pues me dejas igual q estaba

Publicado por jevi19 (6 intervenciones) el 27/06/2004 16:47:40
No pretendía asignarle ningún valor, solo leerlo. Y lo q me preocupa no es q no aparezca en la ventana de propiedades, sino q el programa peta xq no la reconozca de ninguna manera. Se supone q tiene q estar disponible en tiempo de ejecución, no?? pues mi problema es q no está disponible nunca. Igual soluciono más poniendo el código:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SETTEXT = &HC

Private Sub Command1_Click()

Dim Resultado As Long

Resultado = SendMessage(Command1.hwnd, WM_SETTEXT, 0, ByVal "GRACIAS")


End Sub

Private Sub Form_Load()
Command1.Caption = "PRESIONAME"
End Sub

peta en la linea "Resultado = SendMessage(Command1.hwnd, WM_SETTEXT, 0, ByVal "GRACIAS")", dando el msg de q .hwnd no es dato miembro de Command1.
Q sí, q vale, q ya sé q no es dato miembro....xo entonces q tng q hacer para q este código me funcione???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar