Problema s LoadPicture

[Dinni]

Pitayus' zagruzit' kartinki v VB
image.Picture=LoadPicture(address)
Kartinka *.gif , size2-3 KB zagruzhaetsya normal'no.
A pri zagruzke *.bmp 19KB poluchayu Run-time Error '75'
Posovetuyte, please, chto mozhno sdelat'!

[alibek]

Вообще-то правильно делать

Код: Выделить всё

Set image.Picture = LoadPicture(address)

Кроме того, указываешь ли ты расширение файла? (.bmp) И есть ли этот файл на диске?

Ошибка 75 это "Path/File access error". Либо ты указываешь неправильное имя файла, либо у тебя нет доступа к этому файлу.

[Cyrax]

Pitayus' zagruzit' kartinki v VB
image.Picture=LoadPicture(address)
Kartinka *.gif , size2-3 KB zagruzhaetsya normal'no.
A pri zagruzke *.bmp 19KB poluchayu Run-time Error '75'
Posovetuyte, please, chto mozhno sdelat'!

ну уж не знаю. только что проверил 3Mb BMP грузит за милую душу. и никаких ошибок. код свой покажи, мож в нем че не так...

[Dinni]

Poprobovala s Set, tozhe samoe. Imya faila ya ukazivayu pravil'no.

Pri sohranenii kartinok i *.exe na zhestkom diske vse rabotaet normal'no.
Mne nuzhno sdelat' CD s poiskovoi maskoi i v nei zhe prosmatrivat' rezultati s Pictures (vse dannie v tekstovom faile). Poprobovala vse zapisat' na disketu. Imya faila peredaetsya pravil'no, a kartinka otkrivaetsya cherez raz. Ne mogu ponyat' pochemu.
Kstati vopros: s LoadPicture nuzhen absolutniy adress ili mozhno i otnositel'niy. U menya seichas absolutniy.

Da, kod prostoi. Podozrevayu, chto u menya problema s dostupom k diskete. A kak mozhno eshe zagruzhat' Picture?
...
Me.Dir1.Path = data(merke(z), 6) 'Directory of file
...

Private Sub Dir1_Change()
Me.File1.Path = Me.Dir1.Path
End Sub


Private Sub File1_Click()
Dim komplettpfad As String
komplettpfad = Me.Dir1.Path + "\" + Me.File1.FileName
Set Me.imgBild.Picture = LoadPicture(komplettpfad)


End Sub

[alibek]

Проверь, что у тебя получается в Me.Dir1.Path + "\" + Me.File1.FileName
дело в том, что есть корневой каталог, то результат будет (например) "C:\", т.е. в результате получится "C:\\file1.bmp"
Лучше сделай так:

Код: Выделить всё

Private Sub File1_Click()
Dim komplettpfad As String
komplettpfad = Me.Dir1.Path
If Right$(komplettpfad,1) <> "\" Then komplettpfad = komplettpfad & "\"
komplettpfad = komplettpfad + Me.File1.FileName
Set Me.imgBild.Picture = LoadPicture(komplettpfad)
End Sub

И еще. Правильней было бы использовать не Me.Dir1.Path, а Me.File1.Path

[Dinni]

Spasibo!!!
Zarabotalo. Problema byla s diskovodom.
Popravku uchtu.