Il giovedì 19 novembre 2009 21:04:19 hai scritto: > > ------------------------- > > ' Filter for our user file open dialog. All image types supported by > > Gambas PRIVATE FUNCTION FileFilter(OPTIONAL All AS Boolean = FALSE) AS > > String[] DIM filter AS NEW String[] > > IF All THEN > > filter.Add("*.png *.jpeg *.jpg *.bmp *.gif *.xpm") > > filter.Add("All Graphics") > > END IF > > filter.Add("*.png") > > filter.Add("Portable Network Graphics") > > filter.Add("*.jpeg *.jpg") > > filter.Add("Joint Photographic Experts Group") > > filter.Add("*.bmp") > > filter.Add("Windows Bitmap") > > filter.Add("*.gif") > > filter.Add("Graphics Interchange Format") > > filter.Add("*.xpm") > > filter.Add("X PixMap") > > IF All THEN > > filter.Add("*") > > filter.Add("All Files") > > END IF > > RETURN filter > > END > > Filters must be separated by semicolons, not spaces. Try with semicolons, > it should normally work. > > filter.Add("*.jpeg;*.jpg")
Good ! It works....just semicolon and no space... So you should correct the example "PictureDatabase" from where I took the PRIVATE FUNCTION FileFilter. Regards Pino -- Key ID: 0xF6768208 Key fingerprint = B16D 0A7C 5B29 A334 CE6A 71F6 EAF8 3D88 F676 8208 Key server: hkp://wwwkeys.eu.pgp.net ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user