CommonDialog: Centrování

Postup:
Vytvořte nový formulář, pojmenujte jej frmCD, a na něj dejte CommonDialog. Potom tento formulář zavolejte z jiného formuláře. Následující kód umístí CommonDialog do levého horního rohu obrazovky:

Dim frmCD As New frmCD
frmCD.Move 0, 0
frmCD.CommonDialog1.ShowColor

Podobně, tento kód umístí CommonDialog na střed:

Dim frmCD As New frmCD
frmCD.Move (Screen.Width - frmCD.Width) / 2, _
   (Screen.Height - frmCD.Height) / 2
frmCD.CommonDialog1.ShowColor

Je třeba poznamenat, že toto je jen velice jednoduchý příklad centrování dialogu. Pro preciznější pozici by bylo asi vhodné použít jiných metod, například subclassing.

Zpět