Boa tarde a todos os amigos do forum.

 

Sou iniciante em VB, uso o VB 6 e gostaria de saber como deixar o fundo de um textbox transparente. Tenho um form com uma imagem de fundo e preciso que os textboxes desse form fiquem com o fundo transparente para não ocultarem a imagem de background.

Existe alguma forma de se fazer isso via código, com algum OCX ou DLL??

 

Desde já agredeço a atenção de vocês.

 

Amélia

Ola Amélia, se eu não me engano não há como deixar o textbox transparente, o unico componete que dá para deixar transparente é o Label. Vá na opção backstile onde provavelmente vai estar com a opção Opaque e mude para transparente, mas nesse componete não há como ser digitado nada.

 

Espero ter ajudado.

Amélia,

 

Você conseguirá o que deseja fazendo uso do "TextBox" que está no pacote de componentes "Microsoft Forms 2.0 Object Library". Adicione-o ao seu projeto. Uma vez adicionado, você terá na "Toolbox" vários componentes interessantes. Para ter o resultado de trasnparência no "TextBox", configure sua propriedade "BackStyle" com o valor "0 - fmBackStyleTransparent". Há também outras propriedades muito interessantes e que valem a pena ser vistas.

 

Bom, é isso.

 

 

JSFF

 

 

Obrigada Michel, mas tem que ser um textbox mesmo porque há a necessidade de digitação, mas valeu pela atenção e quantoa  avc JSFF vou tentar colocar esses componentes pra ver se resolve o problema.. muito obrigada gente pela ajuda.

Se vc não Conseguir o componente, vc pode usar outro artifício....

q é colocar labels nos lugar dos texbox, sendo que para cada label vc coloca 1 textboxdo mesmo tamanho sobre ele.

estes textbox ficarão com a prpriedade visible=false.

na procedure label_click vc deixará visivel o textbox correspondente..

ex:

labelcliente, textcliente

 

private sub labelcliente_click()

textcliente.visible=true

textcliente.setfocus

end sub

' Ao dar ENTER no textbox o textbox ficará invisivel e o label vai ficar com o conteúdo dele

private sub textcliente_keypress(KeyAscii As Integer)

 If KeyAscii = 13 Then
      KeyAscii = 0

labelcliente.caption=textcliente.text

textcliente.visible=false

exit sub

else

endif

 

PS vc poderia ainda usar somente 1 text que ficaria se posicionando sobre os labels

fui