Hallo Dietrich,
farbP = sysColorsA
An dieser Zeile meckert der Compiler, weil so eine implizite Konvertierung mit der
Option Strict On nicht zulässig ist. Mit der Option Strict Off erhalte ich die von Dir angeführte Fehlermeldung. Es ist grundsätzlich empfehlenswert, die
Option Strict On zu verwenden. Zu diesem Zweck kann Dein Code (bis auf die zwei hexadezimalen Werte) wie folgt angepasst werden:
Public sysColoursA(,) As String = New String(1, 1) {{"sysScrollBars", "&H80000000"}, {"sysDesktop", "&H80000001"}}
Public farbP(,) As String
Public farbValues() As Integer 'die Methode ColorTranslator.FromOle erwartet einen Integer-Wert
Dim c As Color
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
farbP = sysColoursA
ReDim farbValues(CType((farbP.Length / 2), Integer) - 1)
For i As Short = 0 To CType((farbP.Length / 2 - 1), Short)
farbValues(i) = CType(farbP(i, 1), Integer)
c = ColorTranslator.FromOle(farbValues(i))
Next
End Sub
Die zwei Werte liegen über dem für
Integer zulässigen Wertebereich, weil &H80000000 = 2 147 483 648 (Dezimal). Mit Zahlen, die kleiner als &H80000000 sind, ist der Code lauffähig.
Gruß,
Dimitar
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft
zugesichert werden können.
