Imports Gates.MES.BL
Imports Gates.MES.DA
Public Class splitJob
Dim _bl As BL.QueyUpdate
Dim _dbTrans As DBTransaction
Dim _connec As String = BL.clsMain.CONNECTIONSTRING
Private Sub ButtonSplit_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ButtonSplit.Click
_dbTrans = New DBTransaction(_connec)
_bl = New BL.QueyUpdate(_dbTrans)
Dim sJ As New BL.SplitJob
sJ.OriginalJob = TextBox1.Text
sJ.NewJob = TextBox2.Text
sJ.NewQty = TextBox3.Text
_bl.InsertSpliJob(sJ)
End Sub
End Class
Imports System.Threading
Public Class ctrMulti
Dim runThread As Thread
Dim i As Double
Dim str As String
Private Sub Multi_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
run()
End Sub
Private Sub run()
While True
str = "正在运行"
i = i + 1.345
i = i * 1.23425
i = i / 1.23425
i = i - 1.345
End While
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
runThread = New Thread(AddressOf run)
runThread.Start()
str = i.ToString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click
MsgBox("i=" + i.ToString)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button4.Click runThread.Abort() str = "结束" End Sub End Class
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。