OL2000: Làm thế nào để sắp xếp một danh sách hộp hoặc hộp Combo

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này:227178
Bài viết này đã được lưu trữ. Bài viết được cung cấp "nguyên trạng" và sẽ không còn được cập nhật nữa.
TÓM TẮT
Trong Microsoft Outlook, there's no way trực tiếp, hoặc được xây dựng trong, sắp xếp các nội dung kiểm soát của một danh sách hộp hoặc combo hộp. Bài viết này cung cấp hai ví dụ sử dụng Visual Basic script Edition (VBScript) mã để sắp xếp thông tin.
THÔNG TIN THÊM
LƯU Ý: Để đơn giản, thuật ngữ hộp danh sách có thể được dùng để biểu thị hoặc một hộp danh sách hoặc một combo hộp kiểm soát.

Microsoft cung cấp lập trình ví dụ để minh hoạ chỉ, không có bảo hành hoặc thể hiện hay ngụ ý, bao gồm nhưng không giới hạn, bảo đảm ngụ ý khả năng bán hàng và/hoặc cho một mục đích cụ thể. Bài viết này giả định rằng bạn đã quen thuộc với ngôn ngữ lập trình được chứng minh và các công cụ được sử dụng để tạo ra và gỡ lỗi thủ tục. Microsoft hỗ trợ các chuyên gia có thể giúp giải thích các chức năng của một thủ tục cụ thể, nhưng họ sẽ không sửa đổi các ví dụ để cung cấp thêm chức năng hoặc xây dựng quy trình để đáp ứng nhu cầu cụ thể của bạn.
Nếu bạn có hạn chế kinh nghiệm lập trình, bạn có thể muốn liên hệ với một Microsoft Certified Partner hoặc dịch vụ tư vấn của Microsoft. Để biết thêm chi tiết, truy cập vào các trang Web Microsoft:

Microsoft Certified đối tác- https://Partner.Microsoft.com/Global/30000104

Dịch vụ tư vấn của Microsoft- http://support.Microsoft.com/GP/advisoryservice

Để biết thêm về các tùy chọn hỗ trợ có sẵn và về làm thế nào để liên hệ với Microsoft, ghé thăm Web site sau của Microsoft:http://support.Microsoft.com/Default.aspx?SCID=FH;EN-US;CNTACTMS

Bằng cách sử dụng phương pháp Items.Sort

Phương pháp này giả định rằng bạn đang populating hộp danh sách với thông tin từ mục trong một thư mục Outlook. Nếu vậy, bạn có thể sử dụng các Items.sort phương pháp sắp xếp các khoản mục dựa trên một lĩnh vực cụ thể, để lặp qua những mặt hàng được sắp xếp, và chèn các giá trị của lĩnh vực này vào hộp danh sách.

Ví dụ này có thể thêm một hộp danh sách vào một hình thức nhiệm vụ và cư hộp danh sách với số liên lạc từ cặp liên hệ mặc định. Các địa chỉ liên lạc có thể được sắp xếp theo lĩnh vực tên đầy đủ.
  1. Mở một mục tác vụ mới.
  2. Trên các Công cụ trình đơn, nhấp vào Các hình thức, và sau đó nhấp vào Thiết kế mẫu này.
  3. Bấm vào các (P.2) tab.
  4. Trên các Hình thức trình đơn, nhấp vào Hộp công cụ kiểm soát. Trên hộp công cụ điều khiển, nhấp và kéo một ListBox vào mẫu.
  5. Nhấp chuột phải vào hộp danh sách và sau đó nhấp vào Thuộc tính. Trên các Giá trị Trang, nhấp vào Mới....Loại TestLB Đối với tên và bấm Ok. Nhấp vào Ok một lần nữa.
  6. Trên các Hình thức trình đơn, nhấp vào Xem mã.
  7. Trong trình biên tập kịch bản, gõ VBScript mã sau đây:
    Sub Item_Open()   Set objFormPage = Item.GetInspector.ModifiedFormPages("P.2")   Set objListBox = objFormPage.Controls("ListBox1")    Set objNS = Application.GetNamespace("MAPI")<BR/>   ' Get the default Contacts folder   Set objConFolder = objNS.GetDefaultFolder(10) ' olFolderContacts   ' Get the items in the folder   Set colConItems = objConFolder.Items   ' Create a Restrict filter   strFilter = "[FullName] <> " & Chr(34) & Chr(34)   ' Just get those contacts with a Full Name   Set colResItems = colConItems.Restrict(strFilter)   ' Sort the contacts based on FullName   colResItems.Sort "[FullName]"   ' Loop through all of the sorted contacts   For Each objItem in colResItems      ' Add the name to the listbox      objListBox.AddItem objItem.FullName   Next   ' Loop through all of the sorted contacts   For Each objItem in colResItems      ' Add the name to the listbox and ignore distribution lists      If Left(objItem.MessageClass, 11) = "IPM.Contact" Then         objListBox.AddItem objItem.FullName      End If   NextEnd Sub					
  8. Trên các Hình thức trình đơn, nhấp vào Chạy điều này mẫu.
  9. Bấm vào các P.2 Trang của các hình thức.
Sự kiện này Item_Open có thể chạy, và sau đó các mã VBScript có thể sắp xếp các số liên lạc và tải hộp danh sách trên trang P.2.

Sử dụng một thuật toán phân loại

Phân loại các thuật toán có thể được sử dụng để sắp xếp danh sách bất kỳ. Trong ví dụ sau, các giá trị trong hộp danh sách đang được xác định trước và được sắp xếp bằng cách sử dụng các thuật toán sắp xếp bong bóng. Lưu ý rằng các giá trị này cũng có thể được lấy từ nguồn khác, chẳng hạn như một ứng dụng cơ sở dữ liệu bên ngoài.
  1. Trên các Công cụ trình đơn, nhấp vào Các hình thức, và sau đó nhấp vào Thiết kế một mẫu.
  2. Trong các Thư viện hình thức chuẩn, bấm Tin nhắn, và sau đó nhấp vào Mở.
  3. Bấm vào các (P.2) tab.
  4. Trên các Hình thức trình đơn, nhấp vào Hộp công cụ kiểm soát. Trên hộp công cụ điều khiển, nhấp và kéo một ListBox vào mẫu.
  5. Nhấp chuột phải vào hộp danh sách và bấm Thuộc tính. Trên các Giá trị Trang, nhấp vào Mới.... Loại TestLB tên và bấm Ok. Trong các Giá trị có thể lĩnh vực, loại Chó;Mèo;Chuột;Ngựa;Lợn;Bò;Gà;Thỏ, và sau đó bấm OK.
  6. Trên hộp công cụ điều khiển, nhấp và kéo một CommandButton vào mẫu.
  7. Nhấp chuột phải vào nút lệnh, và sau đó nhấp vào Thuộc tính. Bấm vào các Màn hình tab, loại Sắp xếp chú thích và sau đó bấm Ok.
  8. Trên các Hình thức trình đơn, nhấp vào Xem mã.
  9. Trong trình biên tập kịch bản, gõ VBScript mã sau đây:
    Sub CommandButton1_Click()   Dim strArray(8)   Set FormPage = Item.GetInspector.ModifiedFormPages("P.2")   Set ListBox1 = FormPage.Controls("ListBox1")   For i = 0 to 7      strArray(i) = ListBox1.List(i)   Next   Sort strArray, ListBox1End SubSub Sort(inpArray(), inpList)   Dim intRet   Dim intCompare   Dim intLoopTimes   Dim strTemp   For intLoopTimes = 1 To UBound(inpArray)      For intCompare = LBound(inpArray) To UBound(inpArray) - 1         intRet = StrComp(inpArray(intCompare), _         inpArray(intCompare + 1), vbTextCompare)         If intRet = 1 Then            ' String1 is greater than String2            strTemp = inpArray(intCompare)            inpArray(intCompare) = inpArray(intCompare + 1)            inpArray(intCompare + 1) = strTemp         End If      Next   Next   inpList.Clear   For intCompare = 1 To UBound(inpArray)      inpList.AddItem inpArray(intCompare)   NextEnd Sub					
  10. Trên các Hình thức trình đơn, nhấp vào Chạy mẫu này.
  11. Bấm vào các P.2 tab, và bấm vào các Sắp xếp nút để sắp xếp hộp danh sách.
THAM KHẢO
Để có thêm thông tin về nguồn lực sẵn có và câu trả lờithường được hỏi câu hỏi về các giải pháp của Microsoft Outlook 2000,Xem bài viết sau trong cơ sở kiến thức Microsoft:
146636 OL2000: Câu hỏi về các hình thức tùy chỉnh và các giải pháp Outlook
OutSol OutSol2000

Thuộc tính

ID Bài viết: 227178 - Xem lại Lần cuối: 12/05/2015 14:00:08 - Bản sửa đổi: 3.0

Microsoft Outlook 2000 Standard Edition

  • kbnosurvey kbarchive kbhowto kbprogramming kbmt KB227178 KbMtvi
Phản hồi