| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 419 人关注过本帖
标题:模块中的一些代码不懂
只看楼主 加入收藏
小刀神
Rank: 1
等 级:新手上路
帖 子:59
专家分:5
注 册:2018-5-27
结帖率:90.48%
  问题点数:0  回复次数:6   
模块中的一些代码不懂
以下这些代码分别是什么意思?
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

另,鼠标经过Image控件后,Image的Picture属性中的文件变换,当鼠标离开这个控件时,控件中的这个属性在次换回原先的图片,怎么做?
2018-05-31 11:19
wds1
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:24
帖 子:255
专家分:1401
注 册:2016-3-10
  得分:0 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture("d:\2.jpg")
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Image1.Picture = LoadPicture("d:\1.jpg")
End Sub
 
2018-05-31 12:28
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:224
帖 子:4280
专家分:26116
注 册:2008-10-15
  得分:0 
以下这些代码分别是什么意思?
Public Const HTCAPTION = 2                      定义一个常量
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long     声明一个API函数,名字是什么,位于什么DLL中,参数是什么,返回值是什么。
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

授人于鱼,不如授人于渔
早已停用QQ了
2018-05-31 12:31
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:71
帖 子:738
专家分:3955
注 册:2016-5-10
  得分:0 
以下是引用小刀神在2018-5-31 11:19:54的发言:

以下这些代码分别是什么意思?
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

另,鼠标经过Image控件后,Image的Picture属性中的文件变换,当鼠标离开这个控件时,控件中的这个属性在次换回原先的图片,怎么做?


程序代码:
Public Const HTCAPTION = 2   '声明了一个全局常量,名称是 HTCAPTION ,值是 2
Public Const WM_NCLBUTTONDOWN = &HA1   '声明了一个全局常量,名称是 WM_NCLBUTTONDOWN ,值是 HA1,是十六进制数
'
-----------------
Public Declare Function ReleaseCapture Lib "user32" () As Long   '不完全的一个函数引用,缺少函数的参数,
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
'给你一个标准函数声明,供参考:
Public Declare Function SHGetSpec Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
'Public Declare Function-------声明一个全局函数,SHGetSpec----------函数名称,Lib "shell32.dll"---------函数调用的位置
'
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long)-----函数的参数,最后的 As Long 是函数的返回值。
'
----------------

' 鼠标经过Image控件后,Image的Picture属性中的文件变换,当鼠标离开这个控件时,控件中的这个属性在次换回原先的图片   二楼 wds1 回答可行

[此贴子已经被作者于2018-6-2 12:32编辑过]

2018-06-02 12:31
小刀神
Rank: 1
等 级:新手上路
帖 子:59
专家分:5
注 册:2018-5-27
  得分:0 
回复 4楼 ZHRXJR
谢谢
2018-06-04 17:45
小刀神
Rank: 1
等 级:新手上路
帖 子:59
专家分:5
注 册:2018-5-27
  得分:0 
回复 2楼 wds1
谢谢
2018-06-04 17:45
wufuzhang
Rank: 3Rank: 3
来 自:广州
等 级:论坛游侠
威 望:1
帖 子:33
专家分:155
注 册:2017-8-9
  得分:0 
回复 楼主 小刀神
你申明的都是API函数,下载一个API函数手册,里面有详细的解释

http://www.office-cn.net/t/api/api_content.htm
附件: 您没有浏览附件的权限,请 登录注册

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2018-06-05 09:57







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021054 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved