Converting Dialog Units into Pixels

[Ideas Man]

No, doesn't seem to.

Have a go, put a label on the form and use my functions to try and place it as they have it on the form.

[wossname]

No, doesn't seem to.

Have a go, put a label on the form and use my functions to try and place it as they have it on the form.

Looks OK to me.

(I didn't know what the font for that label was supposed to be so i took a very rough guess)...

Public Class DialogUnits
 
    Private Declare Function GetDialogBaseUnits Lib "user32" () As Integer
 
    Private _Width As Integer
    Private _Height As Integer
 
    Public Sub New()
        Call CalculateDialogUnits()
    End Sub
 
    Public ReadOnly Property Width() As Integer
        Get
            Return _Width
        End Get
    End Property
 
    Public ReadOnly Property Height() As Integer
        Get
            Return _Height
        End Get
    End Property
 
    Public Function GetHeightInPixels(ByVal dialogUnits As Integer) As Integer
        Return (_Height * dialogUnits) \ 8
    End Function
 
    Public Function GetWidthInPixels(ByVal dialogUnits As Integer) As Integer
        Return (_Width * dialogUnits) \ 4
    End Function
 
    Public ReadOnly Property Size() As SizeF
        Get
            Return New SizeF(_Width, _Height)
        End Get
    End Property
 
    Private Sub CalculateDialogUnits()
        Dim DialogUnits As Long = GetDialogBaseUnits
 
        _Width = LongManipulation.GetLoWord(DialogUnits)
        _Height = LongManipulation.GetHiWord(DialogUnits)
    End Sub
 
End Class
 
 
Public Class LongManipulation
 
    Public Shared Function GetLoWord(ByVal sourceLong As Long) As Integer
        Return CType(sourceLong And &HFFFF&, Integer)
    End Function
 
    Public Shared Function GetHiWord(ByVal sourceLong As Long) As Integer
        Return CType((sourceLong >> 16) And &HFFFF&, Integer)
    End Function
 
    Public Shared Function IntegersToLong(ByVal hiWord As Integer, ByVal loWord As Integer) As Long
        Return (hiWord << 16) Or loWord
    End Function
 
End Class

[wossname]

Here's the code for the button...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim du As DialogUnits = New DialogUnits
 
        With Label1
            .Location = New Point(du.GetWidthInPixels(115), du.GetHeightInPixels(8))
            .Size = New Size(du.GetWidthInPixels(195), du.GetHeightInPixels(24))
        End With
 
        Me.Size = New Size(du.GetWidthInPixels(317), du.GetHeightInPixels(193))
 
    End Sub

[Ideas Man]

Nah, see that's too big. Compare the form when you click the button to the picture or any wizard in Windows such as the New Connection Wizard in Windows XP. The inner area is bigger than the entire form for the wizard.

Which makes me think that the numbers are supposed to be some decimal number, not whole integers because when you divide by 4 and 8 for width and height respectivly, you get like 1 & 2 (or 2 & 1, one or the other) which is too big, and when you set it to the size of the dialog units, it's too small.

BTW, the title font is Verdana size 12, Bold.