文章編號: 179988 - 上次校閱: 2004年2月24日 - 版次: 3.0

FIX： 問題清單檢視的 ColumnHeader Width 屬性

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
Retired KB Article依現狀不再更新的知識庫內容免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。

在此頁中

全部展開 | 全部摺疊

徵狀

當您以程式設計方式設定一個 ColumnHeader 寬度時，實際上會比預期較大欄的寬度。當您嘗試儲存 ColumnHeader 寬度設定，以便您可以在稍後還原時，這會呈現問題。
回此頁最上方

發生的原因

在內部，將一個 ColumnHeader 寬度填補與某些預先決定的常數，以程式設計方式變更時。此邊框距離為不生效如果透過使用者介面變更 [ColumnHeader 寬度。
回此頁最上方

解決方案

如果要解決這個問題，您可以設定或傳回 ColumnHeader 寬度，使用 LVM_SETCOLUMNWIDTH] 或 [LVM_GETCOLUMNWIDTH 訊息 SendMessage API 函數。

常數和函式宣告如下所示： 
     Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
          ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
          ByVal lParam As Long) As Long

     Const LVM_FIRST = &H1000
     Const LVM_GETCOLUMNWIDTH = LVM_FIRST + 29
     Const LVM_SETCOLUMNWIDTH = LVM_FIRST + 30

若要設定 Columnheader，使用訊息 LVM_SETCOLUMNWIDTH 寬度，您可以提供 (從 0 開始) 之資料行的索引為 wParam 和 lParam 與新的寬度。比方說下列陳述式會將 ListView1 第二欄 (索引 1) 的寬度設定為 150： 
    SendMessage ListView1.hWnd, LVM_SETCOLUMNWIDTH, 1, 150

若要擷取 Columnheader，使用訊息 LVM_GETCOLUMNWIDTH 寬度，您為 wParam 提供 (從 0 開始) 之資料行的索引。lParam 未使用，且應該設定為 0。比方說，則以下陳述式會傳回 ListView1 第二個欄 (索引 1) 的寬度: 
    Dim LVWidth as Long
    LVWidth = SendMessage (ListView1.hWnd, LVM_GETCOLUMNWIDTH, 1, 0)
回此頁最上方

狀況說明

Microsoft 已確認這是在本篇文章開頭所列的 Microsoft 產品中有錯誤。這個 Bug 已修正在 Visual Basic 6.0 中。
回此頁最上方

其他相關資訊

重製行為的步驟

  1. 啟動新的專案。預設會建立 Form1。
  2. 按一下 [專案] 功能表上的 [元件]，然後檢查 「 Microsoft Windows 通用控制項 5.0"
  3. 將清單檢視控制項和兩個 CommandButtons 加入 Form1。
  4. 將 Command1] 的 [標題] 屬性變更為儲存寬度] 和 [在標題屬性 Command2 還原寬度。
  5. 將下列程式碼加入至 Form1： 
          Dim iWidth1 As Long
      Dim iWidth2 As Long

      Private Sub Command1_Click()
         'Save the current column widths
         iWidth1 = ListView1.ColumnHeaders(1).Width
         iWidth2 = ListView1.ColumnHeaders(2).Width
      End Sub

      Private Sub Command2_Click()
         'Restore the column widths
         ListView1.ColumnHeaders(1).Width = iWidth1
         ListView1.ColumnHeaders(2).Width = iWidth2
      End Sub

      Private Sub Form_Load()
         'Add 2 column headers to ListView1 and specify an
         'initial width of 1000 for both
         With ListView1
            .View = lvwReport
            .ColumnHeaders.Add , , "Column 1", 1000
            .ColumnHeaders.Add , , "Column 2", 1000
         End With
      End Sub
  6. 按下 F5 鍵以執行專案。
  7. 使用您的游標，調整大小清單檢視控制項第一的欄。
  8. 按一下 [另存寬度，然後按一下 ["還原寬度"] 和 [附註的第一個 ColumnHeader 寬度是大於您所指定的設定。
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
回此頁最上方
關鍵字：?
kbmt kbbug kbfix kbgrpdsvb KB179988 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：179988? (http://support.microsoft.com/kb/179988/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
Retired KB Article依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此，本文係依「現狀」提供，不會再更新。
回此頁最上方