Как вызвать диалоговое окно выбора файлов?
А если более точный вопрос то мне интересно как можно присвоить значение адреса переменной(и какого типа переменной). Чтобы потом можно было написать например:
Переменная = Файл выбранный пользователем в диалоговом окне выбора файлов
Image1.Picture = Переменная.
frmPrintGo.Image1.Picture = LoadPicture(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)
Спасибо :)