Key.Shift (gb.qt4)

Static Property Read Shift As Boolean

Restituisce se si preme il tasto SHIFT (Maiusc).

Questo è all'interno degli eventi ..._ KeyPress o ..._ KeyRelease.

Esempi

' Serve un Button1; con il focus su di esso (Usa il tasto Tab).
' puoi copiare e incollare questo esempio.

PUBLIC SUB Button1_KeyPress()
  IF Key.Shift THEN
    Button1.Text = " True " & CString(Time)
  ELSE
    Button1.Text = " False " & CString(Time)
  ENDIF
END

PUBLIC SUB Form_KeyPress()
' L'evento Shift KeyPress passa spesso per questo evento Form.
  DIM altSet AS Boolean
  TRY altSet = Key.Shift
  altSet = IIf( ERROR , FALSE, altSet)
  IF altSet THEN
    ME.Text = CString(Time) & " True: Il tasto Maiusc viene premuto" 
  ELSE
    ME.Text = CString(Time) & " False: Il tasto Maiusc non è premuto"
  ENDIF
END

Vedi anche