/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste