vb.net
htpower
本人已死,没事烧纸,小事叫魂,大事挖坟.
展开
-
人民币大小写转换
Private Const M_Tail As String = "整" Private Const M_Zero As String = "零" Private Const M_Cn As String = M_Zero & "壹贰叁肆伍陆柒捌玖" Private Const M_Yuan As String = "元" Private Const M_Foma转载 2008-05-25 14:33:00 · 792 阅读 · 0 评论 -
textbox类拟百度搜索框
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Me.TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest Me.TextBox1.A原创 2011-11-29 10:45:08 · 698 阅读 · 0 评论 -
动态生成类拟QQ伸缩菜单+权限+dockpanle
mainform.designer.vb _Partial Class mainform Inherits WeifenLuo.WinFormsUI.Docking.DockContent 'Form 重写 Dispose,以清理组件列表。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot N原创 2011-01-28 22:36:00 · 1393 阅读 · 0 评论 -
原来一直都是我的错
前面曾发过一个日志,写的是listview加载上万条数据,那时还没理解RetrieveVirtualItem的用法,现在重新写一次,终于解决了打开别的窗体会出错的BUG.Imports EchoClass.EchoClassShowImports GoldPrinter.DataGridViewListViewHelperImports GoldPrinter.MisGoldPrint原创 2009-12-31 15:31:00 · 1114 阅读 · 0 评论 -
vb2005+水晶报表10.2+MSSQL 二进制图片保存及显示
前两天做了一个项目,项目内容包括将图片保存到MSSQL后用水晶报表显示出来并打印,在网上查了许久,都是看到数据库里保存的是图片路径,很不方便,终于看到一个贴子,其实很简单,就是不要用dataset,只需要将数据源用XSDSchema代替,将字段类型设置成:base64Binary,水晶报表中指定数据源为新建数据源,指向这个XSDSchema,其它操作和用DATASET做为数据源是一样的,代码也是按原创 2009-12-29 11:25:00 · 1963 阅读 · 0 评论 -
邮件群发
Imports SystemImports System.TextImports System.IOImports System.NetImports System.Net.SocketsImports System.CollectionsImports Microsoft.Office.Interop.ExcelImports Microsoft.VisualBasi原创 2009-07-17 11:11:00 · 725 阅读 · 0 评论 -
listview虚拟列表加载上万数据并进行统计
listview虚拟列表加载上万数据并进行统计 这几天在搞数据统计,就一个收入列表,一个月下来有上万条数据,要列表出来,晕菜菜,原来用FOR NEXTKAO,他一千多条就给我加了几分钟,真是神仙啊~~~~~~干脆不要了,换成虚拟列表的形式算了,与其说统计,应该说成是向DATATABLE新增加一行自行统计的信息并显示出来,呵呵~以下附代码: Private Su原创 2008-09-27 17:41:00 · 2266 阅读 · 0 评论 -
可动态引用webservice
这些天一直在做某纯净水管理系统,由于车间与公司相距二十公里,领导指示,要用网络来进行数据交换,一时间头脑发热,选择了用 webservice 做为业务层,但是引用后只能是指定的,一直想可否是自行指定业务层的地址,找了百度和GOOGLE,一直没找到理想的,网上说通过一个Reference.vb的文件可以动态调用,但是打开一看:Public Sub New()原创 2008-09-26 11:18:00 · 668 阅读 · 0 评论 -
读取本机CPU ProcessorId
读取本机CPU ProcessorIdDim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor") Dim CPU As String = "" For Each WmiObj As ManagementObjec转载 2008-08-22 11:36:00 · 1602 阅读 · 0 评论 -
将图片保存至MSSQL
窗体设计 _Partial Class Form6 Inherits System.Windows.Forms.Form Form 重写 Dispose,以清理组件列表。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disp原创 2008-08-22 11:25:00 · 1222 阅读 · 0 评论 -
电子发票税费计算问题
前两天,听到一个同行单位在抱怨,新开发上线的电子发票开票过程中,出现了费用计算总是无法通过国税的计算,具体原因没有深究,回想了一下当初自已开发的过程中,也遇到了相同的问题,那么,我们来总结一下。问题阐述:每笔发票数据发送过去都返回开票失败,密文中的费用计算总是不对,要不费用多了和总费用不符,要不费用少了,也和总费用不符,导致开票校验失败。那我们来理一下思路,假设单价为2元,税率6%,数量为原创 2017-12-19 15:06:37 · 4241 阅读 · 0 评论