Загрузка картинки из файла - [Насоответствие типов]

[el-niko]

В своём проекте я создал форму, на которой разместил Драйв-, Дир- и Файллист. Связал их, но всё равно какаято ошибка - "Несоответствие типов" - подскажите пожалуйста...

Private Sub Dir_Change()
File.Path = Dir.Path
End Sub

Private Sub Dr_Change()
Dir.Path = Dr.Drive
File.Path = Dir.Path
End Sub

Private Sub File_Click()
Form1.p.Picture = Dir.Path & "\" & File.FileName
End Sub

Private Sub Form_Load()
Dir.Path = Dr.Drive
File.Path = Dir.Path
End Sub

Спасибо за внимание...

[el-niko]

А, и ещё, если можно, подскажите, как задавать свойство Pattern у Файл листа, ато я что-то не догоняю... =)

[GSerg]

loadpicture(Dir.Path & "\" & File.FileName)

[el-niko]

а как задавать фильтрацию по разрешению файла в FileList ?

[tyomitch]

Pattern Property

Returns or sets a value indicating the filenames displayed in a FileListBox control at run time.

Syntax

object.Pattern [= value]

The Pattern property syntax has these parts:

Part Description
Object An object expression that evaluates to an object in the Applies To list.
Value A string expression indicating a file specification, such as "*.*" or "*.FRM". The default is "*.*", which returns a list of all files. In addition to using wildcard characters, you can also use multiple patterns separated by semicolons (;). For example, "*.exe; *.bat" would return a list of all executable files and all MS-DOS batch files.

Remarks

The Pattern property plays a key role in designing an application's file-browsing and manipulation capabilities. Use Pattern in combination with other file-control properties to provide the user with ways to explore files or groups of similar files. For example, in an application dedicated to launching other programs, you could designate that only .exe files be displayed in the file list box (*.exe). Other key file-control properties include Drive, FileName, and Path.

Changing the value of the Pattern property generates a PatternChange event.

[Akella]

Привет. el-niko, а зачем тебе вся эта тегомотина с File и Dir?
Используй лутче CommonDialog он находиться (Кликни Правой кн. мыщи в меню где находяться элементу ну Label, pictureBox. забыл как оно завётся) Далее Components>CommonDialog... он находиться гдето примерно посередине и Все Делаещь кнопку у пишеш обращение