QFileListBox

Componente QFileListBox (Caixa da lista de arquivos)

QFileListBox quando quiser manter uma caixa com uma lista com todos os
arquivos num especifico diretório. Podem também ser listados diretórios.

Demais componentes - Click Barra lateral esquerda
Informações adicionais - Click propriedades em azul

Propriedades de QFileListBox

Campo	Tipo	R/W+	Padrão
Align	INTEGER	RW	alNone
Color	INTEGER	RW
Cursor	INTEGER	RW	crDefault
Directory	STRING	RW
Drive	STRING	RW
Enabled	INTEGER	RW	True
ExtendedSelect	INTEGER	RW	True
Filename	STRING	RW
Font	QFONT	W
Height	INTEGER	RW
Hint	STRING	RW
Item	ARRAY of STRING	RW
ItemCount	INTEGER	R
ItemHeight	INTEGER	RW
ItemIndex	INTEGER	RW
Left	INTEGER	RW	0
Mask	STRING	RW	.
MultiSelect	INTEGER	RW	False
Parent	QFORM/QPANEL/QTABCONTROL	W
PopupMenu	QPOPUPMENU	W
SelCount	INTEGER	R
Selected	ARRAY of INTEGER	RW
ShowHint	INTEGER	RW	False
ShowIcons	INTEGER	RW	False
TabOrder	INTEGER	RW
Tag	INTEGER	RW
TopIndex	INTEGER	RW
Top	INTEGER	RW	0
Width	INTEGER	RW
Visible	INTEGER	RW	True

+ R = Propriedade de leitura W = Propriedade de escrita #W = Windows X = Linux G = Solaris

Métodos de QFileListBox

Método	Tipo	Descrição	Parâmetros
AddFileTypes	SUBI	Adiciona certos tipos de arquivos à caixa da lista.	INTEGER, Infinite
DelFileTypes	SUBI	Remove certos tipos de arquivos da lista.	INTEGER, Infinite
Update	SUB	Atualiza/renova lista de arquivos.	0

Eventos de QFileListBox

Evento	Tipo	Ocorre quando...	Parâmetros
OnChange	VOID	Diretório muda.	0
OnClick	VOID	O arquivo foi clicado.	0
OnDblClick	VOID	Seleção foi clicada duas vezes.	0

QFileListBox exemplo:

''Simples Aplicativo para rodar programas
'' Como usar o File List Box como uma lista de Diretórios em Rapid-Q por William Yu

$INCLUDE "RAPIDQ.INC"

DECLARE SUB ChangeDirectories
DECLARE SUB ExecuteApplication
DECLARE SUB ResizeForm

CREATE Form AS QForm
Height = 300
Width = 450
CREATE DirList AS QFileListBox
    ShowIcons = True
    Mask = "*.*"
    AddFileTypes(ftDirectory)          ' Adiciona Diretórios
    DelFileTypes(ftNormal)              'Remove arquivos (veja valores em RAPIDQ.INC)
    OnDblClick = ChangeDirectories
    Height = Form.ClientHeight
    Width = 200
END CREATE
CREATE EXEList AS QFileListBox
    ShowIcons = True
    Mask = "*.EXE"
    OnDblClick = ExecuteApplication
    Left = 215
    Height = Form.ClientHeight
    Width = 225
END CREATE
Center
Caption = DirList.Directory
OnResize = ResizeForm
ShowModal
END CREATE

SUB ChangeDirectories
ChDir(DirList.Item(DirList.ItemIndex) - "[" - "]")
DirList.Directory = CurDir$: EXEList.Directory = CurDir$
Form.Caption = CurDir$
END SUB

SUB ExecuteApplication
RUN EXEList.FileName      'Não Bloqueia
'SHELL EXEList.FileName   'Bloqueia, até o programa terminar
                                         'Cuidado ao rodar aplicativos de 16-bits
END SUB

SUB ResizeForm
DirList.Height = Form.ClientHeight
EXEList.Height = Form.ClientHeight
EXEList.Width = Form.ClientWidth - 215
END SUB

Sinta-se à vontade para dar sugestões e fazer críticas construtivas.

Anterior Alto da página Página Inicial Próxima