En gambas existen varias clases de dialogos.
diálogo Openfile, savefile y selectdirectory
Se usan de la siguiente forma
dim Dialogo as dialog, Fichero as string
Dialogo.title="titulo de la ventana "
Dialogo.filter=[ "*.png;*.jpg;*.jpeg;*.bmp", "Imágenes";"*", "Todos los archivos" ]
Dialogo.path="/home"
if Dialogo.openfile( ) then
message.error(" el usuario canceló" )
else
Fchero=Dialogo.path
endif
Dialogo.title="titulo de la ventana "
Dialogo.filter=[ "*.png;*.jpg;*.jpeg;*.bmp", "Imágenes";"*", "Todos los archivos" ]
Dialogo.path="/home"
if Dialogo.openfile( ) then
message.error(" el usuario canceló" )
else
Fchero=Dialogo.path
endif
En el caso de que se hayan seleccionado varios ficheros se debe mirar el array de Dialogo.path
dim Dialogo as dialog, Ficheros as string[]
Dialogo.title="titulo de la ventana "
Dialogo.filter=[ "*.png;*.jpg;*.jpeg;*.bmp", "Imágenes";"*", "Todos los archivos" ]
Dialogo.path=user.home
if Dialogo.openfile( ) then
message.error(" el usuario canceló" )
else
for each imagen in Dialog.path
Ficheros=split( Dialogo.path, "\n" )
next
end if
Dialogo.title="titulo de la ventana "
Dialogo.filter=[ "*.png;*.jpg;*.jpeg;*.bmp", "Imágenes";"*", "Todos los archivos" ]
Dialogo.path=user.home
if Dialogo.openfile( ) then
message.error(" el usuario canceló" )
else
for each imagen in Dialog.path
Ficheros=split( Dialogo.path, "\n" )
next
end if
En este punto conviene mencionar aquí al objeto FILE.
Dim Fichero as string
Fichero=file.basename(dialog.path) ====> obtiene el nombre del fichero
Fichero=file.ext(dialog.path) ====> obtiene la extensión del fichero
Fichero=file.name(dialog.path) ====> obtiene el nombre completo del fichero
Fichero=file.dir(dialog.path) ====> obtiene el path del fichero
Fichero=file.basename(dialog.path) ====> obtiene el nombre del fichero
Fichero=file.ext(dialog.path) ====> obtiene la extensión del fichero
Fichero=file.name(dialog.path) ====> obtiene el nombre completo del fichero
Fichero=file.dir(dialog.path) ====> obtiene el path del fichero
selectcolor
Sirve para elegir un color.
¡Ojo! el código de color no se corresponde con los colores constantes (color.blue por ejemplo)
Dialog.Color = ME. BackColor
IF Dialog.SelectColor() THEN RETURN
ME. BackColor = Dialog.Color
IF Dialog.SelectColor() THEN RETURN
ME. BackColor = Dialog.Color
selectfont
Sirve para elegir una fuente
Dialog.Font = TextArea Edit.Font
IF Dialog.SelectFont () THEN RETURN
TextAreaEdit.Font = Dialog.Font
IF Dialog.SelectFont () THEN RETURN
TextAreaEdit.Font = Dialog.Font