|
| Disable keys? Fra : Kristian Pelle |
Dato : 21-12-00 18:24 |
|
Hejsa...
Er det muligt at "Disable" nogle knapper som fx. ALT+F4 eller
CTRL+ALT+DELETE
i Visual Basic 6.0??
`Hilsen Quane
| |
Gundersen (21-12-2000)
| Kommentar Fra : Gundersen |
Dato : 21-12-00 22:30 |
|
Hej
Jeg håber dette er hvad du søger!
Her koden der skal ind i form'en
Jeg har skervet linie nr på! Skal ikke med i programmet!......
'------------------------------------------------------------------------------------------------------------------
1 Private Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
lpvParam As Any, ByVal fuWinIni As Long) As Long
2 Private Const SPI_SCREENSAVERRUNNING = 97
3 Private Sub Command1_Click()
4 Dim ret As Integer
5 Dim pOld As Boolean
6 ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
7 End Sub
8 Private Sub Command2_Click()
9 Dim ret As Integer
10 Dim pOld As Boolean
11 ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld,
0)
12 End Sub
13 Private Sub Form_Load()
14 Command1.Caption = "Disabled"
15 Command2.Caption = "Enabled"
16 Command1_Click
17 End Sub
18 Private Sub Form_Unload(Cancel As Integer)
19 ' Genetaplering af Ctrl+Alt+Del og Alt+Tab før programmet lukkes
20 Command2_Click
21 End Sub
Dette er så koden! Der skal bruges 2 command knapper og ellers ikke
noget De skal bare være usynlige!.....
Mvh Emil
| |
Bo Carstens (23-12-2000)
| Kommentar Fra : Bo Carstens |
Dato : 23-12-00 11:08 |
|
Jeg har selv i flere sammenhænge brugt en kombination af KeyPress-kommandoen
og så en generel funktion til validering af tekstinput. Det må være muligt
at brodere videre på det så du kan opfange kombination af tastetryk også
(f.eks. ved at gemme de forrige 2 tastetryk).
Her er et eksempel på validering af et dato-felt:
Private Sub txtDato_KeyPress(KeyAscii As Integer)
KeyAscii = validateText(KeyAscii, "1234567890:.-/,", True)
End Sub
som kalder denne funktion:
Public Function validateText(ByVal pKeyin As Integer, ByVal pvalidatestring
As String, ByVal pKanRettes As Boolean)
Dim strValidatelist As String
Dim intKeyout As Integer
If pKanRettes = True Then
strValidatelist = UCase(pvalidatestring) & Chr(8)
Else
strValidatelist = UCase(pvalidatestring)
End If
If InStr(1, strValidatelist, UCase(Chr(pKeyin)), 1) > 0 Then
intKeyout = pKeyin
Else
intKeyout = 0
Beep
End If
validateText = intKeyout
End Function
mvh
Bo Carstens
"Kristian Pelle" <kristian.pelle@get2net.dk> skrev i en meddelelse
news:_2r06.192$mH2.5887@news.get2net.dk...
> Hejsa...
> Er det muligt at "Disable" nogle knapper som fx. ALT+F4 eller
> CTRL+ALT+DELETE
> i Visual Basic 6.0??
>
> `Hilsen Quane
>
>
| |
|
|