随笔分类 -  VB

摘要：一开始听到job的要求，还真不知道如何下手，用Gridview？好像有做不到把图片show出来的。在网上搜索一遍，发现原来是ListView与Imglist的结合应用。看设计： Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click Try Me.ListView1.Items.Clear() Me.imglist.Images.Clear() ... 阅读全文

摘要：一个label就是一条detail，分布成4列16行，用A4纸打印。这与通常的报表有点不一样，通常报表的明细都是一条一行；而现在要每4条放在一行，这需要用到“多列格式化”属性。先说打印条码的吧，条码图片怎么来？下载生成条码的exe文件Barcode.exe以及dll文件Zen.Barcode.Core.dll，通过shell函数调用执行Barcode.exe文件生成条码图片在给报表传数的table里面插入条码图片：Private Sub AddBarcodeImages(ByVal DTab As DataTable) If Not DTab Is Nothing Then ... 阅读全文

摘要：Dim SQL_Header As String = "CP Reference No.,CP Version No.,Call Lot,Remark ID,Remarks,UPDUSER" Dim SQL_Where As String = "" Dim SQL As String = "SELECT CPREFNO, CPVERNO,CLOT,REMLIN,REMARK,UPDUSER FROM CPM_Remark" Dim netDs As New DataSet Dim tn As String = "TB&quo 阅读全文

摘要：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.... 阅读全文

摘要：Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click If sOption = 0 Then Try Dim f As New BogartMis.Bas.frmPrint Dim rpt As New ReportDocument Dim rptPath As String If chk... 阅读全文