Usando imagens ajustaveis

Já precisou exibir imagens em um formulário de forma que se a imagem fosse maior que o formulário surgissem barras de rolagem para você controlar a visualização da imagem ? Aqui vai a receita...

- Inicie um novo projeto Standard.EXE no VB5 ou VB6.

- Você vai precisar de dois formulários : um formulário MDI pai e outro MDI filho.

- No menu Project selecione : Add MDI form - isto incluirá um formulário MDI no seu projeto. A seguir insira um controle CommonDialog no formulário e crie no Menu Editor (para abrir o editor tecle CTRL+E) com um menu com a opção Arquivo. Veja a figura abaixo:

Formulário MDI da aplicação Menu Editor com opção do menu da aplicação

- No formulário MDI teremos o código associado ao menu Arquivo. Quando o usuário clicar na opção arquivo iremos abrir uma janela de diálogo de procurar o arquivo para exibir.

Private Sub mnuFile_Click()
 
    CommonDialog1.ShowOpen

    If CommonDialog1.FileName <> "" Then
          'cria uma instância de um novo formulário baseado em form1
          Dim A As New Form1
          'carrega a imagem selecionada
          A.Image1.Picture = LoadPicture(CommonDialog1.FileName)
          A.Caption = CommonDialog1.FileName
          'exibe o formulário
          A.Show
          'define as medidas do formulário
          A.Width = A.Width - Screen.TwipsPerPixelX
    End If
End Sub

 Hasta la vista