摘要:
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...
阅读全文
posted @ 2013-04-17 11:11
vinsonLu
阅读(382)
推荐(0)
编辑
摘要:
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 ...
阅读全文
posted @ 2013-04-17 10:59
vinsonLu
阅读(768)
推荐(0)
编辑
摘要:
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 ...
阅读全文
posted @ 2013-04-17 10:46
vinsonLu
阅读(1198)
推荐(0)
编辑
摘要:
连接附件的: 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....
阅读全文
posted @ 2013-04-17 10:31
vinsonLu
阅读(750)
推荐(0)
编辑