Rozlišení monitoru

Rozlišení monitoru zodpovězená otázka

před 15 lety

2 17

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

1 2	`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.

nahlásit spam 0 odpovědět

před 15 lety

Libor Válka

6 9

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

nahlásit spam 0 odpovědět

před 15 lety

Radek Červinka

2 17

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.

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

před 15 lety

Libor Válka

6 9

Třeba takto

For Each screen In System.Windows.Forms.Screen.AllScreens
    MsgBox(screen.DeviceName & Environment.NewLine & _
           "Vyska: " & CStr(screen.Bounds.Height) & "   " & "Sirka: " & CStr(screen.Bounds.Width))
Next

nahlásit spam 2 / 2 odpovědět

před 15 lety

Radek Červinka

2 17

Moc děkuji.

Sice jsem zprvu moc nechápal, protože mi to psalo pár zpětných lomítek a "Display1". Já ale potřebuji čísla pro další zpracování.

Ale po drobných úpravách je to OK.

For Each screen In System.Windows.Forms.Screen.AllScreens
    MsgBox("Vyska: " & CInt(screen.Bounds.Height) & "   " & "Sirka: " & CInt(screen.Bounds.Width))
Next

Ještě jednou díky.

nahlásit spam 1 / 1 odpovědět

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.

nahlásit spam

1 / 1

odpovědět