[OFF] WINDOWS 8

  
[ô]num modulo
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

Public Declare Function SendInput Lib [Ô]user32.dll[Ô] (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Public 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
 

  
[ô] no form.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Erro
If KeyCode = vbKeyReturn Then
    SendKeysA vbKeyTab, True
ElseIf KeyCode = vbKeyUp Then
    SendKeysA vbKeyShift, True: SendKeysA vbKeyTab, True: SendKeysA vbKeyShift, False
    KeyCode = 0
ElseIf KeyCode = vbKeyDown Then
    SendKeysA vbKeyTab, True
    KeyCode = 0
ElseIf KeyCode = 27 Then
    Unload Me
End If
Exit Sub
Erro:
MsgBox [Ô]Alerta...!!![Ô] & Chr(13) & Chr(13) & [Ô]Erro Número: [Ô] & Err.number & Chr(13) & Chr(13) & [Ô]Erro Descrição: [Ô] & Err.Description, vbCritical, [Ô]PROGma[Ô]: Exit Sub
End Sub
 

Citação:

e so desabilitar uac em contas de usuario e reiniciar o pc q funciona

Citação:

tb tive problema no sendkey.. ai eu achei isso e rodou legal.

Citação:

:
Caro ocelot o vb 2012 realmente é gratuito mas as ocx que vc usa que é pago pra vc comercializar um aplicação tem q pagaar licença. por exemplo um button, um label é gratuito agora uma grid um dataview isso pra vc comercializar é pago. Se vc pode comercializar blz. Então e uma grande ferramenta free não precisa comprar.

Citação:

:
Noite Systems, então, eu já estou usando ele (pra testes mesmo), no meu computador, no Notebook (onde desenvolvo), ainda não instalei, pois quero ter certeza quando for instalar, agora pelo que vi, é muito rápido, no meu caso inicia em menos de 5 segundos, não travou em nenhum momento até agora, a interface nova não é nenhum bicho de sete cabeças não, acostuma rapidinho, e a parte melhor, é COMPATIVEL COM O VB6, pelo menos tudo que fiz até agora em meus testes funcionou 100%, banco de dados(MySQL), relatórios(Crystal Reports), tudo perfeito, registros de DLL[ô]s e OCX[ô]s, todas foram registradas sem nenhum problema, agora a unica coisa que eu me deparei com um problema é a função SendKeys, não vai nem a pau, mas estou tentando achar um jeito de contornar esse problema, pelo que andei lendo, o SendKeys já não era compatível desde o Vista quem dirá o 7, explicar como eu uso essa função no 7? Não sei, mas funciona sem problemas, creio que depois de algum tempo pode vir a funcionar, ou pode nunca funcionar também, mas vale ressaltar que... O erro ocorre somente quando rodo o sistema na IDE do VB6, quando compilo ele, e inicio o sistema pelo executável, roda sem problemas, mas to vendo que o VB6 está perdendo o espaço com os novos [Ô]SO[ô]s[Ô], desde que eu percebi isso já comecei a estudar JAVA, estou quase finalizando meu primeiro projeto em JAVA, bom e sobre o Windows 8, essas são minhas primeiras impressões, abraços.

Citação:

Será que o velho e bom VB6 irá vencer mais este desafio???
VB6 no Windows 8 ???

Citação:

Mas uma coisa é melhor que o Window 7....o Windows 8 é bem mais rápido...