• Home
 · 
• Files/File Controls/Input/Output
 · 
• Change form backround with common dialog

Change form backround with common dialog

Kind of like skinning your program

Rate Change form backround with common dialog

• 1
• 2
• 3
• 4
• 5

(7(7 Vote))

' Name your form Form1
 ' Load comdlg32.ocx
 ' Make a Command1
 ' Make a common dialog named CDialog
 
 Private Sub Command1_Click() 
   On Error GoTo fileOpenErrr 
    CDialog.CancelError = True 
    CDialog.FLAGS = &H4& Or &H100& 
    CDialog.DefaultExt = ".jpg" 
    CDialog.DialogTitle = "Select File To Open" 
    CDialog.Filter = "JPEG (*.jpg)|*.jpg|GIF (*.gif)|*.gif|BITMAP (*.bmp)|*.bmp" 
    CDialog.ShowOpen 
 Set Form1.Picture = LoadPicture(CDialog.filename) 
 fileOpenErrr: 
    Exit Sub 
 End Sub 
 
 ' This is what I use for a sort of skin effect on my programs.