Newsgroup: it.comp.lang.visual-basic
Titolo: Diversità NT vs 98

Ciao a tutti,
sto realizzando una mia applicazione per NT e Win98, ma le form, una volta
eseguite sulle due piattaforme, si presentano in modo abbastanza differente:
-cambiano le dimensioni degli oggetti testo
-cambiano le dimensioni delle immagini inscluse
-cambiano le posizioni degli oggetti
- ...spero non cambi nient'altro altrimenti è proprio uno schifo!!
Qualcuno mi saprebbe aiutare per evitare di dover continuamente adattare le
mie form ora per NT ora per 98 ed avere un risultato identico??
Grazie a tutti, anche per gli aiuti ricevuti in passato!
--
THE_1PUNISHER
cybermaster
IHGGER #604
Se sei un appassionato di GdR visita
la Locanda da Tobas
http://gilda.it/locanda_da_tobas

 wrote in message
7p8mes$eih$1...@nslave1.tin.it...


Ciao
Questo è il codice che ho scritto io in un mio progetto per adattare
le dimensioni degli oggetti nel form se la risoluzione è più grande di 640
x480 , il form l'ho disegnato in una risoluzione di (640x 480).
In  realtà il codice era anche più lungo, ho cancellato le istruzioni
superflue a farti capire come funziona il resize:
Private Sub Form_Resize()
    If WindowState = 0 And FlagMinimized = True Then
        FlagMinimized = False
        Exit Sub
    End If
    If WindowState = 2 And FlagMinimized = True Then
        FlagMinimized = False
        Exit Sub
    End If
    If FlagMinimized = True Then
         Exit Sub
    End If
    If WindowState = 1 Then
         FlagMinimized = True
         Exit Sub
    End If
     '----------------------------------------------
        StatusBar1.Top = FrmLofar.Height - StatusBar1.Height * 2.2
        PosPrec = Spettro.Top
        Spettro.Top = StatusBar1.Top - Spettro.Height
        SpostBasso = Spettro.Top - PosPrec
        scalagrad1.Top = scalagrad1.Top + SpostBasso
        ScalaGrad2.Top = ScalaGrad2.Top + SpostBasso
         For i = 0 To 10
            Lb(i).Top = Lb(i).Top + SpostBasso
        Next i
        Lofar.Height = Lofar.Height + SpostBasso
        Label22.Top = Label22.Top + SpostBasso
        Label9.Top = Label9.Top + SpostBasso
        Label12.Top = Label12.Top + SpostBasso
        Label11.Top = Label11.Top + SpostBasso
        Label24.Top = Label24.Top + SpostBasso
        Text1.Top = Text1.Top + SpostBasso
        Text4.Top = Text4.Top + SpostBasso
        Text2.Top = Text2.Top + SpostBasso
        SpinButton1.Top = SpinButton1.Top + SpostBasso
        SpinButton2.Top = SpinButton2.Top + SpostBasso
        SpinButton3.Top = SpinButton3.Top + SpostBasso
        glob.Height = glob.Height + SpostBasso
        If FrmLofar.Width > 9800 Then
         With Toolbar
            .Align = 1
            .AutoRedraw = True
            .BackColor = RGB(192, 192, 192)
            .BorderStyle = False
            .ScaleMode = 3
        End With
        WidthBoxext = Toolbar.Width / 15.12
         Toolbar.Line (9, 3)-(WidthBoxext, 3), RGB(255, 255, 255)
        Toolbar.Line (9, 3)-(9, 38), RGB(255, 255, 255)
        Toolbar.Line (WidthBoxext, 3)-(WidthBoxext, 38), RGB(128, 128, 128)
        Toolbar.Line (9, 38)-(WidthBoxext + 1, 38), RGB(128, 128, 128)
        'inizio quadrato interno
        'WidthBox = 260
        WidthBox = 290
        Widthboxint = WidthBoxext - 3
         Toolbar.Line (WidthBox, 8)-(Widthboxint, 8), RGB(128, 128, 128)
        'Toolbar.Line (201, 8)-(201, 33), RGB(128, 128, 128)
        Toolbar.Line (WidthBox, 8)-(WidthBox, 33), RGB(128, 128, 128)
        Toolbar.Line (Widthboxint, 8)-(Widthboxint, 33), RGB(255, 255, 255)
            Toolbar.Line (WidthBox, 33)-(Widthboxint, 33), RGB(255, 255,
255)
        Toolbar.AutoRedraw = False
        PosizionePrec = glob.Left
        glob.Left = FrmLofar.Width - glob.Width - 160
        Spostdestra = glob.Left - PosizionePrec
        Label22.Left = Label22.Left + Spostdestra
        Label9.Left = Label9.Left + Spostdestra
        Label12.Left = Label12.Left + Spostdestra
        Label11.Left = Label11.Left + Spostdestra
        Label24.Left = Label24.Left + Spostdestra
        Text1.Left = Text1.Left + Spostdestra
        Text4.Left = Text4.Left + Spostdestra
        Text2.Left = Text2.Left + Spostdestra
        SpinButton1.Left = SpinButton1.Left + Spostdestra
        SpinButton2.Left = SpinButton2.Left + Spostdestra
        SpinButton3.Left = SpinButton3.Left + Spostdestra
         Lofar.Width = Lofar.Width + Spostdestra
        scalagrad1.Width = scalagrad1.Width + Spostdestra
        ScalaGrad2.Width = ScalaGrad2.Width + Spostdestra
        Spettro.Width = Spettro.Width + Spostdestra
        spostlabel = Spostdestra / 10
        For i = 0 To 10
            Lb(i).Left = Lb(i).Left + spostlabel * i
        Next i
    Else
        If WindowState <> 1 Then
            If FrmLofar.Width < 7110 Then FrmLofar.Width = 7110
        End If
    End If
    scalagrad1.Cls
    ScalaGrad2.Cls
    scalagrad1.Scale (0, 0)-(400, 10)
    ScalaGrad2.Scale (0, 0)-(400, 10)
    For X = 0 To 410 Step 40
                  scalagrad1.Line (X, 0)-(X, 10)
                  ScalaGrad2.Line (X, 0)-(X, 10)
    Next X
End Sub
Spero di esserti stato utile.
Paolo
