VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
排序: 热度 日期 标题 默认, 方式 倒序 顺序 VBGood首页 - 经验之谈
评论:0, 阅读:12921, 日期:2001-06-21 [鼠标] 鼠标移动和点击
这个代码片断 需要  一个窗体(废话)~~三个CommandButton 四个Label 一个模块

注释:以下代码在Form1中


注释:************[ Functions ]********************************

#If Win32 Then

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlag
评论:0, 阅读:10515, 日期:2000-03-12 [鼠标] 鼠标取词


鼠标取词



在有些软件里当鼠标移到某单词上,其注释就会显示单词的中文解释.这样的软件是如何制作的呢?下面我就介绍以下获取鼠标所在单词的方法,至于中文结实要关系到数据库及字库问题在此我不做解释.

首先建立新工程,在FORM上添加一个TEXT文本框.

声明Se
评论:0, 阅读:8966, 日期:2001-04-06 [鼠标] 隐藏鼠标
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
    ShowCursor 0
    `Wait 5 seconds
    t = Timer
    D
评论:0, 阅读:8387, 日期:2001-09-16 [鼠标] 隐藏Mouse
隐藏Mouse


作者: cww 

Type POINTAPI
        x As Long
        y As Long
End Type
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" 
评论:0, 阅读:11589, 日期:2000-03-12 [鼠标] 遥控鼠标




在VB中遥控鼠标


尽管Windows的API函数在当今“Visual”成风的时代正渐渐被人们忘却,但是

正如当年开发高技巧的DOS软件离不开汇编语言和DOS系统功能调用一样,无

论开发平台高级到什么地步,只要Windows还在最底层运作,就要用到API函数

。无论VB的开发手段
评论:0, 阅读:8409, 日期:2001-09-16 [鼠标] 设定Mouse 在某个固定范围
 设定Mouse 在某个固定范围


作者: cww 

Type RECT
        Left As Long
        Top As Long
        Right As Long
  &n
评论:0, 阅读:10766, 日期:2000-03-12 [鼠标] 设定 Mouse 光标的位置
在 VB 程序中如何设定 Mouse 光标的位置?

使用 SetCursorPos Windows API, 以下是调用的方法:

1. API 的声明:

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long,

ByVal y As Long) As Long

注:如果以上的声明放在「一般模块」底下,
评论:0, 阅读:9575, 日期:2000-12-16 [鼠标] 让VB应用程序支持鼠标滚轮
让VB应用程序支持鼠标滚轮

时间:2000/12/07 10:09 作者:徐峰 中国软件开发中心



   一、提出问题


   自从1996年微软推出Intellimouse鼠标后,带滚轮的鼠标开始大行其道,支持鼠标滚轮的应用软件也越来越多。但我感到奇怪,为什么VB到6.0本身仍然不支持鼠标滚轮
评论:0, 阅读:11458, 日期:2001-11-02 [鼠标] 获得MouseLeave的方法
获得MouseLeave的方法
作者:土人
VB中缺少一个MouseLeave事件,给编程带来许多不便。例如,当我们想令鼠标移动到一个命令按钮时令其Caption属性为一个名称,离开时又是另一个名称,我们通常只能这么处理:用两个MouseMove事件:一个是命令按钮的,另一个可能是窗体的,也可
评论:0, 阅读:10671, 日期:2001-11-17 [鼠标] 获取鼠标在屏幕上的位置
获取鼠标在屏幕上的位置
作者:土人
在标准EXE工程添加一个Timer、两个Label控件,各属性取默认值。然后给工程拷贝如下代码:

Option Explicit

注释:申明API函数
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private