COMO AJUSTAR O TAMANHO DA IMAGEM NO MDIFORM_LOAD
Boa tarde, encontro dificuldades em ajustar o tamanho da imagem de background do meu formPrincipal.
A imagem esta maior que a própria janela do form, gostaria de deixar ela do mesmo tamanho. 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
Desde já muito Grato. Obrigado.
A imagem esta maior que a própria janela do form, gostaria de deixar ela do mesmo tamanho. 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
Desde já muito Grato. Obrigado.
Muito Obrigado, consegui fazer sem mexer no código, só usei uma propriedade chamada Stretch.. Porem agora a imagem fica na frente de qualquer outra coisa, como eu faço para definir ela como background ? Ou jogar ela pra trás das outras imagens ?
Tópico encerrado , respostas não são mais permitidas