算術演算は、Windowsがvb.netでフォームアプリケーション作成するとき、私はこのエラーに遭遇したColor.FromArgb

Question

でオーバーフローが生じました（ "自動車" から）：

：227 R：55182 G：14876783 b：3808456647 argb：3808456647

Answer 1

私はあなたがバイトサイズのチャンクにuintを分割しようとしていると思います。

たぶん `Int32`に格納するのにはあまりにも大きい。この

Imports System.Runtime.InteropServices 
Public Class Form1 
    <DllImport("dwmapi.dll")> 
    Private Shared Sub DwmGetColorizationColor(ByRef ColorizationColor As UInteger, ByRef ColorizationOpaqueBlend As Boolean) 
    End Sub 

    Private Function UintToColor(ByVal argb As UInteger) 



     Dim bytes As Byte() = BitConverter.GetBytes(argb) 


     Dim b = bytes(0) 
     Dim g = bytes(1) 
     Dim r = bytes(2) 
     Dim a = bytes(3) 



     Dim result As Color = Color.FromArgb(a, r, g, b) 
     Return result 
    End Function 

    Dim windowColor 
    Dim windowBlend 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Me.Show() 
     DwmGetColorizationColor(windowColor, windowBlend) 
     Me.BackColor = UintToColor(windowColor) 
    End Sub 
End Class