DComboBox

 
local TestingComboBox = vgui.Create( "DComboBox", FrameParent )
TestingComboBox:SetPos( 10, 35 )
TestingComboBox:SetSize( 100, 185 )
TestingComboBox:SetMultiple( false )
TestingComboBox:AddItem( "Add" ) -- Add our options
TestingComboBox:AddItem( "Some" )
TestingComboBox:AddItem( "Options" )
TestingComboBox:AddItem( "Here" )
 
--We create a panel so we can draw on; if we use the frame, it comes up transparent for some reason.
local MainMenuSheet = vgui.Create( "DPanel", FrameParent ) 
MainMenuSheet:SetPos( 125, 50 )
MainMenuSheet:SetSize( DermaFrame:GetWide() - 25, DermaFrame:GetTall() - 25 )
MainMenuSheet.Paint = function()
    --Make sure something is selected if not we get uber spam of errors.
    if TestingComboBox:GetSelectedItems() and TestingComboBox:GetSelectedItems()[1] then 
        -- This was a pain in the ass to figure out; this gets the name of the option chosen.
        local myString = "Your selection is: "..TestingComboBox:GetSelectedItems()[1]:GetValue().."!"
        surface.SetFont( "default" )
        surface.SetTextColor( 255, 255, 255, 255 )
        surface.SetTextPos( 50, 50 )
        surface.DrawText( myString ) -- Draws the text
    end 
end
 

 
--Author:Lap
 function TestingComboBox:SelectItem( item, onlyme ) 
 
 	if ( !onlyme && item:GetSelected() ) then return end 
 
 	self.m_pSelected = item 
 	if item:GetSelected() == true then
 	item:SetSelected( false )
 	  for k, v in pairs (self.SelectedItems) do
 	      if v == item then
 	      table.remove(self.SelectedItems, k)
 	      end
 	  end
 
    else
    item:SetSelected( true )
 	table.insert( self.SelectedItems, item ) 
    end
 end