$BJ?Ip;N$H?=$7$^$9!#(B
Toppers/JSP$B$N(BWindows$B%7%_%e%l!<%7%g%s4D6-$r;HMQ$5$;$F$$$?$@$$$F$$$^$9!#(B
Windows$B%7%_%e%l!<%7%g%s4D6-$N9=C[$^$G$O$&$^$/9T$C$?$N$G$9$,!"(B
$B%G%P%$%9%(%_%e%l!<%7%g%s$G$D$^$:$$$F$7$^$$$^$7$?!#(B
vb.net$B$G%(%_%e%l!<%7%g%s$rMxMQ$5$l$F$$$kJ}!"%"%I%P%$%9$/$@$5$$!#(B
$B;d$N4D6-$O!"(BVisualStudio.NET 2003$B$J$N$G!"(B
$B%G%P%$%9%(%_%e%l!<%7%g%s$K$D$$$F$O!"(Bwindows.txt$B$N(Bvb6.0$B$N@_Dj$r;29M$K(B
sample1.c$B$N2~B$$H(Bvb.net$B$N%G%P%$%9%I%i%$%P:n@.$7$^$7$?!#(B
$B$7$+$7!"%3%s%=!<%k>e$G!"(Br$B%3%^%s%I$rF~NO$7$F$b!"(B
vb$B$N(BOnWrite$B$KJVEz$,JV$C$F$-$^$;$s!#(B
DeviceManager$B$O!"%?%9%/$+$i(BCKernel$B$,!"(B
$B%G%P%$%9%I%i%$%P$+$i(BCDevice$B$,8F$P$l$F$$$k$3$H$O3NG'$G$-$F(B
$B$$$^$9$N$G(BCOM$B$O@5$7$/8F$Y$F$$$k$H;W$C$F$$$^$9!#(B
vb.net$B$N(BOnWrite$B$N5-=R$r5?$C$F$$$^$9$,!"(Bvb.net$B$O=i$a$F;H$C$?$N$G(B
$B@5$7$/5-=R$G$-$F$$$k$+$o$+$j$^$;$s!#(B
Form$B$O$BLdBj$,$"$l$P$4;XE&$$$?$@$-$?$/!"$h$m$7$/$*4j$$$$$?$7$^$9!#(B
Public Class Form1
Inherits System.Windows.Forms.Form
Friend WithEvents AxDeviceControl1 As AxATLDEVICELib.AxDeviceControl
Friend WithEvents Label1 As System.Windows.Forms.Label
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'AxDeviceControl1 = New AxATLDEVICELib.AxDeviceControl
InitializeComponent()
AxDeviceControl1.Connect()
AxDeviceControl1.Map(100, 1)
End Sub
Private Sub AxDeviceControl1_OnWrite(ByVal sender As System.Object, ByVal e As AxATLDEVICELib._IDeviceControlEvents_OnWriteEvent)
Label1.Text() = Str(AxDeviceControl1.Value)
End Sub
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.Label1 = New System.Windows.Forms.Label
Me.AxDeviceControl1 = New AxATLDEVICELib.AxDeviceControl
CType(Me.AxDeviceControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(72, 40)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(168, 72)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
'AxDeviceControl1
'
Me.AxDeviceControl1.Enabled = True
Me.AxDeviceControl1.Location = New System.Drawing.Point(56, 128)
Me.AxDeviceControl1.Name = "AxDeviceControl1"
Me.AxDeviceControl1.OcxState = CType(resources.GetObject("AxDeviceControl1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxDeviceControl1.Size = New System.Drawing.Size(192, 128)
Me.AxDeviceControl1.TabIndex = 2
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.AxDeviceControl1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
CType(Me.AxDeviceControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
AxDeviceControl1.Close()
End Sub
End Class
MSN$B%_%e!<%8%C%/$H(BEMI Artists$B$,6&F13+:E$9$k%*!<%G%#%7%g%s(B SCHOOL OF SCHOOL http://music.jp.msn.com/
|