CAIXAS DE DIALOGO NAO RECEBEM O EFEITO ACTIVESKIN
Pessoal...
Alguém usa o ActiveSkin ?
Coloquei em meu projeto para dar uma melhorada no visual, porém, as caixas de diálogo (MsgBox e InputBox) não recebem o efeito...alguém sabe como fazer para corrigir este detalhe ?
Obrigado !
Alguém usa o ActiveSkin ?
Coloquei em meu projeto para dar uma melhorada no visual, porém, as caixas de diálogo (MsgBox e InputBox) não recebem o efeito...alguém sabe como fazer para corrigir este detalhe ?
Obrigado !
OK ! vou dá uma olhada...
Será que tem como troca a skim em tempo de execução ? tentei assim:
Mas deu erro:
[txt-color=#e80000]Run-timer error 432
File name or class name not found during Automation operation.[/txt-color]
Será que tem como troca a skim em tempo de execução ? tentei assim:
Private Sub cmd_Alterar_Click()
Skin1.LoadSkin (txtCam.Text)
Skin1.ApplySkin Me.hWnd
End Sub
Mas deu erro:
[txt-color=#e80000]Run-timer error 432
File name or class name not found during Automation operation.[/txt-color]
Caro Menudo, obrigado pr testar meu componente. Se tiver alguma sugentão ou bug, é só informar que estarei ajustando.
Esta dll tem a propriedade aplicarSkin que é definido em tempo de execução e antes do método Abrir:
Ex.:
Já existe uma atualização da minha Msgbox conforme descrito aqui.Esta versão estárá disponÃvel em breve.
No seu exemplo pode ser assim:
Esta dll tem a propriedade aplicarSkin que é definido em tempo de execução e antes do método Abrir:
Ex.:
[ô]Cria uma instância da Msg e da Imput em Geral ou em um módulo
Dim Msg As New RMsg.MsgBox
Dim Imput As New RMsg.InputBox
[ô]No evento que chama o componente:
Imput.AplicarSkin App.Path & [Ô]\Skins\visio.skn[Ô] [ô]Aqui é que troca o skin
Text1.Text = Imput.Abrir([Ô]Insira seu nome Completo? [Ô], [Ô]Titulo[Ô], [Ô]Valor Padrão Opcional[Ô])
[ô]Ou
Msg.AplicarSkin App.Path & [Ô]\Skins\visio.skn[Ô] [ô]Aqui é que troca o skin
Msg.Abrir [Ô]A Mensagem[Ô]...Já existe uma atualização da minha Msgbox conforme descrito aqui.Esta versão estárá disponÃvel em breve.
No seu exemplo pode ser assim:
Msg.AplicarSkin (txtCam.Text) [ô]Para a MsgBox
ou
Imput.AplicarSkin(txtCam.Text) Para a Imputbox
Deu certo com o componente Common Dialog:
[Ô]CD1[Ô] é o nome do meu Common Dialog
Roberto Martins...
Seu componente é Excelente cara !
Baixei o exemplo e testei...mas da maneira que você exemplificou aqui fica mais facil (pelo menos eu achei)...
valeu e obrigado !
Private Sub cmd_Alterar_Click()
CD1.DialogTitle = [Ô]Abrir Arquivos.[Ô]
CD1.InitDir = App.Path
CD1.ShowOpen
CD1.Filter = [Ô]Arquivo Skin(*.skn)|*.skn|Todos [Ô] & [Ô]Arqs. (*.*)|*.*[Ô]
Skin1.LoadSkin CD1.FileName
Skin1.ApplySkin Me.hWnd
End Sub
[Ô]CD1[Ô] é o nome do meu Common Dialog
Roberto Martins...
Seu componente é Excelente cara !
Baixei o exemplo e testei...mas da maneira que você exemplificou aqui fica mais facil (pelo menos eu achei)...
valeu e obrigado !
Citação:Roberto Martins...
Seu componente é Excelente cara !
Obrigado. Em breve estarei postando nova versão.
Tópico encerrado , respostas não são mais permitidas