Как вызвать диалоговое окно выбора файлов?
Люди помогите! Я хочу добавить возможность выбора изображения для фона в своей программе. Очень бы хотелось что бы это было осуществлясоть так: Нажимаешь кнопку "Выбрать изображение", открывается диалоговое окно выбора файлов, там пользователь выбирает изображение, нажимает Ок. После чего пользователь на форме нажимает кнопку "Применить" и фон окна программы меняется на выбранную программу.
А если более точный вопрос то мне интересно как можно присвоить значение адреса переменной(и какого типа переменной). Чтобы потом можно было написать например:
Переменная = Файл выбранный пользователем в диалоговом окне выбора файлов
Image1.Picture = Переменная.
А если более точный вопрос то мне интересно как можно присвоить значение адреса переменной(и какого типа переменной). Чтобы потом можно было написать например:
Переменная = Файл выбранный пользователем в диалоговом окне выбора файлов
Image1.Picture = Переменная.
frmPrintGo.Image1.Picture = LoadPicture(frmPrint.CommonDialog1.FileName)
Искал в интернете, вот что нашел
Жалуется программа на:
frmPrintGo.Image1.Picture = frmPrint.CommonDialog1.FileName
Что делать? уже мозги пухнут, ни чего понять не могу. Уже как только не пробывал присвоить значение, ни как не получается(((((
Код:
Private Sub Command2_Click()
Dim strFileType As String
On Error GoTo ErrorHandler
CommonDialog1.CancelError = True
strFileType = "Picture (*.jpg)|*.jpg|"
CommonDialog1.Filter = strFileType
CommonDialog1.FilterIndex = 1
CommonDialog1.flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
CommonDialog1.Action = 1
ErrorHandler:
If Err.Number = 32755 Then
Exit Sub
End If
frmPrintGo.Image1.Picture = frmPrint.CommonDialog1.FileName
End Sub
Dim strFileType As String
On Error GoTo ErrorHandler
CommonDialog1.CancelError = True
strFileType = "Picture (*.jpg)|*.jpg|"
CommonDialog1.Filter = strFileType
CommonDialog1.FilterIndex = 1
CommonDialog1.flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
CommonDialog1.Action = 1
ErrorHandler:
If Err.Number = 32755 Then
Exit Sub
End If
frmPrintGo.Image1.Picture = frmPrint.CommonDialog1.FileName
End Sub
frmPrintGo.Image1.Picture = frmPrint.CommonDialog1.FileName
Что делать? уже мозги пухнут, ни чего понять не могу. Уже как только не пробывал присвоить значение, ни как не получается(((((
Цитата: UserNet2008
frmPrintGo.Image1.Picture = LoadPicture(frmPrint.CommonDialog1.FileName)
Спасибо :)