[原创]用IMAGE控件制作美观圆形钮(源码公开)

foshan · 发表于 2005-8-16 17:14

就是窗体中的以下四句 API 函数声明，我不会，请大家指正错误，谢谢!对于您提出的问题，将Private 改成 Public ，但却报错。

Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElaspe As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Private Const Sec = 1 Public TID As Long

[此贴子已经被作者于2005-8-16 17:16:16编辑过]

plxmm · 发表于 2005-8-16 17:29

把 Private Const Sec = 1 改放到你的类模块里呢？

ldhyob · 发表于 2005-8-16 18:31

foshan改的非常不错.

出错的原因是因为API函数没有定义为全局的缘故.只要把它们放在模块里定义为全局就好了.

kt9Jjces.rar (22.81 KB, 下载次数: 159)

plxmm · 发表于 2005-8-16 18:35

以下是引用ldhyob在2005-8-16 18:31:00的发言：
foshan改的非常不错.

出错的原因是因为API函数没有定义为全局的缘故.只要把它们放在模块里定义为全局就好了.

请教 ldhyob 版版，定义到类模块中也可以对吗？（针对这个例子而言）

longkw · 发表于 2005-8-16 18:43

很好

foshan · 发表于 2005-8-18 15:32

ldhyob版主：您好!您在第23楼修改后的文档和我在第19的文档中，均有一个不易察觉的问题：打开窗体后，第一次按定“播放”或“暂停”或“退出”按钮，均没有“按钮按下去”的感觉(图片没有发生变化)，但按完一次后，接着再按第二次，就有按钮按下去”的感觉(图片发生变化了)。不知为什么会这样的，应该在任何时候按下按钮，图片均会发生变化，有“按钮按下去”的感觉。问题出在哪里呢？

gougou24 · 发表于 2006-1-13 22:18

学习

ShiWai · 发表于 2006-5-5 12:05

很好

TGB · 发表于 2006-5-5 13:01

真的很好,只是像我这种菜鸟何时才能理解这代码啊...[em14][em14][em14]

panfeng · 发表于 2006-6-22 21:20

我来晚了，估计其他学员都成精了！刻苦的学阿！

		自动登录	找回密码
密码			免费注册