菜鸟也疯狂，易语言自绘控件__进度条、滑块条

进度条的自绘，关键的是用 GetWindowLong 得到一个进度条的结构：

.版本 2
.数据类型 进度条结构
    .成员 hWnd, 整数型, , , 进度条窗口句柄
    .成员 dwStyle, 整数型, , , 进度条窗口样式
    .成员 iMin, 整数型, , , 最小最大进度
    .成员 iMax, 整数型, , , 当前进度值
    .成员 iPos, 整数型, , , 进度步长
    .成员 hFont, 整数型, , , 文本字体
    .成员 _clrBk, 整数型, , , 背景颜色
    .成员 _clrBar, 整数型, , , 进度条颜色

有了这个结构，怎么绘制那就不用多说了，见源码吧

滑块条的自绘，相对来说，功夫要下多点，这是因为其变化较多，如 方向;刻度类型;允许选择……等，这些属性的变化都会影响其外观，所以自绘时要能正确反映这些属性的变化情况

源码下载：

http://bbs.eyuyan.com/read.php?tid=222216