Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как вызвать диалоговое окно выбора файлов?

78K
01 мая 2012 года
maxmironov94
9 / / 24.04.2012
Люди помогите! Я хочу добавить возможность выбора изображения для фона в своей программе. Очень бы хотелось что бы это было осуществлясоть так: Нажимаешь кнопку "Выбрать изображение", открывается диалоговое окно выбора файлов, там пользователь выбирает изображение, нажимает Ок. После чего пользователь на форме нажимает кнопку "Применить" и фон окна программы меняется на выбранную программу.
А если более точный вопрос то мне интересно как можно присвоить значение адреса переменной(и какого типа переменной). Чтобы потом можно было написать например:
Переменная = Файл выбранный пользователем в диалоговом окне выбора файлов
Image1.Picture = Переменная.
327
01 мая 2012 года
UserNet2008
748 / / 03.04.2010
frmPrintGo.Image1.Picture = LoadPicture(frmPrint.CommonDialog1.FileName)
78K
01 мая 2012 года
maxmironov94
9 / / 24.04.2012
Искал в интернете, вот что нашел

Код:
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
Жалуется программа на:
frmPrintGo.Image1.Picture = frmPrint.CommonDialog1.FileName

Что делать? уже мозги пухнут, ни чего понять не могу. Уже как только не пробывал присвоить значение, ни как не получается(((((
78K
01 мая 2012 года
maxmironov94
9 / / 24.04.2012
Цитата: UserNet2008
frmPrintGo.Image1.Picture = LoadPicture(frmPrint.CommonDialog1.FileName)



Спасибо :)

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог