Já pensou em projetar seu próprio navegador gráfico? Na verdade, isso não é nada difícil, podemos facilmente usar a programação VB para conseguir isso.
O processo de design do navegador gráfico é o seguinte:
1. Inicie o VB, crie um novo arquivo de projeto padrão, e no formulário Form1, altere a Legenda do Form1 = "Navegador Gráfico".
2. Adicione os controles de unidade, pasta e arquivo ao formulário a partir da caixa de ferramentas. O nome da unidade é Diver1, o nome da pasta é Dir1 e o nome do arquivo é Arquivo1 e ajuste as posições apropriadas.
3. Adicione o controle PictureBox ao formulário da caixa de ferramentas. O nome do PictureBox é Picture1 e ajuste a posição, altura e largura apropriadas.
4. Na caixa de ferramentas, adicione o controle CommandButton ao formulário. O nome do CommandButton é Command1 e ajuste a posição, altura e largura apropriadas.
5. Clique duas vezes com o mouse no espaço em branco do formulário para abrir a janela de edição de código e insira o seguinte código:
PRivateSubForm_Load()
'Defina a unidade e o diretório onde o aplicativo está localizado como a unidade e o diretório atuais
'App é o objeto da aplicação atual
Drive1.Drive=App.Path
Dir1.Path=App.Path
Arquivo1.Pattern="*.bmp;*.ico;*.wmf"
Fim Sub
6. Clique duas vezes no controle do driver no formulário para abrir a janela de edição de código e insira o seguinte código:
PrivateSubDrive1_Change()
'Quando a unidade selecionada for alterada, atualize o conteúdo da caixa de listagem de diretórios; quando o diretório for alterado, acione o evento Change da caixa de listagem de diretórios;
Dir1.Path=Drive1.Drive
Fim Sub
7. Clique duas vezes com o mouse no controle de pasta do formulário para abrir a janela de edição de código e insira o seguinte código:
PrivateSubDir1_Change()
'Quando o diretório mudar, atualize o conteúdo da caixa de listagem de arquivos
Arquivo1.Path=Dir1.Path
Fim Sub
8. Clique duas vezes com o mouse no controle de arquivo do formulário para abrir a janela de edição de código e insira o seguinte código:
PrivateSubFile1_Click()
'Diretório raiz, o último caractere no caminho é uma barra invertida "/", como: C:/
'Quando é um diretório não raiz, o último caractere do caminho não é uma barra invertida "/"
'Para obter o nome completo do arquivo, você deve adicionar uma barra invertida "/" no final do caminho
IfRight(File1.Path,1)〈〉"/"Então
'Quando for um diretório não raiz, adicione uma barra invertida "/" no final do caminho
tempstring=Arquivo1.Path&&"/"&&Arquivo1.NomeDoArquivo
Outro
tempstring=Arquivo1.Path&&"/"&&Arquivo1.NomeDoArquivo
FimSe
'Carrega os arquivos selecionados
Form1.Picture1.Picture=LoadPicture(tempstring)
Fim Sub
9. Clique duas vezes no controle “Fechar” do formulário para abrir a janela de edição de código e insira o seguinte código:
PrivateSubCommand1_Click()
Descarregar-me
Fim
Fim Sub
Salve o arquivo e execute-o, e seu próprio navegador gráfico estará pronto. ->