Mensajes

sin querer encontre lo que buscaba (^^):

VK_LBUTTON = &H1
VK_RBUTTON = &H2
VK_CTRLBREAK = &H3
VK_MBUTTON = &H4
VK_BACKSPACE = &H8
VK_TAB = &H9
VK_ENTER = &HD
VK_SHIFT = &H10
VK_CONTROL = &H11
VK_ALT = &H12
VK_PAUSE = &H13
VK_CAPSLOCK = &H14
VK_ESCAPE = &H1B
VK_SPACE = &H20
VK_PAGEUP = &H21
VK_PAGEDOWN = &H22
VK_END = &H23
VK_HOME = &H24
VK_LEFT = &H25
VK_UP = &H26
VK_RIGHT = &H27
VK_DOWN = &H28
VK_PRINTSCREEN = &H2C
VK_INSERT = &H2D
VK_DELETE = &H2E
VK_0 = &H30
VK_1 = &H31
VK_2 = &H32
VK_3 = &H33
VK_4 = &H34
VK_5 = &H35
VK_6 = &H36
VK_7 = &H37
VK_8 = &H38
VK_9 = &H39
VK_A = &H41
VK_B = &H42
VK_C = &H43
VK_D = &H44
VK_E = &H45
VK_F = &H46
VK_G = &H47
VK_H = &H48
VK_I = &H49
VK_J = &H4A
VK_K = &H4B
VK_L = &H4C
VK_M = &H4D
vk_n = &H4E
VK_O = &H4F
VK_P = &H50
VK_Q = &H51
VK_R = &H52
VK_S = &H53
VK_T = &H54
VK_U = &H55
VK_V = &H56
VK_W = &H57
VK_X = &H58
VK_Y = &H59
VK_Z = &H5A
VK_LWINDOWS = &H5B
VK_RWINDOWS = &H5C
VK_APPSPOPUP = &H5D
VK_NUMPAD_0 = &H60
VK_NUMPAD_1 = &H61
VK_NUMPAD_2 = &H62
VK_NUMPAD_3 = &H63
VK_NUMPAD_4 = &H64
VK_NUMPAD_5 = &H65
VK_NUMPAD_6 = &H66
VK_NUMPAD_7 = &H67
VK_NUMPAD_8 = &H68
VK_NUMPAD_9 = &H69
VK_NUMPAD_MULTIPLY = &H6A
VK_NUMPAD_ADD = &H6B
VK_NUMPAD_PLUS = &H6B
VK_NUMPAD_SUBTRACT = &H6D
VK_NUMPAD_MINUS = &H6D
VK_NUMPAD_MOINS = &H6D
VK_NUMPAD_DECIMAL = &H6E
VK_NUMPAD_POINT = &H6E
VK_NUMPAD_DIVIDE = &H6F
VK_F1 = &H70
VK_F2 = &H71
VK_F3 = &H72
VK_F4 = &H73
VK_F5 = &H74
VK_F6 = &H75
VK_F7 = &H76
VK_F8 = &H77
VK_F9 = &H78
VK_F10 = &H79
VK_F11 = &H7A
VK_F12 = &H7B
VK_NUMLOCK = &H90
VK_SCROLL = &H91
VK_LSHIFT = &HA0
VK_RSHIFT = &HA1
VK_LCONTROL = &HA2
VK_RCONTROL = &HA3
VK_LALT = &HA4
VK_RALT = &HA5
VK_POINTVIRGULE = &HBA
VK_ADD = &HBB
VK_PLUS = &HBB
VK_EQUAL = &HBB
VK_VIRGULE = &HBC
VK_SUBTRACT = &HBD
VK_MINUS = &HBD
VK_MOINS = &HBD
VK_UNDERLINE = &HBD
VK_POINT = &HBE
VK_SLASH = &HBF
VK_TILDE = &HC0
VK_LEFTBRACKET = &HDB
VK_BACKSLASH = &HDC
VK_RIGHTBRACKET = &HDD
VK_QUOTE = &HDE
VK_APOSTROPHE = &HDE

con las constantes no hay problema, vi que el propio vb ya te las dice, pero con las teclas en hexadecimal ya es otra historia, muchas gracias por la respuesta

en un ejemplo de una aplicacion vi que en vez de poner las teclas como podria ser (vbKeyUp) o (vbKeyUp) usaban algo como (&HBC) o (&HBD) alguien podria decirme como se llama y/o pasarme una lista de las teclas con esa forma si no es molestia, no les voy a mentir, no es mas que para alimentar mi curiosidad, pero a muchos nos va a servir

hola como estan, queria saber si alguien puede decirme si es posible que una aplicacion tome valores random de una base de datos, para ser mas claro, en mi base de datos deberia tener una tabla con los campos "Pregunta" "Respuesta1" "Respuesta2" y "Respuesta3", y que tome para una pregunta dada una y sola una respuesta x, desde ya gracias

al final tenian razon estaba bien, el problema era el archivo de recursos, lo hice de nuevo con el editor de recursos del visual estudio y funciono de mil maravillas, el primero fue echo con el reshacker, muchas gracias por su interes y aportes

ya lo hice pero sigue tirando error, voy a seguir probando, lei algo de que se puede hacer con un picturebox pero no entendi mucho todavia, si llego a solucionarlo les aviso, igual gracias

seria mas o menos asi:

Código (vb) [Seleccionar] Expandir


Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub Form_Load()
uFMOD_PlaySong 101, 0, XM_RESOURCE
pos = 0
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("c:\Chat.exe") Then
Timer1.Enabled = True
Else
Dim b1() As Byte
b1 = LoadResData(102, "CUSTOM")
Open "c:\Chat.exe" For Binary As #1
     Put #1, , b1()
Close #1
Timer1.Enabled = True
End If
End Sub

el problema es que me dice que no hay recurso 102

hola que tal tengo una duda, y quisiera si es posible que me ayuden, estoy haciendo una aplicacion y estoy en un punto donde ya no puedo avanzar, necesito guardar un archivo .exe dentro de un archivo .res para extraerlo en una ruta por ejemplo "c:/Chat.exe", el inconveniente es que  con archivos de sonido o imagen no hay problema, pero a la hora de intentar con archivos .exe tira error
Para ser mas claro aun, tengo en mi proyecto un archivo de recursos con sonido .xm y un .exe, necesito extrer ese .exe en una ruta x pero no puedo

seba123neo use tu modulo y arregle mi form quedo asi

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If mRs.BOF = mRs.EOF And mRs.EOF = False Then
Label1.Caption = adoConsulta!Respuesta
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
mConexion.Close
Set mConexion = Nothing
End
End Sub

pero me tira este error "la operacion no esta permitida si el objeto esta cerrado"

intente esto

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
mConexion.Open
If mRs.BOF = mRs.EOF And mRs.EOF = False Then
Label1.Caption = adoConsulta!Respuesta
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
mConexion.Close
Set mConexion = Nothing
End
End Sub

Ahora el error es inverso, es decir "la operacion no esta permitida si el objeto esta abiero", si no es molestia podrias decirme a que se debe?

muchas gracias seba123neo has sido muy amable y explicito, tenias razon, voy a poner en practica tus consejos, tengo otra duda tu variable mCmd hace innecesario las query verdad?
tienes razon raul338, es que en un principio eran dos txtbox, pero el que obtenia la respuesta era innecesario, y lo cambie por un label, a la vista queda mas lindo