COMBOX中如何输入这样的线条？

chenlifeng123

请教老师：如何在word中的VBA窗体combox里面输出如附件所示的线条呢？

chenlifeng123

有人说是重绘(https://bbs.csdn.net/topics/390142177)，CC代码如下，不知道对不对，如何改成VBA哈？

1. void CShowComboBox::MeasureItem(LPMEASUREITEMSTRUCT lpMeasureItemStruct)  
   
2. {
   
3. // TODO: Add your code to determine the size of specified item
   
4. lpMeasureItemStruct->itemHeight = CComboBox::GetItemHeight(0);
   
5. }
   
6. 
   
7. void CShowComboBox::DrawItem(LPDRAWITEMSTRUCT lpDrawItemStruct) //combobo
   
8. {
   
9. // TODO: Add your code to draw the specified item
   
10.   CDC *pDC=CDC::FromHandle(lpDrawItemStruct->hDC);
    
11. int nSaveDC=pDC->SaveDC();
    
12. CRect itemRect = lpDrawItemStruct->rcItem;
    
13. int nItem = lpDrawItemStruct->itemID;
    
14.      
    
15. if(lpDrawItemStruct->itemAction & ODA_DRAWENTIRE)
    
16. {
    
17.   DrawItemBk(pDC,itemRect,nItem, CS_NORMAL); //画正常状态item的背景
    
18.   DrawItemImage(pDC,itemRect,nItem,GetItemImage(nItem),CS_NORMAL);  
    
19. DrawItemText(pDC,itemRect,nItem,CS_NORMAL);//画正常状态item文
    
20. 
    
21. if(!GetItemDisable(nItem))  
    
22. {
    
23. DrawItemBk(pDC,itemRect,nItem,CS_DISABLED);
    
24. DrawItemImage(pDC,itemRect,nItem,GetItemImage(nItem),CS_DISABLED);
    
25. DrawItemText(pDC,itemRect,nItem,CS_DISABLED);
    
26. }
    
27. }
    
28. 
    
29. if((lpDrawItemStruct->itemState & ODS_SELECTED) &&  
    
30. (lpDrawItemStruct->itemAction & (ODA_SELECT | ODA_DRAWENTIRE)) )
    
31. {
    
32. DrawItemBk(pDC,itemRect,nItem,CS_HOT);
    
33. DrawItemImage(pDC,itemRect,nItem,GetItemImage(nItem),CS_HOT);
    
34. DrawItemText(pDC,itemRect,nItem,CS_HOT);
    
35. }
    
36. 
    
37. if(!(lpDrawItemStruct->itemState & ODS_SELECTED) &&  
    
38. (lpDrawItemStruct->itemAction & ODA_SELECT ) )
    
39. {
    
40. DrawItemBk(pDC,itemRect,nItem,CS_SELECT);
    
41. DrawItemImage(pDC,itemRect,nItem,GetItemImage(nItem),CS_SELECT);
    
42. DrawItemText(pDC,itemRect,nItem,CS_SELECT);
    
43. }
    
44. 
    
45. pDC->RestoreDC(nSaveDC);
    
46. }
    
47. 
    
48. void CShowComboBox::OnPaint(),多处理OnPaint主要是处理edit/static的部分,上边的drawitem是只能处理list中的.
    
49. {
    
50. CPaintDC dc(this); // device context for painting
    
51. CRect rectBk;
    
52. GetClientRect(rectBk);
    
53. 
    
54. DrawBorder(&dc,rectBk,GetComboState());
    
55. DrawBackGround(&dc,rectBk,GetComboState());
    
56. DrawDownButton(&dc,rectBk,GetComboState()); //与按钮一样,有正常,HOT,按下和非激活状态
    
57. 
    
58. if ( CComboBox::GetCount() >0 && CComboBox::GetCurSel() >= 0 )
    
59. {
    
60. int nState = CS_NORMAL;
    
61. int nItem = CComboBox::GetCurSel();
    
62. GetComboState()== CS_SELECT ? nState = CS_DISABLED : nState = CS_NORMAL ;
    
63. CString strItemText = "" ;
    
64. GetLBText(nItem,strItemText);
    
65. DrawItemText(&dc,rectBk,nItem,strItemText,nState);
    
66. DrawItemImage(&dc,rectBk,nItem,GetItemImage(nItem),nState);
    
67. }
    
68. }

复制代码