|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
非常感谢楼主的分享,我是菜鸟,有些不明白,希望楼主不吝赐教!
问题一、下面这几行是带图片的,可是这些图片是存放在那儿的(我有吧属性里面的来源图片删掉,但运行时一样会出来,我知道是下面这段代码的作用,但还是不知道怎么用),如果我要更换成自己想要的要怎么修改,还有就是当鼠标放上去的时候按钮上的字体会变绿是怎么实现的,dakai.Picture = dk_u.Picture
xinjian.Picture = xj_u.Picture
baocun.Picture = bc_u.Picture
ziti.Picture = zt_u.Picture
guanyu.Picture = gy_u.Picture
问题二、下面这些代码什么用,
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
Private Const GWL_EXSTYLE = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_EX_LAYERED = &H80000
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Public cf As Boolean, isOld As Boolean, isChange As Boolean, FileName$
问题三、
你模块里面的代码又是做什么的
麻烦楼主忙帮解释一下,我学了很久还是没有完全明白,谢谢了! |
|