drawText问题

我想在进度条控件上加上表示进度的数字。  
  可用drawtext不能成功。同样的的代码用于form就可以。不怎么解决!请帮忙看一下。谢谢！  
  Dim   mlnghDC   As   Long  
  Dim   mlngRet   As   Long  
  Dim   mRect   As   RECT  
  Dim   mstrTemp   As   String  
   
          mlngRet   =   GetWindowRect(ProgressBar1.hwnd,   mRect)  
          mlnghDC   =   GetDC(ProgressBar1.hwnd)  
          Debug.Print   mRect.Bottom  
   
          mstrTemp   =   "dd"  
          mlngRet   =   DrawText(mlnghDC,   mstrTemp,   -1,   mRect,   DT_CENTER)  
  问题点数：20、回复次数：2Top

1 楼songyaowu（不以分多而蹭之;不因分少而不答; www.vb99.com）回复于 2006-02-17 13:51:22 得分 20

Private   Declare   Function   GetClientRect   Lib   "user32"   (ByVal   hwnd   As   Long,   lpRect   As   RECT)   As   Long  
   
  应该使用GetClientRect而非GetWindowRectTop

2 楼linkinwork（阿拉斯加雪橇犬）回复于 2006-02-17 14:09:54 得分 0

谢谢!Top

相关问题

• mrect
• drawtext
• mlnghdc
• mlngret
• mstrtemp
• longdim
• progressbar1
• getwindowrect
• 进度
• getclientrect

• 帖主：linkinwork
• songyaowu

• Visual Basic类图书
• Visual Basic类源码下载