Código (vb) [Seleccionar]
Sub Combo1_KeyPress(KeyAscii as integer)
if KeyAscii = 13 then
'Código
end if
End sub
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úSub Combo1_KeyPress(KeyAscii as integer)
if KeyAscii = 13 then
'Código
end if
End sub
CitarMOV EAX, [Local.73]
Int Variable;
private sub Form_resize()
command1.left = Me.scalewidth / 2 - command1.width / 2
end sud
Citar
Ecole le atinaste a las 3 solo quitales los signos de pregunto y el 4 parametro como ves dice claramente
Citar' redirect __vbaEnd to EndEx,O sea: Considerando que RealEnd es un procedimiento que solo tiene "DoEvents" , ¿entonces?
' make RealEnd proxy to __vbaEnd
If clsRedirect.Hook("msvbvm60", "__vbaEnd", AddressOf EndEx, AddressOf RealEnd) Then
MsgBox "End wurde gehookt!", vbInformation
Else
MsgBox "Hook fehlgeschlagen", vbExclamation
End If
Citar
1) ¿Si la función victima debe retornar un valor?
2) Al momento de implementar el Hook, ¿todas las aplicaciónes que usen la API en cuestión se verán afectadas?
3) ¿Es directamente a una DLL, no puede ser a una aplicación?
...
Private Sub Command1_Click()
wb.Document.All.Item("TIPO_BUS").Value = "2"
End Sub
Private Sub Form_Load()
wb.Silent = True
wb.Navigate ("http://buscon.rae.es/draeI/html/cabecera.htm")
End Sub
CitarEDITO: sigue saliendo el mismo error :S y lo puse exactamente como me dijiste :/
CitarWebBrowser1.Document.All.Item("color").Value = "1"