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

Programming VB to Handle DISPLAY SETTINGS + GENERAL + DPI SETTING + LARGE SIZE (120 DPI)

Ladies and Gentlemen,

I have a VB application which is working pretty well (with your valuable help).  I installed a copy last week on a computer which was connected to a large (19") high resolution (1600 x 1200) LCD monitor.  My user has set the display properties to use "LARGE SIZE (120 DPI)" on the General tab.

My dialog box contains a tab control which adjusts the size (width) of the dialog box according to which tab is being used.  Unfortunately the "LARGE SIZE (120 DPI)" setting is fouling things up.  Is there an easy way in VB to query windows about the DPI of the display so that an IF statement can appropriately adjust widths.

Is there another way that control sizes should be designed for to allow users to make this DPI adjustment?

Thanks,

Matt
0
mebmmb
Asked:
mebmmb
  • 2
  • 2
2 Solutions
 
DabasCommented:
Hi mebmmb:
Just a pointer in the right direction
Try experimenting with the Screen object
Depending on your screen, Screen.Height and Screen.Width change
The screen object has other properties which might be usefule

Dabas
0
 
mebmmbAuthor Commented:
I've looked under SCREEN and SCREEN OBJECT and seen a couple of references which might end up being helpful.  Is there  way to tie a property like SSTAB1.WIDTH to TWIP or object.TwipsPerPixelX?  I assume that SSTAB1.WIDTH is in pixels.

Thanks,

Matt
0
 
DabasCommented:
mebmmb:
>  I assume that SSTAB1.WIDTH is in pixels
Possibly.
What you can do is check your current settings - something you physically know - and store the Height and Width as constants
Then, when you load the form, you can compare the screen settings with these constants, then adjust the SSTAB1.Width by the ratio
Something like
Const MyScreenWidth = 15360
...
Sub Form_Load
UserScreenWidth = Screen.Width
Ratio = UserScreenWidth/MyScreenWidth
SSTAB1.Width = SSTAB1.Width * Ratio

(Not tested... just a pointer to the idea. you might have to divide by ratio...)

Dabas
0
 
rockiroadsCommented:
0
 
rockiroadsCommented:
The Screen object's Width and Height properties give the screen size in twips. Its TwipsPerPixelX and TwipsPerPixelY properties give the number of twips per pixel in the horizontal and vertical directions. Divide twips by twips-per-pixel to get pixels.  
 
 
Private Sub Form_Load()
Dim wid As Integer
Dim hgt As Integer

    wid = Screen.Width \ Screen.TwipsPerPixelX
    hgt = Screen.Height \ Screen.TwipsPerPixelY

    Label1.Caption = Format$(wid) & " x " & Format$(hgt)
End Sub
 
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: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

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