Autore Topic: Adattare form  (Letto 395 volte)

Offline Gratisweb

  • Grande Gambero
  • ***
  • Post: 173
    • Mostra profilo
Adattare form
« il: 18 Febbraio 2022, 09:09:43 »
Ho un problema, dentro un form ho inserito una foto come sfondo con relativi pulsanti.....
Appena la avvio tutto bene ma il problema è se cambio desktop per esempio da mate passo a lxqt o kde lo sfondo che ho messo dentro il form si vede tagliato cioè non si adatta alla risoluzione dello schermo o alla risoluzione di altro desktop.
Come risolvo ?

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.158
  • Tonno verde
    • Mostra profilo
Re:Adattare form
« Risposta #1 il: 18 Febbraio 2022, 10:20:41 »
Non vedendo il tuo codice tiro a indovinare, hai provato a impostare il form su Autoresize=True e Resizable=False ?
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.158
  • Tonno verde
    • Mostra profilo
Re:Adattare form
« Risposta #2 il: 18 Febbraio 2022, 18:51:31 »
Probabilmente non ho indovinato, forse volevi dire che scrivendo questo codice:
Codice: [Seleziona]
Public Sub Form_Open()

  Dim hPic As Picture = Picture["./<tua immagine in Dati>.png"]

  Me.Picture = hPic
  Me.H = hPic.H
  Me.W = hPic.W
  Me.Resizable = False

End

l'immagine si vede bene o non si vede bene a seconda dei desktop che mostrano la finestra?
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro