VB 2005 - Incluindo barra de rolagens em suas imagens

Se você deseja exibir imagens em sua aplicação VB 2005 pode ter que efetuar a rolagem da imagem tanto horizontal como vertical de forma a poder ver todas as partes da imagem.

Efetuar esta tarefa no VB2005 é muito simples basta você armazenar a imagem em um controle PictureBox, definir sua propriedade SizeMode como sendo igual a AutoSize e colocar o controle em um formulário definindo a propriedade AutoScroll como sendo igual a True.

Crie um novo projeto no VB 2005 do tipo Windows Application e no formulário padrão form1.vb inclua um controle PictureBox e defina a sua propriedade SizeMode como igual a AutoSize, a seguir defina sua propriedade Location como 0,0. Altere a propriedade AutoScroll com seu valor igual a True. Agora inclua o seguinte código no evento load do formulário:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' ----- Selecionando a imagem
Dim locateFile As New OpenFileDialog

' ----- Solicita o arquivo inicial
locateFile.Filter = "JPG files (*.jpg)|*.jpg"
locateFile.Multiselect = False

If (locateFile.ShowDialog() = Windows.Forms.DialogResult.OK) Then
' ----- Mostra a imagem selecionada
picCopiaTela.Load(locateFile.FileName)
Me.AutoScroll = True
Else
' ----- sai do programa
Me.Close()
End If

End Sub

Executando o projeto e selecionando uma imagem teremos o seguinte resultado:

Até a próxima dica VB.NET.

José Carlos Macoratti