博文
关于字符串的操作(2005-10-11 20:24:00)
摘要：
转发---关于字符串的操作
document.title="转发---关于字符串的操作 - "+document.title
提问：
假设我从Excel表格中复制了一些数据到剪贴板中，比如是这样一些信息：
Allen 12
Anderson 13
Douglas 12
Ohio 49
我怎样才能把这些名字和数字读进一个数组或者一个Grid框中呢？用Clipboard.GetText(vbCFText)只能一下子读入所有数据，而我希望一个一个地读。
回答：
新建一个项目，在窗体上放两个label和一个command。以下是代码：
Private Sub Command1_Click()
Dim vTekst$
vTekst$ = "Allen 12 "
vTekst$ = vTekst$ & "Anderson 13 "
vTekst$ = vTekst$ & "Bernard 14 "
vTekst$ = vTekst$ & "Constance 15 "
Label1.Caption = vTekst$
Select Case Command1.Caption
Case "Copy Clipboard"
Clipboard.Clear
Clipboard.SetText Label1.Caption
Command1.Caption = "Put into Label"
Case "Put into Label"
Label2.Caption = GetPartofString(Clipboard.GetText, 1)
Command1.Caption = "Copy Clipboard"
'read in array
Dim vText(7) As String
Dim c%
For c% = 0 To 7
vText(c%) = GetPa......
VB 利用WINRAR 压缩文件及解压 (2005-10-11 20:16:00)
摘要：
VB 利用WINRAR 压缩文件及解压
document.title="VB 利用WINRAR 压缩文件及解压 - "+document.title
预备知识:
1. Shell 函数
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数：
部分
描述
pathname
必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle
可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值：
常量
值
描述
vbHide
0
窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus
1
窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus
2
窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus
3
窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus
4
窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus
6
窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明
如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
2. WINRAR命令行语法
从命令行也可以运行 WinRAR 命令，常规的命令行语法描述如下:
WinRA......
快速将图片等资料转换成二进制的方法(2005-10-11 20:06:00)
摘要：很多时候，我们需要将图片框中的图片保存到数据库，并从数据库中读取出来。虽然VB中的图片框支持直接绑定数据库存入图片和读取图片的方法，但是很多场合并不能使用绑定来解决问题。于是很多人在进行操作时，都使用了类似以下的方法: 读入图片到图片框后 ，再使用 Open "Picture" For Binary 来打开文件并读入为Byte() 数组。而从数据库读取图片格式时，则需要先将 字段数据读取到 Byte()，再使用 Open "Picture" For Binary 写入到磁盘上的临时文件再使用 LoadPicture 来读取临时文件。写入和读取都是多余的步骤，浪费了时间还留下了临时文件，在图片较大的情况下，对效率的影响相当严重。
是否有更快捷方法来保存图片框图片/读取Byte()中的图片呢？是的，在 VB 下有一个鲜为人知的对象： PropertyBag ，该对象原本是保存 ActiveX 中属性中的数据，并把它写到文件中去。但是我们却能利用它来达到读取图片框图片为Byte() 的目的，请看下列代码：
'假设Form 上已经存在Picture1的控件，并已经设置好图片
Dim PBag As New PropertyBag
Dim B() As Byte
PBag.WriteProperty "Picture", Picture1.Picture
'读取Picture1.Picture 图片并写到 Pbag 容器中
B = PBag.Contents '获取容器Byte 到 B() 数组中
'这时 B 就时我们想要获得的Byte数组
'读取 Byte() 数组内容到 Picture
PBag.Contents = B '指定 PBag容器的内容
'读取容器中的图片
Set Picture1.Picture = PBag.ReadProperty("Picture")
简单的几句代码就可以完成从图片到Byte() ，从Byte()到图片的转换。而且其保存和读取的格式都是使用了原始格式，即：如果你的图片框读入的是Jpg图片格式，则保存的Byte()数组也是该Jpg格式的数组，而非普通位图的数组，所以你也不用担心转换后的......
VB使用ADO操作数据库的常用方法(2005-10-11 14:11:00)
摘要：ADO常用方法
下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸
准备工作
========
Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行
Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用
Dim CnStr As String, Sql As String '创建两个字符串变量分别存放两个集合的SQL语句代码段
1、装载数据库(不属于Recordset集合)
=============
Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$
'以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码
FileName = App.Path & "\'数据库名'"
DbIp = "数据库地址"
DbName = "数据库名"
DbUser = "数据操作员用户名"
DbPw = "操作员密码"
'以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量
'1)连接Access数据库:
'-------------------
CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw
'2)连接Oracle数据库:
'-------------------
CnStr = "PROVIDER=MSDAORA.1;Password=" & D......
亲人我拿什么回报你(2005-10-11 13:45:00)
摘要：本帖献给天下所有善良纯朴的父母，
请不要吝啬你的语言！
真爱无敌。。
谁能帮我将亲情顶起！！！
我们都喜欢讨论感情，
可还有多少人记得起亲情呢？
亲情才是情感之尊！
请为自己的父母而顶！
为天下亲情而顶！
祝福支持者的父母幸福健康。。。！
不顶！是没有理由的！！!
父亲在风雨中为我们积攒梦想
上大学那天父亲哭了........
母亲没有文化，只知道让儿女能生活在省城
里。。。 那里不用种地的!
那道曙光下，，，父亲为儿女的眼神。。！
无论天寒地冷......总是有人为我们遮挡风
雨!
当我们在城市上空自由飞翔时。。。。母亲
依然。。。
我收集了记忆中的语言，它让我感动一生。
1：不好好上学，家里的6亩地就是你的了。。。。。。（小学6年纪，我经常逃课，老妈哭着对我发脾气）
这是作为农民的母亲，给我最常见的教育方式，我依晰还记得。。。。。。。
2：都是我们小焱子不好，我跟他爸给您道歉了。。。。（初2时，我与同学打架，父母替我道歉）
妈妈告诉我，做了错事，一定要承认并且承担责任
3：“水子”（老爸的小名）他们姐弟俩眼看就要考大学了，这卖粮食是供不起他们的学费的，咱俩做点小生意吧。。。。。。（我姐高3，我高2的时候，家里条件很差，爸妈为我们开始更加劳累，这是我在门后听到的，那次，我流泪了。。）
我知道没有父母，就没有我的今天，可他们已经老了。。。
4：“焱子！在学校里要吃好，不要饿着自己，妈不能给你作饭吃了，没钱就打信回来，家里还有钱。。。。。。。（爸妈送我去车站，火车开动的时候，老妈跟着车跑了一小段。。哭了！。。其实我知道学费是借来的）
父母对子女永远是无私的，他们教会了我什么是善良什么是淳朴。。。什么是世间最伟大的爱
5：“你出去吧，我们身体还好，做你自己喜欢的事情吧，外面不好了，再回来”。。。。。毕业我......
在VB程序中用ADO对象动态创建数据库和表(2005-10-10 20:46:00)
摘要： 在VB程序中用ADO对象动态创建数据库和表
蒋铁海
(广东外语外贸大学英文学院信息管理系 510420)
摘要： 本文阐述了在VB程序中利用ADO对象动态创建数据库和数据表的方法，这些方法在开发VB数据库应用程序中很有实用价值，它可以提高数据库程序灵活性。
关键词：数据库、数据表、ADO、ADOX
1: 问题的提出
在Visual Basic中，常用的数据访问接口有下列三种：数据库访问对象(DAO，Data Access Object)、远程数据库对象(RDO，Remote Data Object)和ActiveX数据对象(ADO，ActiveX Data Object )。数据库访问技术一直在不断进步，而这三种接口的每一种都分别代表了该技术的不同发展阶段。最新的是ADO，它是比RDO和DAO更加简单，然而更加灵活的对象模型。正因如此，越来越多的人在用VB开发数据库软件时使用ADO作为数据访问接口。在开发过程中，我们通常的使用的方法是：先使用数据库管理系统(例如：Microsoft Access)或VB中的可视化数据管理器建立好数据库和数据表结构，然后在程序中通过使用ADODC数据库控件或引用ADO对象与数据库中的表建立连接，再通过数据库感知控件(例如：文本框、DataGrid等)来进行数据库的各种操作。在这种开发过程中，我们有时需要面对这样一个问题：如何让用户在程序运行过程中动态地建立自己所需的数据库和数据表以提高程序的灵活性呢？在程序运行过程中建立自己所需的......
Auto CAD2004完全笔记3(2005-10-10 20:36:00)
摘要：
Auto CAD2004完全笔记3
三维部分
三维部分笔记：
UCS：User（用户）Coordinate（坐标）System（系）
WCS：Word（世界）Coordinate（坐标）System（系）
UCS类型：
1.原点UCS，可以在不改变X、Y、Z三轴方向的情况下，放置坐标系的原点。
2.Z轴矢量UCS:第一点确定的是原点,第二点确定的是Z轴正方向。
3.3点UCS：第一点为原点，第二点为X轴正方向；第三点为Y轴正方向。
4.X/Y/Z轴旋转UCS：从原点向固定轴正方向看，逆时针为负，顺时针为正。旋转也就是两根轴同时向第三根轴旋转相同的角度。
5.面UCS：将X、Y平面快速置于选取的平面上，参考面只能是平面，曲面不能放置UCS。
6.对象UCS：主要是针对X、Y平面而言，也就是以对象来旋转X、Y平面中的X、Y轴方向；
指XY面在不脱离原面的情况下，XY轴的方向发生变化，点的一点作为X轴正方向，离此点最近的端点为原点。
7.视图UCS，不论当前UCS的X、Y、Z三根轴方向如何，视图UCS均可以将X置于水平方向，Y置于垂直方向，这样可以利用不同文件间视图的相互统一。
注：在AutoCAD建模中，重要的内容是视图的空间不断切换和UCS的灵活应用，主要是实体建模，AutoCAD的曲面建模功能较弱。
三维部分菜单的操作：
视图：（视图菜单下有如下视图）
六个平面视图：俯视图、仰视图、左视图、右视图、主视图（又名前视图）、后视图
四个等轴侧视图：西南等轴侧视图、东南等轴侧视图、东北等轴侧视图、西北等轴侧视图；此四个视图均从45度对角线去看图形。
照相机视图：以两点来定一个视图；从第一点看向第二点。
实体工具栏：
3个基本体系（长方体、球体、圆柱体）、圆锥体、楔体、圆环的绘制
拉伸建模：（前提：必须是首尾相连的封闭体）默认操作为给一个高度也可给拉伸角度，拉伸角度定义：给正值......
Auto CAD2004完全笔记2(2005-10-10 20:35:00)
摘要：
Auto CAD2004完全笔记2
2)、W来制作图块，此图块可以放在一个指定的目录中，可以方便的进行调用，并且可以实现图块的相互替换
二、图块的插入：
1)、插入----图块，浏览，找到图块名
2)、minsert可以实现图块的阵列插入
三、图块的替换，操作步骤：
1)、在命令行输入 -i,回车
2)、被替换的图块名称=替换的图块名称，回车
3)、输入Y，回车，即确认图块重定义，实现替换
4)、按ESC键，取消插入图块，只实现图块替换
四、属性的定义：
属性是依附于图块的信息，必须结合图块才可以实现自身功能，在插入图块时，提示信息输入
附：图块替换路径的确定，确定图块所放的目录后，工具/选项/文件/支持工程文件的搜索路径，点“添加”找到图块所存放的目录。只有搜索目录满足要求，才可以实现图块替换。
图块属性的定义：
绘图——块——定义属性
编辑属性（对定义属性的文字操作）
如在屏幕上指定点则是以命令的等式显示属性的录入，如插在原点的位置则以对话框的形式提示。
图块实例：
补充说明：如果本身文件丢失，想要用备份文件的话，可以直接将备份文件的扩展名名为.dwg即可。
多线(ml) 多线编辑(mledit)
建筑图一般分为两大类:建筑施工图、室内装饰图
多线图标的调入：右击任何浮动工具条一工具栏——自定义——命令——绘图——多线
多线宽度的控制,默认宽度是1。因为1的N倍是N。
多线的线条数可以改变：格式——多线样式 绘制建筑图时一般将多线设为三条。
多线的比例的控制——针对墙壁的厚度。一般的比例为：120 240 &nb......
Auto CAD2004完全笔记1(2005-10-10 20:34:00)
摘要：
Auto CAD2004完全笔记1
Auto CAD2004完全笔记
准备知识
在图形表达时，如果没有特殊说明，均以毫米为单位
光滑度确定:工具/选项/显示/圆弧和圆的平滑度 为20000。注：最大值
右键功能取消:工具/选项/用户系统配置/绘图区域中不显示快捷菜单
密码设:工具/选项/打开和保存/下面的安全选项
对象捕捉设置:工具/草图设置/对象捕捉——全部选择
UCS图标可见性:视图/显示/UCS图标/（开/关）
相对坐标：前面加上@
相对直角坐标格式：@x的变量，Y的变量
相对极坐标格式：@长度<角度
角度为与水平正方向所成的角度：
水平方向右为“0”度，逆时针为正，顺时针为负
尺寸分两种：定形尺才和定位尺才
绘制直线时，U为撤消一步 C为封闭，也可以按CTRL+Z等于撤消到上一次操作。
启用对象捕捉快捷键（F3）
正交模式快捷键（F8）
F2键为命令行窗口和绘图窗口相互之间进行切换
AutoCAD对色彩没有特殊要求
选择常用的三种方法：
1）从左向右拖动窗口选择，要框住才能选中
2）以右向左拖动窗口选择，只要接触到对象就能选中，包含在其内的也能选中
3）点选
在AutoCAD的操作中，一般情况下，鼠标右键等同于回车键
操作完成后，再按一次右键为重复上一次的操作
三键鼠标 中间键向外滚动为放大窗口，向里滚动为缩小窗口
平面部分一
[两列工具条,除文字、图块、多线]
工具栏的操作：绘图工具栏（等同于绘图菜单）
直线（L）：全称(line)
在屏幕上指定两点可画出一条......
单片机MCS-51系列指令快速记忆法(2005-10-10 20:27:00)
摘要：
单片机MCS-51系列指令快速记忆法
随着微电子技术和超大规模集成电路技术的发展，单片微型计算机以其体积小、性价比高、功能强、可靠性高等独有的特点，在各个领域（如工业控制、家电产品、汽车电子、通信、智能仪器仪表）得到了广泛的应用。学习、使用单片机的人越来越多，而生产单片机的厂家很多，单片机种类繁杂，不知如何选择。据统计，八位单片机占全球单片机销量的65％。在八位单片机中，Intel公司的8051单片机内核已成为8位单片机事实上的标准。因此，对初学者而言，选择8051单片机来学习不失为明智的选择。
学习单片机，除了搞清单片机内部功能、存储空间分配及I/O接口外，还应掌握其指令系统。MCS－51共有111条指令，现介绍我们总结出的快速记忆MCS－51指令的方法，供大家参考。
大家都知道，汇编语言指令由操作码、操作数两部分组成。MCS－51使用汇编语言指令，它共有44个操作码助记符，33种功能，其操作数有＃data、direct、Rn、@Ri等。这里先介绍指令助记符及其相关符号的记忆方法。
一、助记符号的记忆方法
1表格列举法
把44个指令助记符按功能分为五类，每类列表记忆。此处从略，请读者自己总结。
2英文还原法
单片机的操作码助记符是该指令功能的英文缩写，将缩写还原成英语原文，再对照汉语有助于理解其助记符含义，从而加强记忆。例如：
增量 INC－Incremect 减量 DNC－Decrement
短转移 SJMP－Short jump 长转移 LJMP－Long jump
比较转移 CJNE－Compare jump not equality
绝对转移 AJMP－Absolute jump 空操作 NOP－No operation
交换 XCH－Exchange 加法 ADD－Addition
乘法 MUL－Multiplication 除法 DIV－Division
左环移 RL－Rotate left 进位左环移 RLC－Rotate
left carry
右环移 RR－Rota......