• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1266
  • Last Modified:

How to find the size of the drop down arrow button on a combobox in VB.NET

Hi
I'm trying to find out the width of the drop down arrow button on a combobox within VB.NET. I would like to be able to find out what the width is with visual styles turned on or off.  Any help would be great thanks.
0
microdrainage
Asked:
microdrainage
  • 3
  • 3
1 Solution
 
Bob LearnedCommented:
I wouldn't know of way to get that from the operating system, but I am curious why you need that information?  There might be another way to accomplish what you need without that tid bit.
0
 
microdrainageAuthor Commented:
Hi

I'm trying to use the error provider to place an icon actually inside the textbox area of the the combobox control (from the righthand side), using SetIconPadding and using a negative number to offset the icon. Hence I need to know the width of the drop down button in order to offset it by that amount.  I've tried using an owner draw combobox but this only seems to work if the dropdownstyle property is set to DropDown, the other two setting owner draw does not work!

I've also tried using the attached code but this appears to return the size of the icon within the button itself (on my machine 15x16), you would either have to find the size of the button of the size of the border (which makes the button graphic) and add this to the size of the icon! In the code below when creating a graphics object the me here represent the combobox control.

Thanks
Ian
        If Not Application.RenderWithVisualStyles Then
            Return Nothing
        End If
 
        Dim element As VisualStyleElement = VisualStyleElement.ComboBox.DropDownButton.Normal
 
        Dim vsr As VisualStyleRenderer = New VisualStyleRenderer(element)
 
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
 
        Return vsr.GetPartSize(g, ThemeSizeType.True)

Open in new window

0
 
Bob LearnedCommented:
You might want to use the edit region to determine that location.


Imports System
Imports System.Windows.Forms
 
Public Class ComboBoxEditRegion
 
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
     (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
 
    Public Shared Function GetEditHandle(ByVal comboCurrent As ComboBox) As IntPtr
 
        ' Get the handle of the inner Edit control.
        Dim editHandle As IntPtr = FindWindowEx(comboCurrent.Handle, IntPtr.Zero, vbNullString, vbNullString)
 
        Return editHandle
 
    End Function
 
End Class

Open in new window

0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
microdrainageAuthor Commented:
Hi
Thanks for the info. I was trying not to use the API and simply use the .NET framework but that would probably do it! I've attached a variation of the code from my previous comment. Using the ScrollBar.ArrowButton.DownNormal element appears to give the correct size for the combobox button but I'm not 100% sure if that is the actual visual element that gets drawn for a combobox. (It looks the same!) Your code has the advantage that it'll (should:-)) work even if Visual styles are turned off.
Cheers

Ian
        Dim vsr As VisualStyleRenderer = New VisualStyleRenderer(VisualStyleElement.ScrollBar.ArrowButton.DownNormal)
 
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
 
        Dim arrowButtonSize As Size = vsr.GetPartSize(g, ThemeSizeType.True)
 
        vsr = New VisualStyleRenderer(VisualStyleElement.ComboBox.DropDownButton.Normal)
 
        Dim dropDownButtonSize As Size = vsr.GetPartSize(g, ThemeSizeType.True)
 
        If dropDownButtonSize.Width <= arrowButtonSize.Width Then
            Return arrowButtonSize
        Else
            Return dropDownButtonSize
        End If

Open in new window

0
 
Bob LearnedCommented:
There are many ways to solve a problem, and I like your approach.  I believe that you have the right element.
0
 
microdrainageAuthor Commented:
Thanks for your help.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now