dotNETportal.cz

A vůbec nejlepší je používat Layout Controls - TableLayoutPanel a FlowLayoutPanel které umí vše absolutně/relativně v pixelech/procentuálně rozmístit automaticky už v návrhovém režimu.

Skutečně mne nenapadá možná příčina problémů. Jediné, co by teoreticky přicházelo v úvahu, že se Vám to okno se statam "maximize" na tom záhadném počítači otevře na sekundárním monitoru a Vy při tom vycházíte z rozměrů primáru - ale nevěřím tomu, protože když jsem to zkoušel, nepodařilo se mi dosáhnout toho, aby se mi formulář samočinně maximalizoval na "sekundáru".

Jediné, co bych Vám mohl poradit - zkuste nastavovat "fullscreen" mód trochu jinak. Já osobně to dělám tím způsobem (ale začal jsem to tak dělat proto, protože takto jsem schopen tu maximalizaci provést jak na primárním, tak na sekundárním monitoru), že formuláři nastavím vlastnost border na none a v sekci load nastavím jeho velikost na velikost primární (resp. sekundární) obrazovky:

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.Bounds = Screen.PrimaryScreen.Bounds

Pak taky budete mít jistotu, že vycházíte (jak při tvorbě formuláře, tak i při rozmisťování jednotlivých komponent na něm) ze stejných výchozích hodnot (rozměr primaryscreen).

Pokud jste spustil svou aplikaci na tom "záhadném" počítači, nenechal jste si kontrolně vypsat, jaké rozměry Vám to hází? Nebo jste to spouštěl již kompilované a tuto možnost jste neměl?

Při testování Vašeho kódu jsem došel ještě k jedné drobnosti - nevím, jste-li si toho vědom, nebo je to dokonce záměr.

Samozřejmě neznám, nemáte-li někde v kódu ještě chybějící deklarace, ale tak trochu bych varoval před používáním klíčových slov jako názvů proměnných - může to být jen a jen zdrojem problémů.

Třeba máte hned v úvodu definice groubbox nastavení nového bodu, který dále používáte v kódu. (zřejmě tam někde před tím máte proměnnou "point" deklarovánu jako "point", což není nejideálnější (koukněte na zajímavý článek na tomto Webu obledně konvencí a pravidel názvů ve VB).

Pokud to tady ještě prošlo, pak u toho druhého řádku je to ještě o něco horší. A to z toho důvodu, že "font" je návev vlastnosti formuláře a VB je natolik "chytrý", že pokud to takto použijete, sám si před tím domyslí "me." Jinak řečeno, vy v tomto řádku přenastavíte font celého formuláře (není-li to tedy účelem, pak ale je navíc to přiřazení dále v kódu). No a tady může být taky problém, protože formulář má, co jsem se díval, implicitně přednastavenu vlastnost "Autoscalemode" na "font", což asi znamená, že své rozměry upraví dle nové velikosti fontu. Netvrdím, že je právě toto příčinou Vámi popisovaného problému, protože natvrdo Vaším postupem definovaná umístění by se změnit neměla, ale rozhodně bych si na to dal pozor, protože by to mohlo být do budoucna i zdrojem dalších chyb.

Stačí zavolat funkci GetDeviceCaps a zjistit si dpi pro horizontální a vertikální osu:

    Declare Function GetDeviceCaps Lib "GDI32.dll" (ByVal hDC As IntPtr, ByVal nIndex As Integer) As Integer

    Const LOGPIXELSX = 88
    Const LOGPIXELSY = 90

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim hdc As IntPtr = Me.CreateGraphics().GetHdc()
        Dim dpiX As Integer = GetDeviceCaps(hdc, LOGPIXELSX)
        Dim dpiY As Integer = GetDeviceCaps(hdc, LOGPIXELSY)

        MsgBox(dpiX & "x" & dpiY)

    End Sub

Pokud je v proměnných dpiX a dpiY hodnota 96, pak je nastaveno 96 dpi, pokud je v obou 120, pak je nastaveno 120 dpi.