Keskustelu: Ohjelmointikysymykset: VB6: VS 2008 ja formin ko'on muuttaminen

Noniin... Nyt taas sarjassa tyhmiä kysymyksiä:

Oma näyttö jolle sovellus on tehty on 1024*768 ja se on täynnä painikkeita ja taulukoita ja tekstikenttiä. Nyt kuvapankkiohjelma jonka siis tein pitäisi saada systerille kans toimimaan jonka näytön reso on vain 1280*1024. Jos nyt laittaa ikkunan tässä ohjelmassa koko näytölle sopivaksi niin alas ja oikealle tulee ikävän näköinen vaalea reuna. Miten saan näytöllä olevien kontrollien koon kasvamaan sopivasti suhteessa siten että nämä reunat täyttyisivät.

Anchor ominaisuus on varmaan yksi mutta jos vaikka laitan kaksi painiketta näytölle ja ankkuroin ne joka kulmasta niin ne kasvavat 'päällekkäin'. Mikä on siis se toinen ominaisuus jolla saadaan kontrollit myös liikkumaan näytöllä siten etteivät ne mene toistensa päälle???

No morjens jwinterh!

tässä sulle yx tapa toteuttaa moinen viritelmä...

'Formilla 2 nappia (button1 & button2)
Imports System.Drawing

'...

Private Sub Form1_Layout(ByVal sender As Object, _
ByVal e As System.Windows.Forms.LayoutEventArgs) _
Handles MyBase.Layout

   For Each ctl As Control In Me.Controls
      If TypeOf(ctl) is button Then
         ctl.Width = Me.Width / 10  ' näillä...
         ctl.height = Me.Height / 15 ' arvoilla...
         ctl.Font = New Font(ctl.Font.Name, _
         ctl.Height * 0.45, ctl.Font.Style, _
         GraphicsUnit.Pixel, Nothing)
         If ctl.Name.IndexOf("1") > -1 Then
            ctl.Left = ctl.Width / 2 ' ...
            ctl.Top = ctl.Height / 2 ' ...
         ElseIf ctl.Name.IndexOf("2") > -1 Then
            ctl.Left = Me.Width - (ctl.Width * 1.5) ' sitten...
            ctl.Top = ctl.Height / 2 ' säätelet...
         'ElseIf
           'jne...
         End If
      End If
   Next

End Sub

KIITOS.... tuohan toimii aika mukavasti. Täytyy tutkia tota koodiasi vielä hieman lisää niin eiköhän siitä oikein mainio synny.... Kiitos tosiaan vielä kerran.