ALTERAR O ICON DO FORMULARIO EM RUNTIME
boa noite estou precisando da ajuda de vcs mais uma vez, estou chamando meus forms desta maneira
mas a parte alterar o icon do formulario nao esta funcionando esta dando erro, alguem pode me ajudar
Dim fForm As Form
If File_Exists(Replace(CaminhoIcon, [Ô]\\[Ô], [Ô]\[Ô])) = True Then
fForm.Icon = LoadPicture(Replace(CaminhoIcon, [Ô]\\[Ô], [Ô]\[Ô]))
End If
fForm.KeyPreview = True
Set fForm = Forms.Add(fNome)
fForm.Caption = fTitulo & [Ô]<[Ô] & fNome & [Ô]>[Ô]
fForm.Show
desde ja agradeço a atenção de todos
mas a parte alterar o icon do formulario nao esta funcionando esta dando erro, alguem pode me ajudar
Dim fForm As Form
If File_Exists(Replace(CaminhoIcon, [Ô]\\[Ô], [Ô]\[Ô])) = True Then
fForm.Icon = LoadPicture(Replace(CaminhoIcon, [Ô]\\[Ô], [Ô]\[Ô]))
End If
fForm.KeyPreview = True
Set fForm = Forms.Add(fNome)
fForm.Caption = fTitulo & [Ô]<[Ô] & fNome & [Ô]>[Ô]
fForm.Show
desde ja agradeço a atenção de todos
mostra ai o codigo da função File_Exists
???
se o arquivo existe deveria ser carregado! pode ser o caminhoIcon que esta errado. ja tentou fazer msgbox CaminhoIcon??
???
se o arquivo existe deveria ser carregado! pode ser o caminhoIcon que esta errado. ja tentou fazer msgbox CaminhoIcon??
O ARQUIVO EXISTE O ERRO OUT OF MEMORY ERRO 7
Caro, colega só para lembrar que o arquivo deve ser do tipo (*.ico ou *.cur)
Se a imagem que esta tentando mudar não for desses dois tipos não vai conseguir!
Se a imagem que esta tentando mudar não for desses dois tipos não vai conseguir!
Tópico encerrado , respostas não são mais permitidas