dotNETportal.cz

Mohl by mi prosím někdo poradit, jak ve VB 2008 zjistím aktuálně nastavené rozlišení. (640x480, 800x600, apod.)

Používám

        PloHoriz = My.Computer.Screen.WorkingArea.Size.Width
        PloVerti = My.Computer.Screen.WorkingArea.Size.Height

, ale to vrací pouze velikost pracovní plochy. A ta může být zmenšená o hlavní panel windows. Ať už je panel umístěn vodorovně, nebo svisle.

A nebo jak zjistit, jestli je panel zobrazen a kde. A jak je velký. Pak už není problém jej k pracovní ploše připočítat.

Vás bude asi zajímat toto:

For Each screen In System.Windows.Forms.Screen.AllScreens
With screen
   Console.WriteLine("Monitor {1}{0} - rozliseni {2}x{3}{0}", _
                                  Environment.NewLine, _
                                  screen.DeviceName, _
                                  screen.Bounds.Width, screen.Bounds.Height)
End With
Next

Moc děkuji.

Asi mne budete mít za úplného blba, ale já ve VB fakt teprve začínám.

Mohl by jste mi prosím upřesnit, jak z tohoto dostanu ty dvě souřadnice? (Výška a šířka)

MsgBox(.....

Jestli to totiž správně chápu, tohle mi pracuje s konzolí.

Já ty údaje ale potřebuji pro práci s formulářem.

Kód, který jsem uvedl, v cyklu zjistí jména všech k počítači připojených monitorů (uvědomte si, že k počítači můžete mít připojených dva a více monitorů) a k nim potom nastavené hodnoty rozlišení.

Víte-li na 100%, že máte pouze jeden monitor, je vámi upravená funkce v pořádku. V opačném případě se můžete dostat do problémů, protože nebudete vědět, ke kterému monitoru se právě zjištěné parametry vážou.