vcb.cc网站中找到一个demo,写在这里记录一下。
今天收集到的例子:
不知道用吗?
用于显示一个扁平的滚动条.
过 Windows API 钩子和自定义绘制实现:
powerbuilder
// 声明 API 函数 Function Long InitializeFlatSB(Long hwnd) Library "comctl32.dll" Alias For "InitializeFlatSB" Function Long UninitializeFlatSB(Long hwnd) Library "comctl32.dll" Alias For "UninitializeFlatSB" Function Long FlatSB_SetScrollProp(Long hwnd, Long index, Long newValue, Long bRedraw) Library "comctl32.dll" Alias For "FlatSB_SetScrollProp" // 常量定义 Constant Long WS_HSCROLL = 1048576 // 0x00100000 Constant Long WS_VSCROLL = 2097152 // 0x00200000 Constant Long WSB_PROP_CYVSCROLL = 2 Constant Long WSB_PROP_CXHSCROLL = 4 Constant Long WSB_PROP_CYHTHUMB = 10 Constant Long WSB_PROP_PALETTE = 7 // 启用扁平滚动条 Long ll_handle ll_handle = Handle(w_main) // 初始化扁平滚动条 InitializeFlatSB(ll_handle) // 设置滚动条属性 FlatSB_SetScrollProp(ll_handle, WSB_PROP_PALETTE, 0, True) // 使用默认配色

被折叠的 条评论
为什么被折叠?



