摘要： Private T As Thread 1 Private Sub cmdExprot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExprot.Click 2 If Not T Is Nothing Then 3 If T.ThreadState = ThreadState.Running Then Exit Sub 4 End If 5 T = New Thread(AddressOf Exp... 阅读全文

摘要： 1 Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click 2 If MsgBox("Do you really want to save the table record(s)?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "CDSystem") = MsgBoxResult.No Then 3 Exit Sub 4 ... 阅读全文

摘要： 1 Private Sub fuck() 2 Try 3 Dim o_strpath, o_strname, o_houzui As String 4 Dim o_intNPost As Integer, o_intSPost As Integer, o_intLen As Integer 5 Dim o_intNlast As Integer 6 Dim o_bytBit() As Byte 7 o_strpath = "C:\Documents and ... 阅读全文

摘要： 连接附件的： 1 Private Sub btnExportForCustomer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportForCustomer.Click 2 Dim xApp = New Excel.Application 3 Dim xBook As Excel.Workbook 4 Dim xSheet As New Excel.Worksheet 5 6 xBook = xApp.... 阅读全文