まず、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 _ＡＤ 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
次のコードを試してみて下さい。
Form1上にはボタン一つとテキストボックス１つを置きます。
Form2上にはボタンを一つ置きます。
Ｆｏｒｍ１でForm2を作成して、Ｆｏｒm2上のボタンを押すと
Ｆｏｍｍ１上のTextBoxに文字を書き込みます。
Public Class Form1
Dim F2 As Form2
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
F2 = New Form2(Me)
F2.Visible = True
End Sub
End Class
Public Class Form2
Private F1 As Form1
'フォーム起動時に親から呼び出される
Public Sub New(ByVal _F1 As Form1)
InitializeComponent() 'これは必ず必要です
F1 = _F1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
F1.TextBox1.Text = "Hello"
End Sub
End Class
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
