Visual Basic, Excel VSTO: Цвет вкладки рабочего листа

Question

Все,

Надеюсь, это вас хорошо!

В настоящее время я конвертирую код Visual C# в VSTO на Visual Basic и нахожусь в настройке проблемы Tab.Color для рабочего листа.

В настоящее время я делаю это:

Dim c As Color 
c = System.Drawing.Color.Blue 

Dim w As Excel.Worksheet 
w = Me.Application.Worksheets.Add() 
w.Tab.Color = c 

Однако, независимо от значения C, вкладка всегда черный. Это отлично работает в Visual C#, но я не смог вычислить эквивалент Visual Basic.

Любая помощь очень ценится! Благодаря!

Answer 1

Try w.Tab.Color = &hFF0000 Цвета в VSTO являются хлопотными. Первоначально они находятся в формате BGR в отличие от System.Drawing.Color. Поэтому я предполагаю, что C# каким-то образом его обрабатывает. Во всяком случае, вы можете использовать простую функцию для преобразования цвета из System.Drawing в целое:

Function ConvertColor(ByVal color As System.Drawing.Color) As Integer 
    Return ((color.B * &h10000) + ((color.G * &h100) + color.R)) 
End Function