怎样才能不显示光标.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 19 行

对 于 鼠 标 的 可 见 性 控 制 是 调 用 API函 数 showcursor()： 
    声 明 如 下 ： 
     Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long 
     
    参 数 ： 
     bShow有 两 种 情 况 ： 
     bShow=True 鼠 标 显 示 
     bShow=False 鼠 标 隐 藏 
    示 例 ： 
     可 添 加 一 个 Command按 钮 ， 然 后 加 代 码 如 下 ： 
     Private Sub Command1_Click() 
     ShowCursor False 
     End Sub 
     
     Private Sub Form_Unload(Cancel As Integer) 
     ShowCursor True 
     End Sub 
    OK,搞 定 !在 VB6.0内 调 试 通 过 。 
<END>