Ajustar tamanho da imagem

[matheus_neriss 0]

Boa tarde amigos, sou novo em VB e encontro dificuldades na seguinte situação.

 

Na tela principal do meu programa eu tenho um plano de fundo com o logo da empresa que fica muito maior do que a tela do programa, assim não consigo ver a imagem completamente. Eu gostaria de ajustar ele de acordo com a resolução do computador, será que isso é possível?

 

Desde já muito grato.

 

Abraç.

[KhaosDoctor 242]

Mude a propriedade BackGroundImageLayout do form para "Zoom" ou "Stretch".

[matheus_neriss 0]

Desculpa não entendi a explicação.

 

Estou usando o seguinte código

Private Sub MDIForm_Load()

Call Rot_principal_ler_parametros_sistema

Call Rot_principal_carrega_logotipo

Call conexao_banco_dados

End Sub

 

Private Sub Rot_principal_carrega_logotipo()

Principal.Picture = LoadPicture(PathLogo)

End Sub

 

Private Sub Rot_principal_ler_parametros_sistema()

Dim Caminho As String

Dim I As Integer

 

Caminho = "C:\Sistemas\GNBAT\GNBAT.INI"

If Dir(Caminho) = "" Then

MsgBox "GNBAT.INI na pasta C:\Sistemas\GNBAT\ não encontrado", vbCritical, "Erro"

End

End If

Open Caminho For Input As #1

I = 1

Do While I <= 2

Select Case I

Case 1

Input #1, PathGnbat

Case 2

Input #1, PathLogo

End Select

I = I + 1

Loop

Close #1

End Sub

 

 

 

Como ficaria usando esse meu código ? Obrigado

[KhaosDoctor 242]

Você não precisa de código.

 

Você colocou a imagem no fundo do form usando o que? Uma pictureBox? ou você utilizou a propriedade do form que chama BackGroundImage?

 

Se você usou a propriedade, ali junto da barra de propriedades tem uma outra propriedade que se chama BackgroundImageLayout. Ela suporta diversos valore como: Tile, Stretch, Zoom e etc basta você setar estas propriedades para Zoom ou Stretch. Se estiver usando uma picbox basta clicar na setinha branca ao lado dela com ela selecionada e selecionar Zoom ou Stretch.

 

Se você quiser no código:

 

 

Private Sub Rot_principal_carrega_logotipo()
Principal.Picture = LoadPicture(PathLogo)
Principal.Picture.SizeMode = PictureBoxSizeMode.Stretch
End Sub

 

 

Ou

 

 

Private Sub Rot_principal_carrega_logotipo()
Principal.Picture = LoadPicture(PathLogo)
Principal.Picture.SizeMode = PictureBoxSizeMode.Zoom
End Sub

[matheus_neriss 0]

KhaosDoctor, testei das duas maneiras que você postou mais as duas deram erro.

 

Eu tenho que atribuir alguma propriedade para dar o comando "Zoom" ou "Stretch" ? Se sim como eu atribuo ? Sou novo em programação, estou usando VB6.

 

Muito obrigado pela sua atenção, abraços.

[KhaosDoctor 242]

Sim era o que eu estava tentando lhe dizer desde o principio ^^ é só questão de propriedades, não funcionou porque eu usei o VB 2010 para dar o exemplo de código.