Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Screen Resolution VB 2005

marius40marius40 Posts: 42Member
I think that this has been asked for, but i would like to try again.

I have created my app, but my screen is to big, and when it is run on a third party (My Lecturer's screen) it does not fit. I would like to test the screen resolution and then change it at run-time? Any help?

Comments

  • seancampbellseancampbell Pennsylvania, USAPosts: 684Member ✭✭✭
    Try

    If Screen.width >= 800 then
    'code here
    End If
  • marius40marius40 Posts: 42Member
    : Try
    :
    : If Screen.width >= 800 then
    : 'code here
    : End If

    It seems that an IMPORT is missing. Am i correct?
  • seancampbellseancampbell Pennsylvania, USAPosts: 684Member ✭✭✭
    sry, try System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Width
  • marius40marius40 Posts: 42Member
    : sry, try System.Windows.Forms.Screen.PrimaryScreen.WorkingArea.Width

    I changed it to this...

    [code]
    If Screen.PrimaryScreen.WorkingArea.Width < 1000 Then
    msgbox(" The resolution is ...")
    End If
    [/code]

    This works, Thanks
    But how do i set the new resolution?
  • seancampbellseancampbell Pennsylvania, USAPosts: 684Member ✭✭✭
    I'm not sure how to set a new resolution in windows, it is possible that you cannot. I would search google or repost with the subject "How to change the Screen Resolution through Code"
  • marius40marius40 Posts: 42Member
    : I'm not sure how to set a new resolution in windows, it is possible
    : that you cannot. I would search google or repost with the subject
    : "How to change the Screen Resolution through Code"

    Thanks, I found one , but you have to use DirectX 7.0 or maybe later, but it seems to long, and i think i will have to include it into my code. To heavy, if you know what i mean. Would like to stay light and portable. It is only a task....

    Thanks for you previous help. apreciated!
  • marius40marius40 Posts: 42Member
    : : I'm not sure how to set a new resolution in windows, it is possible
    : : that you cannot. I would search google or repost with the subject
    : : "How to change the Screen Resolution through Code"
    :
    : Thanks, I found one , but you have to use DirectX 7.0 or maybe
    : later, but it seems to long, and i think i will have to include it
    : into my code. To heavy, if you know what i mean. Would like to
    : stay light and portable. It is only a task....
    :
    : Thanks for you previous help. apreciated!
    :


    I might have the answer. I used the DirectX 7.0 driver that
    comes with VB.NET 2005

    First: Add the Reference to DirectX - and then:
    Imports DxVBLib

    Then;
    Dim dx As New DirectX7
    Dim dd As DirectDraw7

    [code]
    '' Set the screen size bigger, if it is to small
    dd = dx.DirectDrawCreate("")
    If Screen.PrimaryScreen.WorkingArea.Width < 1000 Then
    dd.SetDisplayMode(1152, 864, 16, 0, CONST_DDSDMFLAGS.DDSDM_DEFAULT)'' This last bit can be 0
    End If
    Me.WindowState = FormWindowState.Normal
    Me.WindowState = FormWindowState.Maximized
    Me.Refresh()
    [/code]

    I had to use the 2 Windowstates, to maximize after the change of
    the screen. Maybe there is a better way, Any ideas?

    Thanks again for your help
Sign In or Register to comment.