Change form backround with common dialog
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
Kind of like skinning your program
Original Author: Demian Net
Code
' 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.
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.