开发工具:
文件大小: 47kb
下载次数: 0
上传时间: 2017-11-19
详细说明： 此程序快速实现多功能进度条。。。。。。 long ll_hdc, ll_hwnd, ll_hRgn ulong ll_hBrushHighCor, ll_hBrushWhiteCor RECT lstr_rect, lstr_LeftRect, lstr_RightRect String ls_Text ls_Text = String(Integer(ide_pos * 100 )) + "%" ll_hBrushHighCor = il_ForeCor ll_hBrushWhiteCor = il_BKCor ll_hBrushHighCor = CreateSolidBrush(il_ForeCor) ll_hBrushWhiteCor = CreateSolidBrush(il_BKCor) ll_hwnd = Handle(This) ll_hdc = GetDC(ll_hwnd) GetClientRect(ll_hwnd, lstr_rect) lstr_LeftRect = lstr_Rect lstr_RightRect = lstr_Rect lstr_LeftRect.Right = lstr_Rect.Left + (lstr_Rect.Right - lstr_Rect.Left)*ide_Pos lstr_RightRect.Left = lstr_LeftRect.Right FillRect(ll_hdc, lstr_LeftRect, ll_hBrushHighCor) FillRect(ll_hdc, lstr_RightRect, ll_hBrushWhiteCor) SetBkMode(ll_hdc, TRANSPARENT) //TRANSPARENT = 1 ll_hRgn = CreateRectRgn(lstr_LeftRect.Left, lstr_LeftRect.Top, lstr_LeftRect.Right, lstr_LeftRect.Bottom) SelectClipRgn(ll_hdc, ll_hRgn) SetTextColor(ll_hdc, il_TextBKCor) DrawText(ll_hdc, ls_Text, -1, lstr_rect, DT_CENTER+DT_VCENTER+DT_SINGLELINE) DeleteObject(ll_hRgn) ll_hRgn = CreateRectRgn(lstr_RightRect.Left, lstr_RightRect.Top, lstr_RightRect.Right, lstr_RightRect.Bottom) SelectClipRgn(ll_hdc, ll_hRgn) SetTextColor(ll_hdc, il_TextForeCor) DrawText(ll_hdc, ls_Text, -1, lstr_rect, DT_CENTER+DT_VCENTER+DT_SINGLELINE) DeleteObject(ll_hRgn) ReleaseDC(ll_hwnd, ll_hdc) ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
