Perchè va in bug?
testo di debug:
openfile.lstructsize = len(openfile)
openfile.hwnd sahibi = uygulama.hwnd
#end if
openfile.lpstrfiletitle = openfile.lpstrfile
openfile.nmaxfiletitle = openfile.nmaxfile
openfile.lpstrinitialdir = initdir
openfile.lpstrtitle = strtitle
openfile. Bayraklar = ofn_hideread Only or ofn_overwriteprompt or ofn_createprompt
'openfile.flags = 0
lreturn = getsavefilename(openfile)
lreturn = 0 sonra
Saveialog = ""
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
Saveialog = trim(left(openfile.lpstrfile, instr(1, openfile.lpstrfile, etcnullchar) - 1))
Sonunda, eğer sona erirse
end fonksiyonu
public function opendialog(strtitle as string, byval filtre as string, byval initdir as string)
dim openfile as openfilename
dim lreturn as long
Doğru$(filter, 1) <> "|" sonra filtre = filtre + "|"
Filtre = (filter, "|", chr ****)
openfile.lpstrfilter = filtre
openfile.nfilterindex = 1
openfile.lpstrfile =(257, 0)
#if etca7 sonra
openfile.nmaxfile = lenb (openfile.lpstrfile) - 1
openfile.lstructsize = lenb(openfile)
openfile.hwnd sahibi = uygulama.hwnd32
#else
openfile.nmaxfile = len(openfile.lpstrfile) - 1
openfile.lstructsize = len(openfile)
openfile.hwnd sahibi = uygulama.hwnd
#end if
openfile.lpstrfiletitle = openfile.lpstrfile
openfile.nmaxfiletitle = openfile.nmaxfile
openfile.lpstrinitialdir = initdir
openfile.lpstrtitle = strtitle
openfile. Bayraklar = 0
lreturn = getopenfilename(openfile)
lreturn = 0 sonra
opendialog = ""
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
opendialog = trim(left(openfile.lpstrfile, instr(1, openfile.lpstrfile, etcnullchar) - 1))
Sonunda, eğer sona erirse
end fonksiyonu