まず、Class RegBit ファイルに Bitの定義
Private _A7 as string
'---- Reg AAA (bit7) -------
Public Property A7() As String
Get
Return _A7
End Get
Set(ByVal Value As String)
_A7 = Value
End Set
End Property
Private _AA as string
'---- Reg AAA (bit6) -------
Public Property AA() As String
Get
Return _AA
End Get
Set(ByVal Value As String)
_AA = Value
End Set
End Property
・
・
Private _AD as string
'---- Reg AAA (bit3:0) -------
Public Property AD() As String
Get
Return _AD
End Get
Set(ByVal Value As String)
_AD = Value
End Set
End Property
とし、
Byte単位のアクセス関数を作成
上記 00アドレスのByteレジスタ定義
Private _AAA as string
Public Property AAA( ) As String
Get
Dim List(7) as String
List(7) = _A7
List(6) = _AA
List(5) = _AB
List(4) = _AC
List(3) = _AD
Return List
End Get
Set(ByVal value As String)
_AAA = value
End Set
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Common.A7 = "12345"
End Sub
end Class
Public Class clsAA
Private _A7 As String
Public Property A7() As String
Get
Return _A7
End Get
Set(ByVal value As String)
_A7 = value
End Set
End Property
end Class
としたとき
Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button1.Click
TextBox1.text=Form1.Common.A7
End Sub
End Class