Postada em 23/01/2012 00:35 hs
Para colocar uma imagem no MDI, precisa colocar uma picture, mas veja, a picture não possui a propriedade Strech, então coloca dentro da picture um controle imagem, com a propriedade Strech = True, assim evita distorções na imagem.
Eu tenho uma rotina em meu sistema, que o usuario coloca a cor que quiser no aplicativo, tipo de botões de comando (Java, XP,95, Hover, Win31, Netscape, Flat, etc), e coloca uma imagem de fundo nos formulários, selecionando a imagem em uma combo, voce procura estes arquivos e carrega na combo, ao selecionar o arquivo, você coloca no LostFocus da combo uma rotina pra carregar a imagem, exemplo:
Dim sLOADIMAGEM As Picture
Private Sub cboIMAGEM_LostFocus()
COLOCAIMAGEM
End Sub
Private Function COLOCAIMAGEM()
Dim sCOLAR As String
sCOLAR = Drive & Pasta & cboIMAGE.TEXT
If Dir$(sCOLAR) <> "" Then
Set sLOADIMAGEM = LoadPicture(sCOLAR)
Set SeuFormulario.Imagem.Picture = sLOADIMAGEM
End If
End If
Exit Function
End Function
Coloque uma captura de erro, pra evitar problemas.
vlu//
|
