Mengganti Warna Border dari Kontrol – Kode VB Net

Feryanto Sunarli, A.Md Kontrol, Source Code, Visual Basic .Net, ,

Kontrol seperti Button, TextBox atau ComboBox tidak mempunyai properti untuk mengganti warna border atau pinggirannya, maka jika ingin mengganti warna border dari Kontrol diperlukan cara khusus. Berikut contoh pembuatannya.

  • Buat Project baru dengan 1 Form dan 1 Module.
  • Tambahkan Kontrol ke Form1 : 1 TextBox (TextBox1), 1 ComboBox (ComboBox1), 1 Button (Button1)
  • Tulis kode ini di Module1 : 
    
Sub BorderColor(ByVal Ctl As Control, ByVal cColor As Color, Optional ByVal wWidth As Integer = 1)

Ctl.Region = New Region(New Rectangle(wWidth, wWidth, Ctl.Width - (wWidth * 2), Ctl.Height - (wWidth * 2)))

Windows.Forms.ControlPaint.DrawBorder(Ctl.Parent.CreateGraphics,
 Ctl.Bounds, cColor, wWidth, 3, cColor, wWidth, 3, cColor, wWidth, 3, 
cColor, wWidth, 3)

Ctl.Refresh()

End Sub
  • Tulis kode ini di event Form1_Paint :
BorderColor(TextBox1, Color.Red)
BorderColor(ComboBox1, Color.Blue)
BorderColor(Button1, Color.Yellow, 3)

Tinggalkan komentar