|
分類:[VB.NET/VB2005 以降]
vb2015です
タブコントロール内に配置されているラベルのバックカラーを大きい順に色分けをしたいです。
よろしくお願いします。
Dim bc() As Color = New Color() {Color.Pink, Color.Yellow, Color.PowderBlue,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window,
SystemColors.Window, SystemColors.Window, SystemColors.Window, SystemColors.Window}
For i = 1 To 43
CType(Form2.Windows("TabWindow1").Windows("TabPage1").Windows("Label" & i), Label).BackColor = bc(Array.IndexOf(array13, CInt(Windows("Label" + i.ToString()).Text)))
Next
|