acesso negado

[ASP!Vb 0]

esse codigo é pra qndo dar enter dentro de um campo pular para o proximomas da uma mensagem de erro "acesso negado" qndo execut esse codigo, meu formulario ja esta com o key preview = true, alguem conhece algum motivo pra isso estar acontecendo?Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then SendKeys "{TAB}" KeyAscii = 0End IfEnd Sub

[ricardo.frias 0]

Dá uma olhadinha se a propriedade KeyPreview do Form está TRUE...

 

[]´s

[Claudio Neto 3]

Dá sempre uma procurada pelo fórum antes de postas, muitas vezes sua dívida já foi resolvida:

 

 

http://forum.imasters.com.br/index.php?sho...58&hl=enter

[ASP!Vb 0]

resolvi o problema

acontece qndo se instala o intyernet explorer 7.0 ou o windows vista, é medida de segurança do vista

 

usando esse code da certo:

 

 

Option Explicit

Private Const KEYEVENTF_KEYUP = &H2

Private Const INPUT_KEYBOARD = 1

 

Private Type KEYBDINPUT

wVk As Integer

wScan As Integer

dwFlags As Long

time As Long

dwExtraInfo As Long

End Type

 

Private Type GENERALINPUT

dwType As Long

xi(0 To 23) As Byte

End Type

 

Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

 

Public Function SendKeysA(ByVal vKey As Integer, Optional booDown As Boolean = False)

Dim GInput(0) As GENERALINPUT

Dim KInput As KEYBDINPUT

KInput.wVk = vKey

If Not booDown Then

KInput.dwFlags = KEYEVENTF_KEYUP

End If

GInput(0).dwType = INPUT_KEYBOARD

CopyMemory GInput(0).xi(0), KInput, Len(KInput)

Call SendInput(1, GInput(0), Len(GInput(0)))

End Function

 

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

SendKeysA vbKeyTab, True

KeyAscii = 0

End If

End Sub