Visual Basic 6 - impostare sfondo in un form

Forum - Visual Basic 6 - impostare sfondo in un form

Pagine: [ 1 2 ]

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 23:19
Sabato, 21/06/2008

salve, ho la necesità di impostare uno sfondo in una clipboard che occupa tutto il form e vorrei che lo sfondo possa essere caricato e deciso. sul forum ho trovato un modo per aprire i file con il CommonDialog, però non so come fare per far impostare l'imagine aperta nella clipboard. il codice è questo:

Codice sorgente - presumibilmente VB.NET

--------------Inizio Codice Modulo--------------- 
Sub ProceduraApri(file As String) 
Open file For Input As #1 
strTesto = Input(LOF(1), 1) 
Close 1 
frmAppuntiXP.txtTesto.Text = strTesto 
End Sub 
Sub Apri() 
 
With frmAppuntiXP.CommonDialog1 
.DialogTitle = "Apri" 
.CancelError = False 
.Filter = "File di testo|*.txt|Pagina Web|*.htm|Tutti i file|*" 
.ShowOpen 
If Len(.FileName) = 0 Then 
'Eventuale msgbox che avverte che il file non è stato salvato 
blnModifiche = True 
Else 
Call ProceduraApri(.FileName) 
End If 
End With 
End Sub 
----------------Fine Codice Modulo-------------- 
 
 
 
Poi nel form principale del programma ho inserito 
 
 
 
------------Inizio Code per aprire File----------- 
 
Private Sub mnuApri_Click() 
Apri 
End Sub 
 
-------------Fine Code per aprire File-----------

questo però era per un file di testo. qualcuno mi saprebbe dire come fare?? grazie

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 23:29
Sabato, 21/06/2008

per impostare lo sfondo del form è sufficiente cambiare la proprietà picture
con il commondialog fai così

commondialog.showopen
me.picture=commondialog.filename

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 8:51
Domenica, 22/06/2008

non va, mi da un errore. qualcuno sa come posso fare??

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 10:12
Domenica, 22/06/2008

che errore da???

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 10:14
Domenica, 22/06/2008

ok ho controllato

devi usare il loadpicture
me.picture=loadpicture(commond.filename)

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 21:35
Domenica, 22/06/2008

Ho risolto così:

Codice sorgente - presumibilmente VB.NET

With Form1.CommonDialog1
  .DialogTitle = "Seleziona lo sfondo da caricare"
  .CancelError = False
  .Filter = "Jpg (.jpg) |*.jpg|Bitman(.bmp)|*.bmp|Tutti i file (.*)|.* "
  .FilterIndex = 1
  .ShowOpen
  If Len(.FileName) = 0 Then
MsgBox "File non caricato", vbCritical, "Errore"
Exit Sub
Else
nome = .FileName
Form1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End With

funziona però se si seleziona annulla o si chiude la finestra da un errore perchè??

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 8:57
Lunedì, 23/06/2008

Potresti provare a mettere un On Error resume next

super rambo (Normal User)
Pro

Messaggi: 135
Iscritto: 04/06/2008

Postato alle 11:51
Lunedì, 23/06/2008

cioè?? potresti spiegarti meglio?? poi ho un altro problema, quando carico lo sfondo questo rimane nelle sue dimensioni non ci sarebbe un modo per far si che un immagine d qualsiesi dimensione si adatti al form?? grazie

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:29
Lunedì, 23/06/2008

Testo quotato

Postato originariamente da super rambo:

cioè?? potresti spiegarti meglio??

Metti:
On error resume next all'inizio del codice...

Testo quotato

poi ho un altro problema, quando carico lo sfondo questo rimane nelle sue dimensioni non ci sarebbe un modo per far si che un immagine d qualsiesi dimensione si adatti al form?? grazie

Che io sappia no...Potresti provare ad usare come sfondo un imagebox...

Pagine: [ 1 2 ]