版主:如何屏蔽shift键

liubin_fwlb

我的程序设计好了登录和用户管理窗体,但仍可用shift键来跳过,请问如何解决?

[此贴子已经被作者于2004-11-3 12:50:52编辑过]

wzhy_521

在模块中新建一个写下以下代码

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer

    Dim dbs As Object, prp As Variant

    Const conPropNotFoundError = 3270



    Set dbs = CurrentDb

    On Error GoTo Change_Err

    dbs.Properties(strPropName) = varPropvalue

    ChangeProperty = True



Change_Bye:

    Exit Function



Change_Err:

    If Err = conPropNotFoundError Then    ' Property not found.

        Set prp = dbs.CreateProperty(strPropName, _

            varPropType, varPropvalue)

        dbs.Properties.Append prp

        Resume Next

    Else

        ' Unknown error.

        ChangeProperty = False

        Resume Change_Bye

    End If



End Function





再在一个窗体中做一个按钮在它的click事件中或在窗体的Load事件中写下

Const DB_Boolean As Long = 1

ChangeProperty "AllowBypassKey", DB_Boolean, False



把false改成true则解除刚才的shit

liubin_fwlb

我先试试,多谢!

tszysun

OK

jpj123123

好用，谢谢了      

goodboy040

谢谢分享。。。。。。。。。。。。。。。。

meiweiyuan

恩，又学一招，多谢！

rcylbx

[:50] [:50]

nxjswt

[:22] 学习

yangzhesheng

收藏