精华内容
下载资源
问答
  • 比如一个控件text1然后我了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...比如一个控件text1然后我了...

    比如一个控件text1然后我打了个代码text1.text="日"怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟PrivateSubCommand2_Click()Label1.Caption="这是print方法的事例"+vbCrL...

    比如一个控件text1

    然后我打了个代码text1.text="日"

    怎么使运行的时候出现的"日不是宋体"?不好意思.我是个菜鸟

    Private Sub Command2_Click()

    Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _

    + vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _

    + vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _

    + vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _

    + vbCrLf + "3 + 5 = 83 + 5 = 8"

    Label1.FontSize = 8

    End Sub

    Private Sub Label1_Click()

    Label1.Caption = "这是print方法的事例" + vbCrLf + "当输入项有多个时,各输入项之间可用逗号,分割" + vbCrLf + "3 + 5 = 8" _

    + vbCrLf + "当无输出项时,则可以理解成一个空行后换行" _

    + vbCrLf + "" + vbCrLf + "也可以用字符串常量vbcrlf换行" _

    + vbCrLf + "" + vbCrLf + "" + vbCrLf + "当输出项有多个时,各输出项之间也可将两种分割符混用" _

    + vbCrLf + "3 + 5 = 83 + 5 = 8"

    Label1.FontSize = 10

    现在我按Label1会出现那些我打的字..然后我按Command2会出现变大2号的字..那怎么让我按Command2的时候字除了边大,还能改变字体和颜色?

    展开

    展开全文
  • rdlc 报表转换成图片 然后以流的方式输出到printdocument 代码怎么写啊 求 解!!
  • 这段代码是把这个二维码图片放到word中去,但是这样只能放在word中的第一张纸上,现在有个这个需求,要把这个二维码放到word中的第二张纸上去。如果我改变后面的top值,那么当top值大于第一张纸的高度的时,二维码...
  • C#与C++的区别总结从语法上看,C#吸收了VB,C++,Java等语言的优点,改进了不足,加入了大量实用特性。C#确实是优秀的语言,海神也让人敬仰(这大爷一把年纪还是以写代码为乐趣)。本篇没有高级语法部分,只有基础语法...

    C#与C++的区别总结

    从语法上看,C#吸收了VB,C++,Java等语言的优点,改进了不足,加入了大量实用特性。C#确实是优秀的语言,海神也让人敬仰(这大爷一把年纪还是以写代码为乐趣)。

    本篇没有高级语法部分,只有基础语法和OOP。

    基础语法:

    两种布尔逻辑运算符。侃:有意思

    字符串格式化打印。侃:好,这才...

    文章

    技术小胖子

    2017-11-15

    616浏览量

    从渲染原理出发探究Flutter内存泄漏(超详细)

    作者:闲鱼技术-萧湘

    背景

    众所周知,内存的高低是评判一款app的性能优劣的重要的指标之一。作为开发者而言,都会尽可能的减少内存的使用,清除无用的内存块,从而减少整个app的内存使用量。这也是历来开发者是追求的目标。然而,开发者难免时常因为语言用法或者写法的缘故,导致该释放而未释放的对象迟迟未释放...

    文章

    闲鱼技术

    2020-09-23

    770浏览量

    《C++ 并发编程》- 第1章 你好,C++的并发世界

    本文是《C++ 并发编程》的第一章感谢人民邮电出版社授权并发编程网发表此文版权所有请勿转载。该书将于近期上市。

    本章主要内容

    何谓并发和多线程

    为什么要在应用程序中使用并发和多线程

    C++并发支持的发展历程

    一个简单的C++多线程程序是什么样的

    这是C++用户的振奋时刻。距1998年初始...

    文章

    ali清英

    2016-04-08

    2010浏览量

    《C++ 并发编程》- 第1章 你好,C++的并发世界

    本文是《C++ 并发编程》的第一章感谢人民邮电出版社授权并发编程网发表此文版权所有请勿转载。该书将于近期上市。

    本章主要内容

    何谓并发和多线程

    为什么要在应用程序中使用并发和多线程

    C++并发支持的发展历程

    一个简单的C++多线程程序是什么样的

    这是C++用户的振奋时刻。距1998年初始...

    文章

    boxti

    2017-05-02

    1716浏览量

    映射窗口句柄对象

    话题引入:在C语言时代,当人们使用纯粹的C开发windows应用程序时,只需要通过窗口句柄HWND【HWND是WND的内存句柄,而WND是Windows是一个内部私有数据结构,存储着窗口的相关信息:尺寸信息、标题信息等。一般来说开发人员无法访问这个数据结构,不过可以以HWND为参数调用window...

    文章

    double2li

    2013-11-28

    650浏览量

    Lua调用C++时打印堆栈信息

    公司的手游项目,使用的是基于cocos2d-x绑lua的解决方案(参数quick-x的绑定),虽然使用了lua进行开发,更新很爽了,但是崩溃依然较为严重,从后台查看崩溃日志时,基本上只能靠“猜”来复现bug。更为郁闷的是很多时候并没有使用log输出,在崩溃日志里还无法查看大概在哪一步操作崩溃的… ...

    文章

    meteoric

    2014-04-14

    1002浏览量

    从Windows角度看Mac OS X上的软件开发

    如果原来从事Windows软件开发,想跨足或转换至Mac OS X环境,需要知道那些东西?有什么知识技能可以快速运用在Mac OS X环境上的?这两个问题应该是Windows开发者进入Mac OS X环境最关心的问题。本文假设读者以往采用微软的开发工具,并以C/C++/C#的任一种组合作为...

    文章

    大熊猫侯佩

    2014-12-03

    2009浏览量

    C/C++大型项目错误管理

    在C/C++大型项目中,错误管理在项目中起着举足轻重的作用,以我自己的项目经验以及观摩其他项目,错误管理对项目框架以及开发效率有着很大的影响。对于错误管理的认识大致分为三类:

    刚刚开始写程序的新手,满篇程序看不到一处关于返回出错的处理,更不用说出错管理了。说明他没认识到出错管理...

    文章

    hyman

    2011-08-11

    1147浏览量

    我们如何从VC++开始“编程”?

    这是一位同学寄到我邮箱里面的一封信。应该说,这类C/C++入门学习的问题我回答过,只是并没有很具体到某个平台,某个语言,因此,我的回答可能给大家一种云里雾里的感觉,指导性不强,因此,大家还是不断问。我也只有不断回答。

    其实呢,这里面我自己也有一些苦衷。写程序写到我这么久,看很多问题都抽象了,大...

    文章

    技术小牛人

    2017-11-09

    1024浏览量

    软件测试bug收集策略

    Error = 0 的程序是不存在的,怎样收集和处理程序中的错误?怎样更好地利用错误信息的收集和反馈来协助程序的调试?怎样让产品发布后,用户能够反馈出更有价值的问题 信息?这些问题是本文将要涉及的,最近对自己所做项目中的错误处理机制做了一些总结与思考,故在此讨论,希望对大家有所帮助。

    目前,按...

    文章

    玄学酱

    2017-07-10

    1051浏览量

    VS2010编写动态链接库DLL及单元测试用例,调用DLL测试正确性

    本文将创建一个简单的动态链接库,并编写一个控制台应用程序使用该动态链接库,该动态链接库为“JAVA调用动态链接库DLL之JNative学习”中使用的DLL,只是项目及文件名称不同。

    创建动态链接库项目:1、打开Microsoft Visual Studio 2010,选择文件->新建-&g...

    文章

    微wx笑

    2014-05-27

    724浏览量

    C++并发编程(C++11到C++17)

    为什么要并发编程

    大型的软件项目常常包含非常多的任务需要处理。例如:对于大量数据的数据流处理,或者是包含复杂GUI界面的应用程序。如果将所有的任务都以串行的方式执行,则整个系统的效率将会非常低下,应用程序的用户体验会非常的差。

    另一方面,自上个世纪六七十年代英特尔创始人之一 Gordon Moor...

    文章

    paulquei

    2019-10-21

    3588浏览量

    实战开发经验: 软件中的错误收集策略

    Error = 0 的程序是不存在的,怎样收集和处理程序中的错误?怎样更好地利用错误信息的收集和反馈来协助程序的调试?怎样让产品发布后,用户能够反馈出更有价值的问题信息?这些问题是本文将要涉及的,最近对自己所做项目中的错误处理机制做了一些总结与思考,故在此讨论,希望对大家有所帮助。

    目前,按照我...

    文章

    技术小阿哥

    2017-11-27

    696浏览量

    实战开发经验: 软件中的错误收集策略

    Error = 0 的程序是不存在的,怎样收集和处理程序中的错误?怎样更好地利用错误信息的收集和反馈来协助程序的调试?怎样让产品发布后,用户能够反馈出更有价值的问题信息?这些问题是本文将要涉及的,最近对自己所做项目中的错误处理机制做了一些总结与思考,故在此讨论,希望对大家有所帮助。

    目前,按照我...

    文章

    技术小阿哥

    2017-11-14

    406浏览量

    实战开发经验: 软件中的错误收集策略

    Error = 0 的程序是不存在的,怎样收集和处理程序中的错误?怎样更好地利用错误信息的收集和反馈来协助程序的调试?怎样让产品发布后,用户能够反馈出更有价值的问题信息?这些问题是本文将要涉及的,最近对自己所做项目中的错误处理机制做了一些总结与思考,故在此讨论,希望对大家有所帮助。

    目前,按照我...

    文章

    技术小阿哥

    2017-11-27

    665浏览量

    03. WebApp2.0时代启程:Cocos2d-JS让C++代码支持JS脚本(三)

    紧接上文,JS在单线程下,性能不会比Java差,注意场景是单线程。Java的优势不仅是高级语言的特性,还具备了丰富的系统内核资源,如多线程、网络等支持,要比JS灵活的多很多,这里暂时不在讨论这些问题。

    回到主题,如果我们把一个完整的C++图形引擎注入到SpiderMonkey中,把复杂的预算放到C...

    文章

    淘朗英

    2016-10-26

    2661浏览量

    关于Qt

    什么是Qt

    Qt是一个针对桌面、嵌入式、移动设备的一个跨平台的应用程序开发框架,支持的平台包括Linux、OS X、Windows、VxWorks、QNX、Android、iOS、BlackBerry(黑莓)、Sailfish OS(旗鱼操作系统)等。

    Qt 1991年由Trolltech-奇...

    文章

    一去二三里

    2015-11-14

    2337浏览量

    任意编程语言访问PostgreSQL:C++接口

    今天将介绍如何使用C++访问PostgreSQL。

    官方PostgreSQL客户端的C++接口API称为libpqxx,但没有与PostgreSQL源码进行绑定,用户可以从产品分发库或单独下载进行安装。README文件提到用户可以在Linux、BSD、Solaris、Irix、HP-UX、AI...

    文章

    余二五

    2017-11-08

    1045浏览量

    STL,ATL,WTL之间的联系和区别

    一、STL即 Standard Template Library (标准模板库)

    STL是惠普实验室开发的一系列软件的统称。它是由Alexander Stepanov、Meng Lee和David R Musser在惠普实验室工作时所开发出来的。现在虽说它主要出现在C++中,但在被引入C++之...

    文章

    微wx笑

    2013-06-04

    888浏览量

    Node.js 8

    编者:本文作者孝达,经作者允许,刊载于 Alinode 团队博客。未经允许,不得转载。

    端午节结束了。虽然接下来的四个月都没有节假日,但笔者一点都不烦恼。因为 Node.js 8 在端午后第一个工作日就正式发布,这足以让我与 Node.js 的激情燃烧一个夏天!本文挑选了笔者认为 Node.js ...

    文章

    _朴灵_

    2018-05-14

    1154浏览量

    程序员小抄大全

    你是否会经常忘记一些CSS中的函数名或是一些属性名,那个时候,你一定觉得,如果手边有一个“小抄”(Cheat Sheet)就好了。当然,这个“小抄”不是给你作弊用的,这个“小纸条”就是可以让你马上知道那个你最想知道的东西。这个“小抄”上也不需要有所有的东西,就需要那些经常用的就行了。现在,网上有很...

    文章

    楚广明

    2012-01-29

    1031浏览量

    程序员小抄大全

    你是否会经常忘记一些CSS中的函数名或是一些属性名,那个时候,你一定觉得,如果手边有一个“小抄”(Cheat Sheet)就好了。当然,这个“小抄”不是给你作弊用的,这个“小纸条”就是可以让你马上知道那个你最想知道的东西。这个“小抄”上也不需要有所有的东西,就需要那些经常用的就行了。现在,网上有很...

    文章

    测试5555

    2012-01-29

    628浏览量

    《Visual C++数字图像模式识别技术详解(第2版)》一2.1 Visual C++编程方法

    2.1 Visual C++编程方法

    面向对象是一种重要的程序设计方法,采用这一思想的C++是当今世界上应用最广泛的编程语言。Windows平台下的C++编程工具首推Microsoft的Visual C++。但是,编写Windows应用程序只熟悉C++的语法还是远远不够的,还必须掌握MFC(Mi...

    文章

    华章计算机

    2017-08-01

    1431浏览量

    端午节后福利:Node.js 8

    端午节结束了。虽然接下来的四个月都没有节假日,但笔者一点都不烦恼。因为 Node.js 8 在端午后第一个工作日就正式发布,这足以让我与 Node.js 的激情燃烧一个夏天!本文挑选了笔者认为 Node.js 8 最令人兴奋的四大新功能,与大家分享。

    async/await 与 util.prom...

    文章

    潘旻琦

    2017-06-01

    1222浏览量

    基础为零?如何将 C++ 编译成 WebAssembly

    作者| 张翰(门柳) 出品|阿里巴巴新零售淘系技术部

    WebAssembly 是一个 W3C 推出的二进制指令格式,近日它的 1.0 版本也正式定稿成为了规范,关于它的基本概念这里不再展开介绍了,网上已经有很多文章了,大家可以自行了解,推荐阅读官方文档、spec 仓库、MDN 的教程、以及 Lin...

    文章

    淘系技术

    2019-12-18

    453浏览量

    neko vm 类型包装

    在neko中的value类型映射的string类型和c/c++中的char* 在实际开发中如果不了解的情况会遇到未知的问题。

    由于char*是从宿主传递过来的标准指针,但是在neko vm中无法管理会成为游离指针,所以设计者一开始就直接抛弃原始标准指针。使用neko的内置类型来托管和注册各类标准指...

    文章

    钟元大老爷

    2018-08-28

    1721浏览量

    《Windows 8 开发权威指南:HTML5 和JavaScript卷》——1.3 Microsoft Design新特性

    本节书摘来自异步社区《Windows 8 开发权威指南:HTML5 和JavaScript卷》一书中的第1章,第1.3节,作者:尹成 , 李亚男 , 王腾 , 丁宽帅 , 尹子磊著,更多章节内容可以访问云栖社区“异步社区”公众号查看

    1.3 Microsoft Design新特性

    Microsof...

    文章

    异步社区

    2017-05-02

    1413浏览量

    Windows Mobile下使用CppUnitLite输出测试结果

    背景

    TDD测试驱动开发是当前流行的开发方法及模式。遵循TDD的方法对开发程序库(Library)特别有用,因为Library就是为第三方提供一定功能接口的实现,使用TDD的方法可以预先为定义的接口提供测试案例,保证实现代码能通过测试,保证Library能如实的实现预定义的功能。我之前开发的Mob...

    文章

    橘子红了呐

    2017-11-12

    966浏览量

    Android安装配置简要步骤!

    1.安装jdk1.5以上,我装的是:jdk-6u27-windows-i586.exe

    http://www.oracle.com/technetwork/java/javase/downloads/index.html

    2.安装eclipse3.4以上版本,我装的是:eclipse-jee-i...

    文章

    whonee

    2012-10-24

    1287浏览量

    用 Go 语言理解 Tensorflow

    本文讲的是用 Go 语言理解 Tensorflow,

    展开全文
  • VB网络编程实例

    千次下载 热门讨论 2007-05-29 15:46:04
    ◆ 01.htm 1、怎么用mscomm控件检测modem是否与计算机联接正确?2、如何用mscomm挂断modem与别的电话机间的连接?(已接通) ◆ 02.htm CWinInetConnection---一个封装了WinInet API函数的类 ◆ 03....
  • form2不开设计视图了,而且以前码进去的代码也不显示了。。。 但是在文档里可以找到窗体的文件 ![图片说明](https://img-ask.csdn.net/upload/201504/10/1428648699_76537.jpg) 点击运行的话 ![图片说明]...
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。于是我们小组着手设计...
  • 初学VB,开始什么都不懂...后来还是一点一点用实例里的代码替换才找到的,,就因为多了一个空格。。运行不出来添加第三方控件Flash后保存出现错误 解决方案 http://jingyan.baidu.com/article/ca41422fc2c2471eae99e
    初学VB,开始什么都不懂,只知道看着例子照着敲,经常遇到许多问题。
    VB百例中遇到的各种问题 - 13期 张家豪 - 张家豪 廊坊师范学院信息技术提高班十三期VB百例中遇到的各种问题 - 13期 张家豪 - 张家豪 廊坊师范学院信息技术提高班十三期一开始居然都不知道lblscore、<>""是什么意思,,后来翻课本才明白了 。现在想想都觉得好丢人

    然后就是各种小问题。。
    VB百例中遇到的各种问题 - 13期 张家豪 - 张家豪 廊坊师范学院信息技术提高班十三期这个检查了七八遍都没找到怎么回事。。后来还是一点一点用实例里的代码替换才找到的,,就因为多打了一个空格。。运行不出来

    添加第三方控件Flash后保存出现错误
    VB百例中遇到的各种问题 - 13期 张家豪 - 张家豪 廊坊师范学院信息技术提高班十三期
    解决方案  http://jingyan.baidu.com/article/ca41422fc2c2471eae99ed31.html   VB与flash不兼容。

     
     
     
     
    展开全文
  • 最大上限是65536行数据,但我用了2007,2013都一个结果,又有人说把后缀改成“.xlsx”但是这样导出的数据用excel2007和2013都不开,能用WPS2016打开,数据显示还是6万多,到底怎么弄啊大神们?导数据代码如下图!...
  • 困扰3天了,网上搜遍了。请热心人帮忙: 1.Form1 里面查询出结果在datagridview1里面显示出来。 2.建立了一个水晶报表...希望能有详细的解答思路,有C#或VB.NET代码就更棒:) thank you for your time ...thank you .
  • 但是这次,上次写代码的人已经不在这里了,我并不想去学VBA,无奈之下找到了一个Rob.A Fraydl写的打印类示例,但是里面没有我要的功能,只是示范了怎么去打印。于是自己重新的封装了一下,基本算是合格了。
  • 把ListView 里的内容做个参数为...下面是打印MSFlexGrid 的代码,不知道怎么打印我说的ListView!以下是参考代码:Sub print_grid(Grd As MSFlexGrid, MainTitle As String, SecTitle As String, PageLine As Integer, DjC

    把ListView 里的内容做个参数为ListView 对象,使用VB的Printer 对象打印出来的函数!下面是打印MSFlexGrid 的代码,不知道怎么打印我说的ListView!
    以下是参考代码:
    Sub print_grid(Grd As MSFlexGrid, MainTitle As String, SecTitle As String, PageLine As Integer, DjCol As Integer, JeCol As Integer)
     Dim x0 As Single, y0 As Single
     Dim x As Single, y As Single
     Dim fs As String * 10
     Dim zje As Currency, yje As Currency
     Dim HzNum As Integer
     Dim n As Integer, r As Integer

     Dim dx(0 To 20) As Integer
     Dim Cellf(0 To 20) As Single

     Dim str1 As String, str2 As String, str3 As String, str4 As String
     Dim I As Integer, j As Integer, k As Integer
     'Load printer
     'printer.Show
     If Grd.Rows <= 1 Then
         MsgBox "本表格没有数据,没有必要打印!", 48, "提示"
         Exit Sub
     End If
     x0 = 10    '打印边界
     y0 = 20
     With Grd
     '计算栏空  dx(i)
     .Row = 1
     w = .Width
     For I = .Cols - 1 To 1 Step -1
            .Col = I
            dx(I) = (.CellWidth + 72) / 56.7 / 4.233
            w = w - (.CellWidth + 72)
     Next I
     dx(0) = w / 4.233 / 56.7
     '计算 str1 到 str4
     str1 = "┌"
     str2 = "├"
     str3 = "│"
     str4 = "└"
     HzNum = 1 '汉字总数
     For I = 0 To .Cols - 1
         Cellf(I) = HzNum * 4.233     '计算每栏起始打印位置
         For j = 1 To dx(I)
             str1 = str1 + "─"
             str2 = str2 + "─"
             str3 = str3 + " "
             str4 = str4 + "─"

         Next j
         HzNum = HzNum + dx(I) + 1
         If I < .Cols - 1 Then
            str1 = str1 + "┬"
            str2 = str2 + "┼"
            str3 = str3 + "│"
            str4 = str4 + "┴"
         Else
            str1 = str1 + "┐"
            str2 = str2 + "┤"
            str3 = str3 + "│"
            str4 = str4 + "┘"
         End If
     Next I

    Printer.ScaleMode = 6      '毫米为单位
    Printer.Width = 210 * 56.7   '窄行打印纸大小
    Printer.Height = 297 * 56.7
    k = 1
    n = 0    '当前页数
    zje = 0  '总计金额

    r = Int((.Rows + PageLine - 2) / PageLine)   '总页数
    While k <= .Rows - 1
        yje = 0    '页小计金额
    '    printer.FontName = "楷书"
        Printer.FontName = "宋体"

        Printer.FontBold = True
        Printer.FontSize = 18
        x = x0 + (HzNum * 4.233 - Len(MainTitle) * 6.46) / 2
        y = y0


        Printer.CurrentX = x
        Printer.CurrentY = y
        Printer.Print MainTitle      '打印主标题

        Printer.FontBold = False
        Printer.FontName = "宋体"
        Printer.FontSize = 12
        y = Printer.CurrentY + 3
        x = x0
        Printer.CurrentX = x
        Printer.CurrentY = y
        Printer.Print SecTitle      '打印次标题
        Printer.CurrentX = x + HzNum * 4.233 - 50
        Printer.CurrentY = y
        Printer.Print Format$(Date, "yyyy-mm-dd")      ''打印日期


        y = Printer.CurrentY + 2
        Printer.CurrentX = x0
        Printer.CurrentY = y
        Printer.Print str1                    '打印┌───┬──┬─┐

        y = Printer.CurrentY
        Printer.CurrentX = x0
        Printer.Print str3                    '打印│      │    │  │
        For j = 0 To .Cols - 1                '打印表头内容
            '表头内容位于单元中间
            Printer.CurrentX = x0 + Cellf(j) + (dx(j) - Len(.TextMatrix(0, j))) / 2 * 4.233
            Printer.CurrentY = y
            Printer.Print .TextMatrix(0, j)
        Next j

        For I = 1 To PageLine
            If k = .Rows Then Exit For        '表格结束
            y = Printer.CurrentY
            Printer.CurrentX = x0
            Printer.CurrentY = y
            Printer.Print str2                '打印├───┼──┼─┤

            y = Printer.CurrentY
            Printer.CurrentX = x0
            Printer.CurrentY = y
            Printer.Print str3                '打印│      │    │  │

            For j = 0 To .Cols - 1            '打印一行的内容
                Printer.CurrentX = x0 + Cellf(j)
                Printer.CurrentY = y
                If j = DjCol Then
                   fs = "      "
                   Mid$(fs, 7 - Len(Format$(.TextMatrix(k, j), "##0.00")), Len(Format$(.TextMatrix(k, j), "##0.00"))) = Format$(.TextMatrix(k, j), "##0.00")
                   Printer.Print Mid$(fs, 1, 6)
                ElseIf j = JeCol Then
                   fs = "         "
                   Mid$(fs, 10 - Len(Format$(.TextMatrix(k, j), "####0.00")), Len(Format$(.TextMatrix(k, j), "####0.00"))) = Format$(.TextMatrix(k, j), "####0.00")
                   Printer.Print fs
                   yje = yje + Val(.TextMatrix(k, j))
                   zje = zje + Val(.TextMatrix(k, j))
                Else
                   Printer.Print .TextMatrix(k, j)
                End If
            Next j
            k = k + 1
        Next I
        n = n + 1
        y = Printer.CurrentY
        Printer.CurrentX = x0
        Printer.CurrentY = y
        Printer.Print str4                    '打印└──┴──┴──┘
        If zje <> 0 Then
           Printer.CurrentX = x0 + 80
           Printer.Print "本页小计金额:" + Format$(yje, "######0.00") + "元"
        End If
        Printer.CurrentX = x0 + 90
        Printer.Print "第" + Str$(n) + "页,共" + Str$(r) + "页"
        If k < .Rows - 1 Then
            Printer.NewPage
        Else
            Printer.CurrentX = x0 + 80
            Printer.Print "总计金额:" + Format$(zje, "######0.00") + "元"
        End If
    Wend
    Printer.EndDoc
    End With
    End Sub


       
     
     回复人: laviewpbt(人一定要靠自己) ( ) 信誉:100  2005-11-16 20:03:28  得分: 70  
      
      
    Function gPrintListView(ByRef pobjListView As ListView, pstrHeading As String) As Boolean
        Dim objCol As ColumnHeader
        Dim objLI As ListItem
        Dim objILS As ImageList
        Dim objPic As Picture
       
        Dim dblXScale As Double
        Dim dblYScale As Double
        Dim sngFontSize As Single
        Dim lngX As Long
        Dim lngY As Long
        Dim lngX1 As Long
        Dim lngY1 As Long
        Dim lngX2 As Long
        Dim lngRows As Long
        Dim lngLeft As Long
        Dim lngPageNo As Long
        Dim lngEOP As Long
        Dim lngEnd As Long
        Dim lngWidth As Long
        Dim intCols As Integer
        Dim lng As Long
        Dim intOffset As Integer
        Dim px As Integer
        Dim py As Integer
        Dim intRowHeight As Integer
        Dim strText As String
        Dim strTextTrun As String
       
        '--------------------------------------------------------------------------
        'Establish print & screen metrics
        '--------------------------------------------------------------------------
       
        On Error GoTo Error_Handler
       
        Screen.MousePointer = vbHourglass
           
        For Each objCol In pobjListView.ColumnHeaders
           
            lngX = lngX + objCol.Width
       
        Next
       
        Set objILS = pobjListView.SmallIcons
       
        dblXScale = (Printer.Width * 0.9) / lngX
        dblYScale = Printer.Height / pobjListView.Height
       
        lngLeft = (Printer.Width - (Printer.Width * 0.95)) / 2
       
        sngFontSize = Printer.Font.Size
       
        If pstrHeading <> "" Then
       
            Printer.Font.Size = 12
            Printer.CurrentX = (Printer.Width / 2) - (Printer.TextWidth(pstrHeading) / 2)
            Printer.Font.Underline = True
            Printer.Print pstrHeading
            Printer.Font.Underline = False
            Printer.Font.Size = sngFontSize
            lng = Printer.CurrentY + Printer.CurrentY
           
        End If
       
        intRowHeight = (Screen.TwipsPerPixelY * 17)
       
        lngEOP = Printer.Height - (intRowHeight * 3)
       
        lngX = lngLeft
        lngY = lngTop
       
        lngY1 = lng + (Screen.TwipsPerPixelY * 17)
       
        Printer.CurrentY = lngY
        Printer.Font.Bold = True
        Printer.DrawMode = vbCopyPen
          
        px = Screen.TwipsPerPixelX
        py = Screen.TwipsPerPixelY
       
        '--------------------------------------------------------------------------
        'Print column headers with slight 3D effect
        '--------------------------------------------------------------------------
       
        For Each objCol In pobjListView.ColumnHeaders
           
            lngX1 = lngX + (objCol.Width * dblXScale)
           
            Printer.Line (lngX, lngY)-(lngX1, lngY1), vbButtonShadow, BF
            Printer.Line (lngX, lngY)-(lngX1 - px, lngY1), RGB(245, 245, 245), BF
            Printer.Line (lngX + px, lngY + py)-(lngX1, lngY1), vbButtonShadow, BF
            Printer.Line (lngX + px, lngY + py)-(lngX1 - px, lngY1 - py), vbButtonFace, BF
           
            Printer.CurrentY = lngY + ((intRowHeight - Printer.TextHeight(objCol.Text)) / 2) + py
           
            Select Case objCol.Alignment
                  
                Case ListColumnAlignmentConstants.lvwColumnCenter
                      
                    Printer.CurrentX = lngX + (((objCol.Width * dblXScale) - Printer.TextWidth(objCol.Text)) / 2)
                  
                Case ListColumnAlignmentConstants.lvwColumnLeft
                   
                    Printer.CurrentX = lngX + (px * 5)
               
                Case ListColumnAlignmentConstants.lvwColumnRight
                   
                    Printer.CurrentX = lngX + ((objCol.Width * dblXScale) - Printer.TextWidth(objCol.Text)) - (px * 5)
                   
            End Select
           
            Printer.Print objCol.Text
              
            lngX = lngX1
       
        Next
       
        lngEnd = lngX1 + px
       
        Printer.Font.Bold = False
       
        '--------------------------------------------------------------------------
        'Print list item data
        '--------------------------------------------------------------------------
       
        For Each objLI In pobjListView.ListItems
           
            If lngY1 > lngEOP - intRowHeight - intRowHeight Then
               
                '------------------------------------------------------------------
                'Print page number
                '------------------------------------------------------------------
               
                lngPageNo = lngPageNo + 1
                Printer.CurrentX = (Printer.Width / 2) - (Printer.TextWidth("Page " & lngPageNo) / 2)
                Printer.CurrentY = lngEOP - intRowHeight
                Printer.Print "Page " & lngPageNo
                Printer.NewPage
                Printer.CurrentY = lngTop
                lngY = lngTop
           
            Else
           
                lngY = lngY + intRowHeight
           
            End If
           
            lngX = lngLeft
           
            lngY1 = lngY + intRowHeight
               
            For Each objCol In pobjListView.ColumnHeaders
               
                '------------------------------------------------------------------
                'Print the icon if on col 1
                '------------------------------------------------------------------
               
                If objCol.Index > 1 Then
                   
                    strText = objLI.SubItems(objCol.Index - 1)
                   
                    intOffset = 0
                   
                Else
                   
                    strText = objLI.Text
        
                    If IsEmpty(objLI.SmallIcon) Then
                       
                        intOffset = 0
                   
                    Else
                       
                        Set objPic = objILS.Overlay(objLI.SmallIcon, objLI.SmallIcon)
                   
                        Printer.PaintPicture objPic, lngX + px, lngY + (py / 2), 16 * px, 16 * py, , , , , vbSrcCopy
                       
                        intOffset = px * 16
                       
                    End If
               
                End If
               
                '------------------------------------------------------------------
                'Make sure text fits
                '------------------------------------------------------------------
               
                lngWidth = (objCol.Width * dblXScale)
               
                lngX1 = lngX + lngWidth
               
                strTextTrun = strText
        

              Do Until Printer.TextWidth(strTextTrun) < lngWidth - (px * 5) - intOffset Or strText = ""
                   
                    strText = Left$(strText, Len(strText) - 1)
                   
                    strTextTrun = strText & "..."
               
                Loop
               
                Printer.Line (lngX, lngY)-(lngX1, lngY1), 1, B
               
                Printer.CurrentY = lngY + ((intRowHeight - Printer.TextHeight(strTextTrun)) / 2) + py
               
                Select Case objCol.Alignment
                      
                    Case ListColumnAlignmentConstants.lvwColumnCenter
                       
                        Printer.CurrentX = lngX + intOffset + (((objCol.Width * dblXScale) - Printer.TextWidth(strTextTrun)) / 2)
                       
                    Case ListColumnAlignmentConstants.lvwColumnLeft
                       
                        Printer.CurrentX = lngX + intOffset + (px * 5)
                   
                    Case ListColumnAlignmentConstants.lvwColumnRight
                       
                        Printer.CurrentX = lngX + ((objCol.Width * dblXScale) - intOffset - Printer.TextWidth(strTextTrun)) - (px * 5)
                       
                End Select
               
                '------------------------------------------------------------------
                'Print each colum
                '------------------------------------------------------------------
               
                Printer.Print strTextTrun
                
                lngX = lngX1
           
            Next
           
        Next
       
        '--------------------------------------------------------------------------
        'Print final page number
        '--------------------------------------------------------------------------
       
        lngPageNo = lngPageNo + 1
       
        Printer.CurrentX = (Printer.Width / 2) - (Printer.TextWidth("Page " & lngPageNo) / 2)
        Printer.CurrentY = lngEOP - intRowHeight
        Printer.Print "Page " & lngPageNo
        Printer.EndDoc
       
        gPrintListView = True
       
        Screen.MousePointer = vbDefault
       
        Set objCol = Nothing
        Set objILS = Nothing
        Set objLI = Nothing
        Set objPic = Nothing
       
        Exit Function
       
    Error_Handler:
       
        Set objCol = Nothing
        Set objILS = Nothing
        Set objLI = Nothing
        Set objPic = Nothing
       
        Screen.MousePointer = vbDefault
       
        '--------------------------------------------------------------------------
        'Simple error message reporting
        '--------------------------------------------------------------------------
       
        MsgBox "gPrintListView() failed with the following error:-" & vbCrLf & vbCrLf & _
        "Error Number: " & Err.Number & vbCrLf & "Description:" & Err.Description, vbExclamation
       
    End Functio
      
     
     回复人: mylzw(芃) ( ) 信誉:96  2005-11-16 23:49:27  得分: 30 
     
     
      
    楼主有MSHFLEXGRID打印的代码,再来个LISTVIEW转换为MSHFLEXGRID的函数不得了?

    '转换ListView中数据至MSHFlexGrid的函数
    Public Function Lv_To_Fg(ListView As ListView, MSHFlexGrid As MSHFlexGrid) As Long
        If ListView.View <> lvwReport Then
            Lv_To_Fg = 0  '非报表结构,无法进行转换
            Exit Function
        End If
       
        Dim I As Long
        Dim j As Long
       
        With MSHFlexGrid
            .Clear
            .FixedRows = 1
            .FixedCols = 0
            .Rows = ListView.ListItems.Count + 1
            .cols = ListView.ColumnHeaders.Count
           
            '同步列宽
            For I = 0 To .cols - 1
                .colWidth(I) = ListView.ColumnHeaders(I + 1).width
            Next
           
            '开始转换
            For I = 0 To .Rows - 1
                For j = 0 To .cols - 1
                    If I = 0 Then '写表头
                        .TextMatrix(I, j) = ListView.ColumnHeaders(j + 1).Text
                    Else  '写内容
                        If j = 0 Then '写首列
                            .TextMatrix(I, j) = ListView.ListItems(I).Text
                        Else '写其余列
                            .TextMatrix(I, j) = ListView.ListItems(I).SubItems(j)
                        End If
                    End If
                Next
            Next
        End With
       
        Lv_To_Fg = 1
        '转换完毕
    End Function

    展开全文
  • 那些年的大学生活

    2012-06-02 01:21:23
    只有一少部分的学生在看vb,做vb的题,亦或敲代码。  作为一名在校大三的学生,早已体会到,不只是vb课这样,其他的课堂上不听课再普通不过了。  那么,两类学生的差别哪来的呢?为什么有的学生能够学进去,另一...
  • 机房收费系统之报表(二)

    千次阅读 热门讨论 2014-08-12 19:25:50
    上一篇说道怎么用报表设计器怎么设置报表模板,现在到了到vb里实现报表了,在报表之前,上一篇文章我们已经加载了部件,引用之后会在控件工具箱中出现两个第三方控件,分别是GRDisplayViewer和GRPrintViewer。...
  • 我对学习编程的一点点小心得

    千次阅读 2013-08-07 23:31:01
    你们写代码怎么这么厉害。其实写代码真的并不难。只是有些人没有勇气去接触它而已。 在初学的时候遇到问题,轻而放弃,代码打错,就说编程很难,学不会。 我接触编程已经有两年了。我的学习路线是这样的 VB--》C--...
  • 因为VB是在QB的基础上制作的,语法几乎完全相同,把QB的模块化扩展成简单的OOP(面向对象)编程,而界面完全用鼠标来画出来,添入各种属性(如颜色,标题等),再添入QB的代码就出来一个漂亮的WINDOWS程序。...
  • 算法导论中文版

    2012-11-17 21:10:38
    不了解汇编,编译原理,怎么知道程序运行时要多长时间要多少内存,就不能编出高效的代码。 如果没有学好基础一开始就去学.net,java这些越往后就会觉得越吃力,它们涉及的技术太多了,而且不但 在更新,对于三层啊,...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • Wpf画面处理时,遇到个问题,popup上怎么都切换不出输入法,只有QQ输入法勉强能切出来中文,但是也看不到输入框,原来popup上的textbox无法切换出输入法,是微软的一个bug,微软说4.0会修正该bug,项目是3.5的,...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • 比如你喜欢用delphi,客户说一定要用vb,那你就答应他,然后把自己培养成为vb的高手。用户的需求看似**,但对你是一个机会。  怎样才能做到看书快,写代码快,学新东西快,一个显而易见的途径就是将工作并行化。...
  • 在一小时内学会 C#(txt版本)

    热门讨论 2009-08-19 18:09:37
    C++ 的主函数名为 main,而 C# 中是大写 M 头的 Main。 类块或结构定义之后没有必要再加一个半角分号。C++ 中是这样,但 C# 不要求。 命名空间 每个类都打包于一个命名空间。命名空间的概念和 C++ 完全一样,但...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    vb实例。 p2p+technology 文档。 P2P视频技术源码(含开发文档) 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求的长度在第一个INT中指定. 2) 每个服务器通常会向多种客户提供服务...
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_6

    热门讨论 2012-09-15 14:59:46
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_5

    热门讨论 2012-09-15 14:45:16
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_4

    热门讨论 2012-09-15 14:38:35
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...
  • vc++ 应用源码包_3

    热门讨论 2012-09-15 14:33:15
    p2p vb实例。 p2p+technology文档。 P2P视频技术源码(含开发文档) PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库...

空空如也

空空如也

1 2
收藏数 35
精华内容 14
关键字:

vb怎么打代码