vb
文章平均质量分 67
flashasp
这个作者很懒,什么都没留下…
展开
-
按字段的实际长度写入文本,字段值不够长的补空格,每个字段之间留一个空格
要求:按字段的实际长度写入文本,字段值不够长的补空格,每个字段之间留一个空格 作者: flashasp创建时间:2005-01-18表结构: flashasp=============================================================================================================原创 2005-01-19 18:15:00 · 895 阅读 · 0 评论 -
让Combo自动打开或收起
Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const CB_SHOWDROPDOWN原创 2007-04-17 20:05:00 · 541 阅读 · 0 评论 -
将汉字的首字母转换为拼音代码
将汉字的首字母转换为拼音代码Public Function py(mystr As String) As String If Asc(mystr) If Asc(Left(mystr, 1)) py = "0" Exit Function End If If Asc(Left(mystr, 1)) >= Asc("啊") And Asc(Left(原创 2007-04-13 21:24:00 · 597 阅读 · 0 评论 -
用Printer自制表格的分栏打印
******************************************************************************************************功能:用Printer自制的表格的分栏打印调用:MyPrint(12, 1000),pw:定义某个刻度下的表格宽度参数:Nz:脊背的总个数作者: FlashAspQ Q: 217920原创 2007-04-13 09:36:00 · 1563 阅读 · 0 评论 -
设置打印机设置为横向或者纵向打印
将打印设置为横向打印:ChngPrinterOrientationLandscape Me将打印设置为纵向打印:ChngPrinterOrientationPortrait Me将下面的文件存为.BAS文件,在打印窗体加载的时候按上面的方法调用即可Constants used in the DevMode structure Private Const CCHDE转载 2007-04-13 21:29:00 · 2654 阅读 · 0 评论 -
将字符串按等宽的比列换行输出
******************************************************************************************************函数:CutString(s,10)功能:将字符串按等宽的比列换行输出调用:CutString("123456789",3)参数:Str:待截取的字符串,BrN:换行的字符个数****原创 2007-04-13 21:25:00 · 688 阅读 · 0 评论 -
开启一个预先定义好的WORD模板并替换模板中指定的某个字符串
******************************************************************************************************功能: 开启一个预先定义好的WORD模板并替换模板中指定的某个字符串调用: Call OpenWordAndReplaceChar("001.doc", "$1", "宝宝:)")参数:原创 2007-04-13 21:23:00 · 1160 阅读 · 0 评论 -
利用PrintForm打印窗体部分窗体
已知:Frame3在sstabView控件里面:要求打印窗体时只打印Frame3里面的控件,隐藏sstabView实现方法:Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long打印窗体Private Sub t原创 2007-04-13 21:52:00 · 1192 阅读 · 0 评论 -
利用Printer实现字符串的纵向横向换行打印
***********************************************************************************************功能:Printer字符串的纵向横向换行打印过程过程:CutPrint(str As String, x As Integer, xstep, y As Integer, ystep As Integer原创 2007-04-13 21:22:00 · 976 阅读 · 0 评论 -
软件界面设计
我在工作中总结了一些有关界面设计与测试的规范,与大家共享。 界面设计与测试规则界面是软件与用户交互的最直接的层,界面的好坏决定用户对软件的第一印象。而且设计良好的界面能够引导用户自己完成相应的操作,起到向导的作用。同时界面如同人的面孔,具有吸引用户的直接优势。设计合理的界面能给用户带来轻松愉悦的感受和成功的感觉,相反由于界面设计的失败,让用户有挫败感,再实用强大的功能都可能在用户的畏惧与放弃中付诸转载 2007-04-04 15:46:00 · 872 阅读 · 0 评论 -
VB十七种可用一行代码完成的技巧
编程要讲效率,尽管现在的计算机,速度是不成问题,但是,如果一行代码能完成,为什么要用更多的代码呢?现在介绍VB中一些可用一行代码完成的技巧。1、下列代码,则是对逻辑运算不清楚造成 If A=true ThenC= Not BElseC= BEnd If 可以:转载 2007-07-01 14:53:00 · 755 阅读 · 0 评论 -
VB下几个非常有用的函数
————————(1)————————————获得指定ini文件中某个节下面的所有键值 TrueZq,,需要下面的API声明Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal原创 2007-07-01 14:50:00 · 1039 阅读 · 0 评论 -
利用VBA处理Word以及WORD表格
1.向WORD中创建表格并插入文字 本例的功能是在文档开头插入一张 3 行 6 列的表格。可用For Each...Next 结构来循环遍历表格中的每个单元格。在 For Each...Next 结构中,InsertAfter 方法用来向表格单元格添加文字("第 1 单元格"、" 第 2 单元格"等等),oTable.Aut原创 2007-03-30 11:13:00 · 1906 阅读 · 1 评论 -
用VB向WORD中插入一个3列6行的表格,并给每行表格插入数据^_^
必须点击菜单 "工程/引用/Microsoft Word 9.0 Object Library" Dim wd As New Word.Application插入一个3列6行的表格,并给每行表格插入数据wd.Documents.Add DocumentType:=wdNewBlankDocumentSet oDoc = wd.ActiveDocument原创 2007-03-30 10:58:00 · 3082 阅读 · 0 评论 -
根据现有数据库结构生成VB四级目录树TreeView
已知四张表:select pronum from [ProjectReg] select pronum,pronum1 from [ProjectJiZai] select pronum,pronum1,pronum2 from [rollreg] select pronum,pronum1,pronum2,pronum3 from [filesreg] -----------原创 2007-03-25 17:21:00 · 1883 阅读 · 0 评论 -
用VB实现根据脚本文件来创建测试SqlServer数据库
读取文本文件Public Function ReadFile(ByVal strFile As String) As StringOn Error GoTo aaaa Open strFile For Input As #1 ReadFile = StrConv(InputB$(LOF(1), #1), vbUnicode) Close #1Exit Functi原创 2007-05-10 14:43:00 · 644 阅读 · 0 评论