BORDA DO TEXTBOX
Olá pessoal, como faço pra mudar a cor da borda de um textbox, e de outros componentes como o combox, por exemplo.
via código não sei se tem como, uma solução seria desenhar line shap em volta das texts e mudar a largura e a cor delas.
Eu faço o msm, tiro a borda do text, pego o shape e coloco em volta da textbox e mudo a cor da borda do shape e pronto
Esse código redimensiona e faz tudo automaticamente
Private Sub Form_Load()
Text1.BorderStyle = 0 ' Deixa o text sem borda
Shape1.BorderColor = vbBlue ' Deixa a borda do shape azul
Shape1.Width = Text1.Width + 30 ' O shape fica do msm tamanho do text em largura
Shape1.Height = Text1.Height + 30 ' O shape fica do msm tamanho do text em altura
Shape1.Top = Text1.Top - 10
Shape1.Left = Text1.Left - 10
End Sub
DaÃ, independente da altura, largura, etc , o Shape fica preso no TextBox
Esse código redimensiona e faz tudo automaticamente
Private Sub Form_Load()
Text1.BorderStyle = 0 ' Deixa o text sem borda
Shape1.BorderColor = vbBlue ' Deixa a borda do shape azul
Shape1.Width = Text1.Width + 30 ' O shape fica do msm tamanho do text em largura
Shape1.Height = Text1.Height + 30 ' O shape fica do msm tamanho do text em altura
Shape1.Top = Text1.Top - 10
Shape1.Left = Text1.Left - 10
End Sub
DaÃ, independente da altura, largura, etc , o Shape fica preso no TextBox
Mas tbem vc pode usar o "Microsoft Forms 2.0 Object Library" que vc pode escolher a cor da borda do Combo, textbox, etc
Tópico encerrado , respostas não são mais permitidas