[VB6] domande varie

[yyzyyz]

ciao forum un paio di domande semplici semplici, skusate ho un amnesia celebrale.

1) far riconoscere allo stesso modo maiuscole e minuscole in una ricerca.
2) come faccio ad attivare/disattivare il maiuscolo (keycode????)
3) come faccio ad attivare il tab (keycode????)
4) come faccio a compattare un DB?

ciao e grazie

[yyzyyz]

up

[Mabi]

Per la prima domanda, potresti basare i criteri di ricerca su una stringa in minuscolo e quindi richiamare la ricerca trasformando la stringa in ingresso.

Per disattivare o attivare il tasto BLOC MAIUSC devi simulare la sua pressione da codice:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Private Sub Command1_Click()
keybd_event vbKeyCapital, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeyCapital, 0, KEYEVENTF_KEYUP, 0
End Sub

Puoi usare la stessa funzione per simulare la pressione degli altri tasti in base alle loro costanti.

[yyzyyz]

Grazie x le tue risposte, volevo sapere una cosa, non c'è un modo x controllare se il tasto "capslock e già maiscolo, in modo ke non lo disattivi?
ho provato il tuo codice ma vabene solo se il "capslock" è disattivato, io volevo controllarlo tipo con una IF se possibile.

grazie ankora

ps. esiste qualke tutorial x il controllo totale della tastiera (codici kesso')

[allejo]

X compattare leggi questo forum

http://forum.html.it/forum/showthrea...hreadid=410819

[yyzyyz]

grazie allejo. Mabi nulla ?

[Mabi]

Eccomi.
Per controllare lo stato di un tasto devi usare la GetKeyState:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Command1_Click()
If GetKeyState(vbKeyCapital) Then
  MsgBox "Attivo"
End If
End Sub

Per avere l'elenco delle costanti dei codici dei tasti basta che fai riferimento all'help di VB oppure a questo sito.
In questo sito invece, trovi una guida per gestire la tastiera.

Ciao

[yyzyyz]

grazie Mabi, finalmente ho risolto