Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Ultra-Xandre

#21
Sigo teniendo una duda que no entendíbien:
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Constantes para pasarle a la función
Const cerrar = 1
Const reiniciar = 2

¿Por qué Cerrar = 1 Reiniciar = 2?
¿No le puedo cambiar el valor? ¿Es que ese valor ya viene dado por Windows?
#22
Ah ok. Muchas gracias.
#23
Ok. ¿Y lo de ByVal... todo eso As long... ¿no se cambia nunca?
#24
¿Y eses valores ya viene dados por defecto y se los tengo que dar yo?

Digo si esto:  (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

¿Se puede cambiar o va a ser siempre así?
#25
Programación Visual Basic / Duda con las API
11 Mayo 2008, 10:53 AM
Hola, vereis, tengo un problema con las API. Os cuento.
Estoy iniciándome en las API y me leí un tutorial y ponen como ejemplo esta API:
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Ya sé que lo de ExitWindowsEx y lo de User32 va a cambiar, bien, pero, (ByVal uFlags As Long, ByVal dwReserved As Long) As Long ¿va a cambiar? Otra cosa. En Lib, user32.dll o user32, ¿qué se pone?

Y por último, me pusieron este ejemplo:

'Declaración de la función Api
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
'Constantes para pasarle a la función
Const cerrar = 1
Const reiniciar = 2

'Código del Botón
Private Sub Command1_Click()
'Variable para retornar un valor e indicarnos si handubo bien o falló la llamada
Dim retorno As Long


'Dependiendo el Option seleccionado reiniciamos o apagamos
If Option1 Then retorno = ExitWindowsEx(reiniciar, 0)
If Option2 Then retorno = ExitWindowsEx(cerrar, 0)

End Sub

La duda es If Option1 Then retorno = ExitWindowsEx(reiniciar, 0)
If Option2 Then retorno = ExitWindowsEx(cerrar, 0)
¿Por qué pone Reiniciar, 0?
#26
Ni me había fijado. :)
#27
Ya está. Muchas gracias a todos. Me habeis servido de mucho. ;)
#28
Ahora me ha surgido otra duda. Perdonar si molesto:
¿Cómo hago para poner una imagen como botón? Es decir, un PictureBox solo que el problema es que si la imagen ocupa 10 cm y el PictureBox 11 cm me queda 1 cm en gris y no me gusta. ¿Hay alguna otra forma?
#29
Haber, yo le pongo ese code al botón y despues F5 y le doi a ese botón donde puse el comando una vez seleccionado el texto a copiar, y no me lo copia. :S
#30
No va. El problema es que selecciono text1.text lo le doi al botón que tiene ese code y luego lo que copió fue "SendKeys "^(C)""