Jump to content
Sign in to follow this  
klaudy

Estilos atraves de tag

Recommended Posts

klaudy

ola, boma dia

Eu gostava de saber como criar estilos atraves de tags??

Eu fiz o seguinte :

Dim estilos = btn.tag.ToString.Split(" "c)

Mas agr não sei como aplicar configurações a este estilo.

Eru queria, que o btn dessa tag podesse ter uma imagem.

Como fazo???

Share this post


Link to post
Share on other sites
Caça

A propriedade Tag é do tipo Object, por isso aceita qualquer coisa.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
klaudy

mas como fazo

s quiser k o estilos dessa tag tenha uma imagem ou o tipo de texto alinhado?'

Share this post


Link to post
Share on other sites
Caça

Para isso tens as propriedades Image e Text.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
klaudy

ya ...

mas se fizer

btn.tag = color.brown

não da ...

eu kero é k

x encontrar a tag  faza  este tipo de estilo

Share this post


Link to post
Share on other sites
Caça

Dar dá, basta coloca isto no load

Button1.BackColor = CType(Button1.Tag, Color)


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
klaudy

Eu escrevi

Private sub ApplyStyleButton(Byval btn As button)
btn.BackColor = Ctype(btn.tag, color)
Dim estilos = btn.tag.ToString.Split(" "c)
btn.Tag = Color.Brown

mas não vale de nada dá na mesma erro

Share this post


Link to post
Share on other sites
Caça

O que é que pretendes fazer? Em vez de Byval não devia ser ByRef? O que é que queres fazer com esse Split?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
klaudy

Private sub ApplyStyleButton(Byval btn As button)
btn.Tag = Color.Brown
btn.BackColor = Ctype(btn.tag, color)
Dim estilos = btn.tag.ToString.Split(" "c)

Era so preciso trocar o  lugar

bgd n mm

Share this post


Link to post
Share on other sites
Caça

Para isso, basta isto

Private sub ApplyStyleButton(Byval btn As button)
btn.BackColor = Color.Brown
Dim estilos = btn.tag.ToString.Split(" "c)


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
passado

Pegando nesta questão, eu tenho um processo que me diz se os campos obrigatorios estao preenchidos ou nao, e com o topico deste amigo pensei,  e se definir uma tag de "obrigatorio" e fizer esse mesmo for a vereficar se esses objectos estao preenchidos ou nao, esses objectos podem ser Combos, textbox, checkboxs, isso e possivel?

Share this post


Link to post
Share on other sites
Caça

Para isso era mais vantajoso criar uma classe que herda de uma textbox por exemplo, e adicionavas uma propriedade "preenchimento obrigatório" e outra "erro de preenchimento". Depois teria também uma função booleana que iria validar.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
passado

Para isso era mais vantajoso criar uma classe que herda de uma textbox por exemplo, e adicionavas uma propriedade "preenchimento obrigatório" e outra "erro de preenchimento". Depois teria também uma função booleana que iria validar.

isso sera semelhante ao que tenho, que e uma class que percorre todos os objectos que eu definir num determinado formulario ou objecto, mas posso ter é textbox mm obrigatorias e outras sem ser obrigatorias e o que tenho neste momento seja obrigatorio ou nao se nao estiver preenchido retorna o false, nao sei me fiz entender :)

Share this post


Link to post
Share on other sites
Caça

Tu é que sabes, o campo Tag é do tipo Object, por isso aceita qualquer valor. Só tens de colocar lá um True/False e na tua função onde fazes a validação, convertes a tag para boolean e verificas o seu valor.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
passado

Mas como crio a função para correr todos os objectos sem especificar? essa e a minha grande duvida, é que eu actualmente tenho um ciclo para textbox outro para combo etc uma vez que o campo tag e comum a qualquer tipo de objecto, iria simplificar muito

Share this post


Link to post
Share on other sites
Caça

Podes perfeitamente continuar com o que tens.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
passado

pois mantive o que tinha apenas coloquei um if e testo apenas os controlos que a tag é true, obrigado pela ajuda

Share this post


Link to post
Share on other sites
klaudy

Passado --> Mas como crio a função para correr todos os objectos sem especificar?

Não precisas de percorrer todos os controls com um if, podes colocar um ciclo

For each c as control In theForm.Controls ' ciclo pra verificar todos os controlos
if c.HasChildren Then ApplyStyle(c) ' verificar se é contentor, para se for ir para o estilo que kiseres colocar 

for Each s In Stylers  ' este ciclo serve para criares um classe (ApplyStyle) e colocares todos as modificações nos teus controlos, de modo a que todos fikem iguais
  s.ApplyStyle(c)
Next
Next

Acho que assim fica melhor do k tares sempre com if ... y com if ñ verifica os contentores, que são controles que tem outros controles dentro deles

Acho k ajuda + :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.