1,在使用开发出的程序时，有时会出现键盘锁死的问题
你好，我用的操作系统是windows2000 professional。用的开发软件时microsoft visual basic 6.0。
在使用开发出的程序时，有时会出现键盘锁死的问题。而且有的机器在用同样的操作系统下使用时，出现的频率或高或低。
我在编程时，在keydown事件中加入了if keycode=vbkeyreturn then sendkeys {"TAB"},在keypress事件中加入了
call PressInt（keyascii）,pressInt 中的代码 If (KeyAscii >= 48) And (KeyAscii 我想是不是键盘的输入控制把键盘锁死了。我调用的pressint是全局函数。我不知问题具体出在哪里？怎么解决？
2,如何屏蔽掉Crtl和Alt之间的开始菜单键
问题：如何屏蔽掉Crtl和Alt之间的开始菜单键?能否给出实例，谢谢
3,KeyDown事件中小键盘输入的数字检测不到
这是一个键盘检测程序，如果输入25585425，会弹出一的对话框但是问题是只有左边的数字键输入有效，小键盘输入的数字检测不到，是不是小键盘上的数字2不是用vbkey2表示？我手头照料一时找不到，我急需知道，麻烦你了。。。。
我先写了这么一个类模块egg.clsOption Explicit
Private mskeyphrase As String * 8
Property Let char(keycode As Integer)
Select Case keycode
Case vbKey2: mskeyphrase = Mid$(mskeyphrase, 2) & "2"
Case vbKey5: mskeyphrase = Mid$(mskeyphrase, 2) & "5"
Case vbKey8: mskeyphrase = Mid$(mskeyphrase, 2) & "8"
Case vbKey4: mskeyphrase = Mid$(mskeyphrase, 2) & "4"
End Select
If mskeyphrase = "25585425" Then easteregg
End Property
Private Sub easteregg()
MsgBox "i'm here"
End
End Sub
******************************************
然后再在主窗体加入如下代码：
Option Explicit
Dim eggtest As New egg
Private Sub Form_KeyDown(keycode As Integer, Shift As Integer)
eggtest.char = keycode
End Sub
Private Sub Form_Load()
KeyPreview = True
End Sub
4,如何在文本框中屏蔽掉某些键
问题: 我在文本框（TEXTBOX）中输入文字时，因为文本框中字符串格式特殊，我想屏蔽掉DELETE 和BACKSPACE 这两个编辑键，即只能从键盘输入字符，输入的字符自动覆盖文本框中内容，而DELETE 、BACKSPACE等编辑键无效，请指教如何实现，谢谢！
5,怎样才能不显示光标
我 用 VB编 一 个 屏 保 程 序 ， 可 是 当 程 序 运 行 以 后 ， 我 的 鼠 标 还 在 屏 幕 上 ， 请 问 我 该 怎 样 才 能 去 掉 光 标 ？
6,VB中表单对于按钮的方向键应该如何处理的
问 题 ： 在 一 个 表 单 中 ， 放 置 有 两 个 命 令 按 钮 1和 2， 当 前 焦 点 在 1上 ， 我 想 用 键 盘 方 向 键 控 制 按 钮 1在 表 单 中 自 由 移 动 ， 结 果 焦 点 移 到 按 钮 2上 ， 不 知 道 如 何 实 现 我 所 要 的 控 制 效 果 ？ 另 外 ， VB中 表 单 对 于 按 钮 的 方 向 键 是 如 何 处 理 的 ？
7,用sendseys为什么不能复制所选内容
问 题 ： 请 问 我 通 过 vb-api的 setforegroudwindow函 数 把 IE浏 览 器 设 为 当 前 页 ， 然 后 选 中 一 些 文 本 ， 用 sendseys "^C"为 什 么 不 能 复 制 所 选 内 容 ？
8,如何把活动窗口转到我的程序上，或是封闭键盘
问 题 ： 如 何 把 活 动 窗 口 转 到 我 的 程 序 上 ， 或 是 如 何 封 闭 键 盘 ？
9,按钮的快捷方式能不能用功能键
问 题 : 按 钮 的 快 捷 方 式 能 不 能 用 function 键 ， 如 f1。
10,如何自己定义一个新的键盘布局
问 题 ： 如 何 自 己 定 义 一 个 新 的 键 盘 布 局 ？ 用 VB可 以 实 现 吗 ?
11,MouseDown和MouseUp触发的次数不同
问 题 ： 在 一 自 制 控 件 中 用 MouseDown检 测 鼠 标 的 压 下 用 MouseUp检 测 鼠 标 的 放 开 ， 在 鼠 标 慢 点 时 点 击 事 件 正 常 ， 可 是 连 击 时 ， 有 的 MouseDown事 件 有 的 漏 掉 ， 在 MouseUp事 件 里 却 不 漏 掉 ， 用 下 面 的 代 码 可 以 看 出 。
Private Sub UserControl_MouseDown(Button as integer,Shift as Integer,X as_ Single,Y as single)
Static i As Long
i=i+1
Label1=i
End Sub
Private Sub UserControl_MouseUp(Button as integer,Shift as Integer,X as_ Single,Y as single)
Static j As Long
j=j+1
label2=j
End Sub
快 速 点 击 时 两 标 签 上 显 示 的 数 值 不 同 ， 而 慢 速 点 击 时 两 个 数 值 又 相 等 。 请 问 如 何 正 确 的 检 测 到 它 们 的 点 击 事 件 。 谢 谢 。
12,如何将按钮操作定义成快捷键
问 题 : 我 在 做 程 序 时 需 要 做 成 键 盘 与 鼠 标 都 能 操 作 的 ， 而 且 有 许 多 按 钮 要 定 义 成 快 捷 键 （ 我 不 想 用 TAB键 来 回 切 换 ） ， 请 问 专 家 如 何 实 现 ， 谢 谢 ！
13,怎样实现横向拖动一个控件
问 题 ： 怎 样 实 现 横 向 拖 动 一 个 控 件 ， 就 像 winamp中 拖 动 那 个 进 度 块 一 样 ？
14,如何在鼠标右键的CLICK事件中显示已定义的菜单
问 题 : 如 何 对 说 鼠 标 右 键 的 CLICK事 件 ， 显 示 已 定 义 的 菜 单 ， 即 单 击 右 键 弹 出 菜 单 ？
15,如何判断多个键同时按下
问 题 : 如 何 做 这 样 的 键 盘 接 收 程 序 :同 一 时 刻 可 以 判 断 哪 几 个 键 被 按 下 ,我 做 电 子 游 戏 .如 在 一 次 键 盘 查 询 中 判 断 到 "
16,如何在同一个工程中进行拖放操作
问 题 : How to drag one Form's data to another Form in the same Project?
I have a project contains 2 Forms. Both Forms have a listbox. And I want to drag Form 1's list1.text to Form2.list2.list. I know how to drag and drop within the same form, however, I don't know how to drag over one Form to another. Because the Mouse cannot receive window message when it leaves the Form. I have read some books which said that can done by API to catch the Mouse's position, such as GetCursorPos.. But I am just a beginner of VB, so I do not understand how to do it in real.
17,VB为什么捕捉不到{tab}键
问 题 ： VB 6 为 什 么 捕 捉 不 到 {tab}键 ？ 我 想 捕 捉 {tab}键 ， 用 下 面 的 方 法 不 行 ， 但 同 样 的 方 法 可 以 捕 捉 到 其 它 键 ， 如 {ESC}、 {enter}， 所 用 的 事 件 和 程 序 片 段 如 下 ：
Private Sub TextEdit_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then
msgbox "This is the {tab} key."
End If
End Sub
Private Sub TextEdit_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 9 Then
msgbox "This is the {tab} key."
End If
End Sub
按 下 {tab}键 ， 以 上 程 序 不 响 应 ， 为 什 么 ？ 谢 谢 解 答 ！ ！ ！
18,能否用程序设定鼠标的双击时间
能 否 用 程 序 设 定 鼠 标 的 双 击 时 间 ？ 注 册 表 的 键 值 发 生 变 化 之 后 ， 但 是 不 起 作 用 。 HKEY_CURRENT_USER\Control Panel\Mouse,DoubleClickSpeed
19,怎样得到键盘上Caps Lock和Num Lock两键的状态
怎 样 得 到 键 盘 上 Caps Lock和 Num Lock两 键 的 状 态 ？
20,如何能使MOUSE移到菜单上，任务栏上出现提示信息
问 题 ： 如 何 能 使 MOUSE移 到 菜 单 上 ， 任 务 栏 上 出 现 提 示 信 息 ？
21,怎样锁定键盘
问 题 ： 怎 样 锁 定 键 盘 （ 按 任 一 键 及 所 有 组 全 键 都 不 起 作 用 ） ， 象 死 机 一 样 。
22,用SendKeys()函数如何将Ctrl alt shift键的状态和普通的键一起送出
我 现 在 想 在 我 的 编 辑 器 中 写 一 个 宏 录 制 程 序 ， 遇 到 了 一 个 问 题 。 用 SendKeys()函 数 如 何 将 Ctrl,alt,shift键 的 状 态 和 普 通 的 键 一 起 送 出 ？ 打 个 比 方 我 按 下 了 Ctrl+W键 在 宏 执 行 的 时 候 ， 我 如 何 将 这 两 个 键 发 送 出 去 。 我 是 将 Ctrl,Alt,Shift键 相 对 应 的 字 符 存 放 在 一 个 变 量 中 的 。
sample:sendkeys ConState{"a"}
ConState存 储 的 是 ctrl,alt,shift的 字 符 串
23,如何在A窗口中向B窗口发出KEYDOWN消息
如 何 在 A窗 口 中 向 B窗 口 发 出 一 个 消 息 ,以 便 被 B窗 口 中 FORM_KEYDOWN所 接 收 ？ 不 用 SendKeys实 现 。
24,当鼠标移到按钮上时，按钮如何移动到随机的位置上使鼠标不能点击到
问 题 : 请 问 在 vb中 ， 如 何 实 现 “ 当 把 鼠 标 移 到 一 个 按 钮 上 时 ， 按 钮 会 移 动 到 一 个 随 机 的 位 置 上 ， 从 而 鼠 标 不 能 点 击 到 按 钮 ” ?
25,如何在程序运行后，用鼠标的左键拖动控件到窗体的任意位置
问 题 : 如 何 在 程 序 运 行 后 ， 用 鼠 标 的 左 键 拖 动 label到 窗 体 的 任 意 一 个 位 置 ？
26,如何控制WebBrowser控件的滚动条
问 题 ： 我 编 了 一 个 网 页 浏 览 器 ， 是 用 WebBrowser控 件 做 的 ， 但 我 想 控 制 WebBrowser控 件 的 滚 动 条 ， 使 它 变 为 自 动 ， 比 如 说 每 隔 一 分 钟 滚 动 条 就 会 自 动 向 下 滚 动 一 页 ， 有 好 方 法 吗 ？
27,KEYPRESS，KEYDOWN，KEYUP三事件的区别
问 题 : 在 编 程 中 ， 不 知 TEXT控 件 的 KEYPRESS， KEYDOWN， KEYUP三 事 件 的 区 别 ？
28,如何改变文本插入点的形状
另 外 我 还 有 个 问 题 ： CreateCaret()函 数 的 用 法 。
29,怎样向正在运行的程序发送关闭、最大化、最小化的命令
问 题 : 怎 样 向 正 在 运 行 的 程 序 发 送 关 闭 、 最 大 化 、 最 小 化 的 命 令 ?
30,如何传递按键到指定程序
问题: 请问在VB中用SENDMESSAGE向一个应用程序发例如CTRL+B,程序语句该怎么写。应用程序的窗口句柄如A.hwnd。
31,使用了SetCapture函数，控件的ToolTipText属性不起作用了
我 用 VB6写 了 个 按 钮 控 件 ， 并 且 我 在 Usercontrol_MouseMove及 Usercontrol_MouseDown、 Usercontrol_MouseUp事 件 中 使 用 语 句 。
SetCapture Usercontrol.hWnd '截 获 Mouse事 件
这 样 我 就 可 以 为 我 的 控 件 添 加 MouseIn 及 MouseOut事 件 了 ， 效 果 很 好 。 但 出 现 一 个 问 题 ,就 是 控 件 的 ToolTipText属 性 不 起 作 用 了 ， 也 就 说 不 能 显 示 ToolTipText。 请 问 这 个 问 题 该 怎 样 解 决 ， 请 指 教 ， 谢 谢 !
32,怎样调用画笔的功能
请 问 在 VB中 调 用 Windows的 画 笔 后 ， 怎 样 调 用 画 笔 的 功 能 ， 比 如 怎 样 设 置 的 图 象 的 大 小 （ 改 变 画 笔 里 的 图 象 那 项 的 属 性 ） ， 还 有 画 笔 里 的 其 它 功 能 ， 怎 样 用 程 序 来 调 用 。
33,如何实现当鼠标指针移停顿数秒后自动出现提示浮动条
常 见 到 在 有 的 软 件 中 ， 当 我 的 鼠 标 指 针 移 到 工 具 栏 某 一 按 扭 上 停 顿 数 秒 后 会 自 动 出 现 关 于 这 一 按 扭 作 用 的 提 示 浮 动 条 ， 如 在 Word、 Execl的 工 具 栏 中 ...请 问 在 vb中 能 否 用 代 码 或 其 它 方 式 实 现 ？
34,如何使鼠标的指针图标根据需要动态改变
如 何 使 得 程 序 运 行 中 ， 鼠 标 的 指 针 图 标 根 据 需 要 随 时 和 动 态 的 改 变 ？ 例 如 ， 当 我 的 鼠 标 移 动 到 窗 体 上 的 某 控 件 时 ， 鼠 标 的 指 针 就 发 生 了 变 化 。
35,如何使控件的内容根据鼠标的位置发生变化
我 是 VB初 学 者 ， 现 有 一 事 不 明 须 请 教 ： 我 做 了 一 表 单 Form， 上 有 一 图 片 Image1， 当 鼠 标 移 动 (Move)到 Image1时 ， Image1变 成 Image2， 不 知 程 序 该 如 何 实 现 ？
36,拖动文件时拖动图标是如何实现的
问 题 ： 在 资 源 管 理 器 中 拖 动 文 件 时 拖 动 图 标 是 如 何 实 现 的 ?
37,在KeyPress事件中如何捕获到Delete键
在 keypress事 件 中 如 何 捕 获 到 delete键 ?
38,如何计算鼠标的移动速度
如 何 利 用 GetCursorPos来 计 算 鼠 标 的 速 度 ？ (如 :米 /秒 )
39,当窗体隐藏时如何知到某个键盘按键被按下
专 家 您 好 :当 窗 体 隐 藏 时 如 何 知 到 某 个 键 盘 按 键 被 按 下 ?
40,如何让程序在循环中响应键盘事件
在 do while_loop中 我 想 让 程 序 响 应 键 盘 事 件 ， 我 在 里 面 加 上 if keycode=&h70 then end， 可 它 就 是 不 运 行 这 句 话 。 不 知 要 怎 么 写 才 好 ？
41,如何设置鼠标为不可见及如何捕捉到鼠标移动
如 何 设 置 鼠 标 为 不 可 见 ? 在 未 按 鼠 标 时 如 何 捕 捉 到 鼠 标 移 动 ?
42,要用鼠标点一下才能响应SetCapture
我 声 明 了 SETCAPTURE等 两 个 函 数 ， 再 用 以 下 语 句 捕 捉 FORM1的 MOUSE EXIT事 件 ：
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseEnter As Boolean '鼠 标 进 入 的 标 志 位
MouseEnter = (0 If MouseEnter Then '鼠 标 已 经 进 入
Me.Caption = "Mouse In Button!"
SetCapture form1.hWnd
Else '鼠 标 已 经 离 开
Me.Caption = "Mouse Out!"
ReleaseCapture
End If
End Sub
但 每 当 鼠 标 移 进 FORM的 用 户 区 域 ， 再 移 去 其 他 地 方 （ 其 他 FORM） ， 程 序 总 会 停 止 响 应 ， 要 用 鼠 标 点 一 下 才 行 ， 不 知 是 为 什 么 ？
43,如何使弹出式菜单的取消键改为右键
在 制 作 弹 出 式 菜 单 时 ， 一 般 的 取 消 方 式 是 在 菜 单 外 点 击 鼠 标 左 键 ， 如 何 使 取 消 键 改 为 右 键 ？
