ShowColor / ColorOLEToCSS / ColorCSSToOLE / ColorDepth
（创建时间：2010年12月16日 18:19:00）
Jangogo ： 
VB
  1. '弹出颜色选择框  
  2. Public Function ShowColor(ByVal hWnd As Long, Optional ByVal strTitle As String, Optional ByVal clr As OLE_COLOR) As String  
  3. 'hWnd 必填参数，调用窗口的句柄  
  4. 'strTitle 可选，窗口标题，建议为空串  
  5. 'clr  可选，预先选中的颜色，注意本参数是 OLE_COLOR 类型（即Long类型）  
  6. '返回值 是 CSS 的颜色字符串，#0000FF 格式，要转为VB可用的OLE_COLOR类型还需要MyApp.ColorCSSToOLE函数转换一下  
  7.   
  8. '把OLE颜色转换为CSS格式的字符串  
  9. Public Function ColorOLEToCSS(clr As OLE_COLOR) As String  
  10.   
  11. '把字符串转换为OLE颜色类型,智能识别  
  12. Public Function ColorCSSToOLE(clr As String) As Long  
  13.   
  14. '深浅色调配 by nnde  
  15. Public Function ColorDepth(ByVal bc As OLE_COLOR, ByVal v As Integer) As OLE_COLOR  
  16. '参数bc ，原来的颜色  
  17. '参数v 需要调深还是调浅的系数，-255 到 255 之间   
2010年12月16日 18:19
回复(0)分类(1)转发(0)全文打开
文档中心