展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 朱果果

    37人对此回答表示赞同

    不会欸,pascal行不?
    展开
    37
    0回复
    发布于 7年前

    评论(0)

    收起评论

  • 徐老师

    37人对此回答表示赞同

    你说的太模糊了,读取什么。如果只是将输入"i"输出“sdasj”是非常简单,

    不需要读取什么 ,程序运行了,            输入i 就  输出 sdasj



    追答
    随便改了一段,我vb不熟。
    Private Sub Form_Click()Dim i As String i= InputBox("请输入i“)If i =”i“Print "sdasj"
    else
    Print "你输入的不是i"
    End Sub


    展开
    37
    0回复
    发布于 7年前

    评论(0)

    收起评论

  • Priya

    37人对此回答表示赞同

    设置Keydown属性不就行了么
    当发生事件,输出
    展开
    37
    0回复
    发布于 7年前

    评论(0)

    收起评论

  • Natalie

    37人对此回答表示赞同


    楼主,把下面的这段代码加到你的工程中,试一下,看是不是你要的效果:

    Private Sub Form_KeyPress(KeyAscii As Integer)
       If ((KeyAscii Or 32) = 105) Then SendKeys "sdasj"
       '如果要把 i “吃掉”,就改用下面这句:
       'If ((KeyAscii Or 32) = 105) Then KeyAscii = 0: SendKeys "sdasj"
    End Sub

    Private Sub Form_Load()
       '如果你已有这个事件过程,把下面这句加到现有的过程中就行了。
       KeyPreview = True
    End Sub

    这个是只对“你自己的那个窗口有效”的。

    要对自己程序中的多个窗口有效,就用普通的HOOK方式。

    如果想在“别的程序中也起作用”,就要用键盘全局HOOK了。


    展开
    37
    0回复
    发布于 8年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部