動作が気に入らない場合は、いつでも独自のカスタム クラスを作成できますBitArray
。
Public Class MaskedByte
Private innerValue As Byte
Private mask As Byte
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal value As Byte, ByVal mask As Byte)
MyBase.New
innerValue = value
Mask = mask
End Sub
Public Property Value As Byte
Get
Return (innerValue And Mask)
End Get
Set
innerValue = value
End Set
End Property
Public Property Mask As Byte
Get
Return mask
End Get
Set
mask = value
End Set
End Property
End Class
次に、使用するには:
Dim myMaskedByte As MaskedByte
myMaskedByte.Mask = &HF0
myMaskedBytef3.Value = someValue
(VB.NETはわかりませんが、これは正しいと思います)。