win32 list

/*


  This code is public domain.  Do with it as you please.
  
  If you need any help understand the basic window creation process you I've got an
  example that explains it all up on http://www.planet-source-code.com just search
  the c++ section for kyle laduke and find my code entitled Win32 Window (Pure API)
  that code is highly commented and explains how to make a normal window.
  
  The code used in the example is pretty much the same as used in this one but this
  one isn't commented except only on the sections that have to do with the creation
  of controls to be put on the window.  Its also commented in some places on how to
  deal with them.  The point of this code is only for an example of how to create and
  use some of these window types for yourself.  You should review MSDN documentation
  on them still.


*/


#define WIN32_LEAN_AND_MEAN


#include
#include
#include


/*
  The following things I am about to define here (ID_*) are control id's.  The control
  ID's are used to determin what control the message handler procedure is getting
  information about if there happens to be more than one control of the same type.
  For most of my code here we only have one control of the same type but this is just
  to show you how it would be done so I defined them and used them. ..them being control
  id's.  A control id can be any number you want to give it but don't give the same
  number to more than one control or it defeates the purpose of them.
*/


#define IDB_REMOVE 1000
#define IDB_ADD 1001


#define IDE_ITEMTEXT 2000


#define IDL_LISTBOX 3000


#include
#include
using namespace std;


char szClassName[] = "Windows App w/controls";
char text[] = "rbh";
       
HINSTANCE hApplicationInstance = NULL;


HWND hListbox = NULL; // This will hold the handle of the listbox
HWND hMainWindow = NULL;
HWND hRemove = NULL;
HWND hEdit = NULL;
HWND hAdd = NULL;


LRESULT AddItem(HWND hwnd, LPSTR lpstr); // This procedure adds an item to a listbox
LRESULT CALLBACK WindowProcedure(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam);


int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPreviousInstance, LPSTR lpCommandLine, int nShowCommand)  {
  MSG messages;
  WNDCLASSEX wcex;


  hApplicationInstance = hInstance;


  wcex.cbClsExtra = 0;
  wcex.cbSize = sizeof(WNDCLASSEX);
  wcex.cbWndExtra = 0;
  wcex.hbrBackground = (HBRUSH)(COLOR_3DFACE+1);
  wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
  wcex.hIcon = LoadIcon(NULL, IDI_APPLICATION);
  wcex.hIconSm = LoadIcon(NULL, IDI_APPLICATION);
  wcex.hInstance = hInstance;
  wcex.lpfnWndProc = WindowProcedure;
  wcex.lpszClassName = szClassName;
  wcex.lpszMenuName = NULL;
  wcex.style = CS_HREDRAW | CS_VREDRAW;


  if (!RegisterClassEx(&wcex))
    return 0;


  hMainWindow = CreateWindowEx(0, szClassName, "Win32 Controls", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 600, 399, HWND_DESKTOP, NULL, hInstance, NULL);


  ShowWindow(hMainWindow, nShowCommand);


  /*
    Below, in our message pump, I have added the following after two lines of code.
      "// <-- Added"
    What these two lines do is enable tabbing between control items.
    
    See, the if statement on the top commented line just says if IsDialogMessage(...)
    returns false then execute the code in the if statement.  The second added line is
    just the closing line for the if statement
    
    See, IsDialogMessage passes our message structure and out handle of the main window
    to see if the message is some sort of dialog message.  If it is then the procedure
    handles it and returns true.  If it was handled then we dont need to handle it so
    skip the translatemessage and dispatchmessage.  Well, dialog messages are things like
    tab and shift tab.  For that reason I set it up so tabbing between items will work.
    Most examples I see don't have this feature and it pisses me off frankly.  Most people
    want to be able to tab between items on their windows!  So if we are gonna help them
    make the controls we should help them do it how they will want it and use it.
  */


  while(GetMessage(&messages, NULL, 0, 0))  {
    if (!IsDialogMessage(hMainWindow, &messages))  { // <-- Added
      TranslateMessage(&messages);
      DispatchMessage(&messages);
    } // <-- Added
  }


  return (int)messages.wParam;
}




LRESULT CALLBACK WindowProcedure(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)  {
  HGDIOBJ hDefaultFont = NULL;
  
  switch(uMsg)  {
    case WM_DESTROY:
      PostQuitMessage(0);
      break;


    case WM_CREATE:  {
      hListbox = CreateWindowEx(WS_EX_CLIENTEDGE, // Give the list box a sunken border
                                "Listbox",        // The class name of our lisbox; leave this alone!
                                "",
                                WS_CHILD | WS_VISIBLE | LBS_NOTIFY | WS_TABSTOP | WS_VSCROLL, /* WS_CHILD - this is a child window
                                                                                    
                                                                                                 WS_VISIBLE - we want it visible
                                                                                    
                                                                                                 LBS_NOTIFY - notify the parent window when the user selects an item
                                                                                                                                                                                      
                                                                                                 WS_TABSTOP - when the user tabs through items let the focus land on this control
                                                                                                 
                                                                                                 WS_VSCROLL - give us a vertical scrollbar
                                                                                              */
                                5, 5, 300, 300, // Size and position
                                hwnd, /* We use the hwnd parameter instead of the hMainWindow because
                                         this procedure with this message is invoked before CreateWindowEx
                                         returns.  Thus the hMainWindow variable isn't set to the handle
                                         yet.  So we just use hwnd for the handle because its the correct
                                         window.
                                      */
                                (HMENU)IDL_LISTBOX, /* Assign the control id for this window.  It's got to
                                                      be converted to HMENU because thats what this parameter 
                                                      requires.
                                                   */
                                hApplicationInstance,
                                NULL);
                                
      hDefaultFont  = (HFONT) GetStockObject(DEFAULT_GUI_FONT); // Gets the default font object
      
      SendMessage(hListbox, WM_SETFONT, (WPARAM)hDefaultFont, MAKELPARAM(FALSE, 0)); /* See for some reason create
                                                                                        window just insists on making
                                                                                        our windows look all ugly by
                                                                                        giving them a stupid font to
                                                                                        start with.  So what we do here
                                                                                        is change the font that the
                                                                                        control uses to the default one
                                                                                        by windows. */
for(int i = 0; i < 10; ++i)
{
 AddItem(hListbox, "Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1Item 1");    // \'
 AddItem(hListbox, "Item 2");    //  \'
 AddItem(hListbox, "Item 3");    //   \'
 AddItem(hListbox, "Item 4");    //    \'
 AddItem(hListbox, "Item 5");    //     \'
 AddItem(hListbox, "Item 6");    //      \'
 AddItem(hListbox, "Item 7");    //       \'
 AddItem(hListbox, "Item 8");    //        > Add some items to the list box
 AddItem(hListbox, "Item 9");    //       /'
 AddItem(hListbox, "Item 10");   //      /'
 AddItem(hListbox, "Item 11");   //     /'
 AddItem(hListbox, "Item 12");   //    /'
 AddItem(hListbox, "Item 13");   //   /'
 AddItem(hListbox, "Item 14");   //  /'
 AddItem(hListbox, "Item 15");   // /'
}     
      /*
        To create the next window I just used CreateWindow instead of CreateWindowEx.  I did this because
        for our button we don't really need any extended style so we don't need the ability for that.  All
        we need is normal ol' createwindow so thats what I used.
      */
      
      hRemove = CreateWindow("Button",  // Class name of our button; leave this alone.. what we want is button
                             "&Remove", /* Caption of our button; the and means the next character gets an 
                                           underscore.  That allows the user to hit alternate and the underscored
                                           letter to use it.  In this case alt+r would be the same as clicking our
                                           button. */
                             BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, /* BS_PUSHBUTTON - create a push button and have it post wm_command to the window proc when clicked
                                                                                    WS_CHILD - this window is a child window
                                                                                    WS_VISIBLE - we would like this window to be visible 
                                                                                    WS_TABSTOP - we want tab to enable the user to stop on this item
                                                                                 */
                             360, 5, 100, 25, // Size and position of the button
                             hwnd, // Check the listbox for info on this
                             (HMENU)IDB_REMOVE, // Set our control ID for this control
                             hApplicationInstance,
                             NULL);


      SendMessage(hRemove, WM_SETFONT, (WPARAM)hDefaultFont, MAKELPARAM(FALSE, 0)); // Use the default font for our button


      hEdit = CreateWindowEx(WS_EX_CLIENTEDGE, // Put a border on the control
                             "Edit",
                             "",
                             WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL, /* The only non-standard thin here is
                                                                                     ES_AUTOHSCROLL.  This is used here so
                                                                                     that when the user types pasted the
                                                                                     length of the text box the text box
                                                                                     scrolls.
                                                                                  */
                             360, 35, 100, 20,
                             hwnd,
                             (HMENU)IDE_ITEMTEXT,
                             hApplicationInstance,
                             NULL);


      SendMessage(hEdit, WM_SETFONT, (WPARAM)hDefaultFont, MAKELPARAM(FALSE, 0)); // USe the default font for the edit control


      hAdd = CreateWindow("Button",                                           // \'
                          "&Add Item",                                        //  \'
                          BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, //   \'
                          360, 60, 100, 25,                                   //    \' This is almost the same as the button above,
                          hwnd,                                               //    /' everything except the control id & position
                          (HMENU)IDB_ADD,                                     //   /'
                          hApplicationInstance,                               //  /'
                          NULL);                                              // /'


      SendMessage(hAdd, WM_SETFONT, (WPARAM)hDefaultFont, MAKELPARAM(FALSE, 0)); // Use the default font for the button
      


    }


    case WM_COMMAND:  {
      // See, the loword of the wparam holds the control id's, so do a switch between them to handle them correct
      
      switch(LOWORD(wParam))  {
        case IDB_REMOVE:  { // if the control id was what was given for the remove button
          if (HIWORD(wParam) == BN_CLICKED)  { // If the remove button was clicked then
            int iCurSel = (int)SendMessage(hListbox, LB_GETCURSEL, 0, 0); // Get the current selected item; see msdn->LB_GETCURSEL
            
            if (iCurSel == -1) // If there wasnt anything selected then exit the switch statement
              break;
            
            SendMessage(hListbox, LB_DELETESTRING, (WPARAM)iCurSel, 0); // Remove the currently selected item; see msdn->LB_DELETESTRING for more info
          }
        }break;
        
        case IDL_LISTBOX:  { // If the control id was what we gave for the listbox
          if (HIWORD(wParam) == LBN_SELCHANGE)  { // if the hi word is lbn_selchange
            char *Item; // pointer for our item info
            int iCurSel = (int)SendMessage(hListbox, LB_GETCURSEL, 0, 0); /* get the currently selected item
                                                                             check msdn documentation on lb_getcurcel for info */
            int nItemLen = (int)SendMessage(hListbox, LB_GETTEXTLEN, iCurSel, 0); /* Get the length of the item */
            
            if (nItemLen > 0)  { // If the item's length is longer that 0 then
              Item = (char*)malloc(nItemLen); // allocate the place for our item


              SendMessage(hListbox, LB_GETTEXT, iCurSel, (LPARAM)Item); // Get the item text and store it into Item
              
 string s;
 s = Item;
 s += "o.o";
 
if (OpenClipboard(NULL))//打开剪贴板  
{
 HANDLE hClip;  
 EmptyClipboard();//清空剪贴板  


//写入数据  
 hClip=GlobalAlloc(GMEM_MOVEABLE,s.length()+1);  
 char* pBuf=(char*)GlobalLock(hClip);  
 strcpy(pBuf,s.c_str()); 
 GlobalUnlock(hClip);//解锁  
 SetClipboardData(CF_TEXT,hClip);//设置格式  


//关闭剪贴板  
 CloseClipboard();  
} 


              SetWindowText(hMainWindow, s.c_str()); // Set the caption of the window to Item's data
 
            }            
          }
        }break;
        
        case IDB_ADD:  { // If the control id is what we gave to the add button then
          if (HIWORD(wParam) == BN_CLICKED)  { // If the button was clicked then
            char *NewItem; // Pointer to the new item's text


            int nTextLen = (int)SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0); // Get the length of the edit box


            if (nTextLen > 0)  { // If the text lenght is greater than 0 then


              NewItem = (char*)malloc(nTextLen); // allocate the new space for the text
            
              SendMessage(hEdit, WM_GETTEXT, (nTextLen + 1), (LPARAM)NewItem); // save the text to the NewItem memory space
            
              AddItem(hListbox, NewItem); // Add the item to the listbox
            }
          }
        }break;
      }
    }
    
    /*if (LOWORD(wParam) == 1 &&
    HIWORD(wParam) == BN_CLICKED &&
    (HWND) lParam == hwndButton)ss
    }*/


    default: return DefWindowProc(hwnd, uMsg, wParam, lParam);
  }
  
  return 0;
}


/*
  This is a quick and easy function to add items to a listbox for you
*/
LRESULT AddItem(HWND hwnd, LPSTR lpstr)  { 
  return SendMessage(hwnd, LB_ADDSTRING, 0, (LPARAM)lpstr); /* This just sends a message to the lb for you
                                                               Check MSDN for a complete list of commands
                                                               you may send to listboxes to get information */
}