博文
把图片框的完整内容复制到剪贴板(2005-10-09 13:27:00)
摘要：
把图片框的完整内容复制到剪贴板
Chinageren.com 2005-8-29
转载注明：www.chinageren.com
var arrBaiduCproConfig=new Array();
arrBaiduCproConfig['uid'] = 72095;
arrBaiduCproConfig['n'] = 'chinagerencpr';
arrBaiduCproConfig['tm'] = 34;
arrBaiduCproConfig['cm'] = 112;
arrBaiduCproConfig['um'] = 36;
arrBaiduCproConfig['rad'] = 1;
arrBaiduCproConfig['w'] = 250;
arrBaiduCproConfig['h'] = 250;
arrBaiduCproConfig['bd'] = '#1239A3';
arrBaiduCproConfig['bg'] = '#E2EEFC';
arrBaiduCproConfig['tt'] = '#0000ff';
arrBaiduCproConfig['ct'] = '#000000';
arrBaiduCproConfig['url'] = '#666666';
arrBaiduCproConfig['bdl'] = '#ffffff';
arrBaiduCproConfig['wn'] = 1;
arrBaiduCproConfig['hn'] = 3;
arrBaiduCproConfig['ta'] = 'center';
arrBaiduCproConfig['tl'] = 'top';
arrBaiduCproConfig['bu'] = 1;
VB本身不允许你将一个Form、UserControl或PictureBox上的完整图片复制到剪贴板。如果你使用Clipboard.SetData，将只复制被载入这个对象的位图。通过使用API方法，你可以超越这个限制，保证全部内容都被复制，包括你刚刚画上的任何图形。
开始一个新项目，在窗体上放置一个Command和一个Pic......
不堪回首的尴尬往事(2005-10-08 20:31:00)
摘要：在别人家里上厕所，完事之后发现抽水马桶坏了，怎么冲也冲不掉，最后只好叫来主人帮忙，还有好几人围观，哎~~，最后还是没有修好，只有打电话求助，几个人座在一起抽闷烟，相对无语，，，人世间最尴尬的事莫过于此。。。。。
偶一个哥们刚刚学会抽烟,当着偶们的面耍帅,掏出一只烟,斜在嘴边叼好,学小马哥的样子开始点烟........半天点不着,才发现叼错头了.烧了半天过滤嘴.......偶们狂倒
我小时候一伙伴的妈妈把针线盒落在沙发上了，然后他在上面玩耍……最后就忍着剧痛走到厂门口给他妈打电话：“妈，我JJ上插了根针……”
车站等公车的时候，有一PLMM一直盯着我微笑，我以为自己帅+伟岸原地踱了几圈，于是MM也笑得愈发妩媚。。。结果一边的大妈说：大青年，别在屎上踩来踩去的好吗？
我一次在课堂上念文章，把袒胸露背念成袒胸露乳！唉~~~~我喜欢的MM从此把我当色狼来防。
高中的时候上自习课,如果老师不在的话教室里就会很乱,聊天看报玩游戏什么的都有,偶因为是坐在窗户边上所以就有了为大家放哨的责任.窗户的毛玻璃上有一个小孔,我通常是透过那个小孔监视有没有老师来我们班.有一次我把眼睛凑到那个小孔上后竟然看到了另一只眼睛---原来是班主任在偷窥.过了一会儿班主任推门进来说:“XX你出来一下.“....
后来那块有孔的毛玻璃被换掉了.一次上自习的时候偶觉得教室里太热,就把窗户打开 了,用的力量有些大,只听窗外一声闷响接着就是一声闷哼.偶赶快站起来往窗外看,结 果看到班主任躺在地上...原来他是站在几块砖头上向教室里偷窥.过了一会班主任开门进来说:“XX你出来一下.“...
我有个兄弟陪GF在八百伴逛街，遇上小乞丐要钱，他没给，结果小要饭就抱住他的大腿喊爸爸。
还有两件与喝醉和马桶有关的事：有一年圣诞在天天旺吃饭，一个兄弟喝多了去WC吐，好久没见出来，于是另一个去找他，结果他一脸紧张的把那小子给背出来了，原来那小子一时吐得兴起就把人家的马桶给砸了，然后就躺那儿不起来了。
还有一次在一个MM家里，还是那个兄弟。那天大家都喝多了，我睡了一会觉得想吐， 迷迷糊糊爬起来走到厕所，厕所的瓷砖，马桶什么的都是紫色的，偏偏那小子那天也......
大学生九宗罪(2005-10-08 20:16:00)
摘要：
大学生九宗罪
大学生九宗罪，你犯了几宗?
罪名一：生活腐化
追求档次，崇尚名牌；经常光顾高消费文体娱乐场所；配备高档通讯设备；外出上街，常坐出租车；聚会交友，大讲排场等。其所占比例虽然不大，但其绝对数不小，而对他人的负面影响非常大。在一些学生中，盲目消费、攀比消费、赶潮消费、媚俗性消费、“面子”消费、超前消费等高消费甚至浪费现象非常普遍。
--------------------------------------------------------------------------------
罪名二：堕落傍款
“傍大款”在今天的中国女大学生嘴里，说起来不再那么时髦了。时下全国高校的美女群就是绑款族，越是名牌大学越是公开，越是校花美女越有可能。“傍大款”也不再是社会女青年的特许，随着商品狂潮的冲击，女大学生也毫不逊色的投入这一新兴的“第三产业”，她们以自己年轻的肉体作为资本，参与绑大款的行业。
--------------------------------------------------------------------------------
罪名三：玩物丧志
“一起床就开始玩《传奇》、半夜了宿舍楼还在激烈地打CS……”日前，以“cs”（“反恐精英”的简称）、“传奇”为代表的网络游戏在大学校园中十分盛行，一些大学生甚至沉溺于网络游戏中，荒废了学业。
--------------------------------------------------------------------------------
罪名四：寄生依赖
大学生基本上没有自己的收入，维持高消费无疑要依赖父母，有钱就花，花完就要，花得心安理得，全不顾父母的窘迫。在糟蹋父母的辛苦钱、加重父母的经济负担时，从未想过脱离寄生后的日子只能靠自己。
--------------------------------------------------------------------------------
罪名五：理性的侏儒
当今中国大学生缺乏基本的三大能力：辨别真假、是非的判......
富人和穷人的12种差异(2005-10-08 20:15:00)
摘要：
富人和穷人的12种差异
1.自我认知
穷人：很少想到如何去赚钱和如何才能赚到钱，认为自己一辈子就该这样，不相信会有什么改变。
富人：骨子里就深信自己生下来不是要做穷人，而是要做富人，他有强烈的赚钱意识，这已是他血液里的东西，他会想尽一切办法使自己致富。
2.休闲
穷人：在家看电视，为肥皂剧的剧情感动得痛哭流涕，还要仿照电视里的时尚打扮自己。
富人：在外跑市场，即使打高尔夫球也不忘带着项目合同。
3.交际圈子
穷人：喜欢走穷亲戚，穷人的圈子大多是穷人，也排斥与富人交往，久而久之，心态成了穷人的心态，思维成了穷人的思维，做出来的事也就是穷人的模式。大家每天谈论着打折商品，交流着节约技巧，虽然有利于训练生存能力，但你的眼界也就渐渐囿于这样的琐事，而将雄心壮志消磨掉了。
富人：最喜欢交那种对自己有帮助，能提升自己各种能力的朋友。不纯粹放任自己仅以个人喜好交朋友。
4.学习
穷人：学手艺。
富人：学管理。
5.时间
穷人：一个享受充裕时间的人不可能挣大钱，要想悠闲轻松就会失去更多挣钱的机会。穷人的时间不值钱的，有时甚至多余，不知道怎么打发，怎么混起来才不烦。如果你可以因为买一斤白菜多花了一毛钱而气恼不已，却不为虚度一天而心痛，这就是典型的穷人思维。
富人：一个人无论以何种方式挣钱，也无论钱挣得是多是少，都必须经过时间的积淀。富人的玩也是一种工作方式，是有目的的。富人的闲，闲在身体，修身养性，以利再战，脑袋一刻也没有闲着；穷人的闲，闲在思想，他手脚都在忙，忙着去麻将桌上多摸几把。
6.归属感
穷人：是颗螺丝钉。穷人因为自身的卑微，缺少安全感，就迫切地希望自己从属并依赖于一个团体。于是他们以这个团体的标准为自己的标准，让自己的一切合乎规范，为团体的利益而工作，奔波，甚至迁徙。对于穷人来说，在一个著名的企业里稳定地工作几十年，由实习生一直干到高级主管，那简直是美妙得不能再美妙的理想了。
谢谢你的留言(2005-10-07 08:42:00)
摘要：首先非常感谢你的留言。
我的blog主要是为了提高vb而建立和维护的，希望学习vb的朋友在这里能够有所受益和启发；vb是工作的一部分，工作是生活的一部分，所以这里也收集了很多关于生活的文章，闲的时候可以常常来发发感悟、净化精神。。。。
感谢这些文章的愿作者，有的文章没有你的署名，如果你发现或知道的或请及时告诉我，我会立即更正，并对此表示深深的歉意。
希望你留下宝贵的意见、建议或者感想，以及所有你愿意留下的。。。。。。......
精典口误(2005-10-07 08:29:00)
摘要：上小学的时候有片课文叫《狮子与我》
里面有只狮子叫爱尔莎的
当时老师叫个女生起来回答相关问题
那女生张口就来：小狮子安尔乐。。。
还不断的重复 我们当时都5。6年级 都知道 又闷住不敢笑 全班头一次在上语文课的时候那么安静。。。。。。
一个同学MM一次听了一个很好笑的问题，回来马上来考我：GG，你知道老母猪是怎么笨死的吗？……我很诚实的回答：刚刚才知道老母猪是谁
一次，和寝室室友斗嘴，他说不赢我，打骂一句“你是我爷爷的儿子！”
全寝室在1秒的安静后狂笑！
偶小时候一次吃东西吃坏了肚子，第二天给老师写病假条：“老师，我昨天吃坏东西了，肚子不舒服，早上起来上泻下吐。。。”
寒啊，不知道老师什么感想 [http://www.efunster.com 幽默家电子杂志]
肯得鸡刚出劲爆鸡米花时，一老太跑去，跟服务员说：“来份劲爆鸡丁。”笑到死~~~~
一次跟表妹在家吃饭,不小心倒了汤,面纸都用光了,表妹忙喊"快点,快点,去厕纸拿厕所"(广东淫)....
又一次,偶表妹一进门看到偶妈准备下锅的西红柿和牛肉,表妹兴奋的说"yeah...今天吃偶最喜欢的西瓜煮牛肉..." (不知道为什么西红柿变了西瓜...... 同桌的东西掉地上了，弯下去捡
偶用脚踩之，不料踩中其手
大学的主持全院的元旦联欢晚会.
领导走的时候,我拿着话筒说,让我们用热烈掌声欢迎各位领导.结果一点掌声也没有
学校食堂炒菜有小份的，一日和MM去打菜，MM问师傅：有小份的吗？师傅心平气和的回答：没，只有大份（大粪）。暴笑！MM莫名其妙的看我
收老头的破烂儿怎么还不来啊？？
那天有饭局。晕。作在饭桌上说了一句。本来想说好久没有作席了。不知道怎么的说成了好久没有作台了。晕！当时大家就开了说了。寒自己一个！
原文是茅屋，念成茅房。
考试分数很低，我苦恼地抱怨说：我的分数太便宜了！
老虎不发威，你以为我病危呀！
上高中时，课堂纪律混乱，老师一怒之下揪起XXX，说：XXX,你给我站墙上去！......
世界十大奇图 眼睛欺骗大脑(2005-10-07 07:15:00)
摘要：楼主发贴很辛苦的，费了好长时间，希望大家能花几秒钟顶一下，好人有好报的 请近期关注图南为您精心准备的＜＜＜＜三维立体画＞＞＞＞
一 柱子是圆的还是方的?
二 狮子在那里?
三 据说看到9张脸的人智商是180
四 我什么都没看
五 弄不清那个女人是那是图里的还是真实的
六 专注那个黑点 就会有发现
七 是十二个人还是十三个人?
八 数数有几个黑点?
九. 看着黑点身体前后移动
十. 是静的还是动的
[img]
......
操作VB中的无边框窗体(2005-10-06 12:39:00)
摘要：操作VB中的无边框窗体
湖南省郴州市苏仙区信用联社(423000) 段岳辉
在VB中，BorderStyle属性为0的窗体没有边框，并且也没有与边框相关的元素。这种窗体具有简洁、占用空间少等优点，用它可以设计出某些富有个性的窗体。但是，由于它没有标题栏，窗体不能移动，同时也不能改变大小，在某些情况下会给使用者造成一定的麻烦。本文介绍在VB中如何用API函数操作无边框窗体。
移动窗体
新建一标准工程，设置Form1的BorderStyle属性为0。此时运行程序后，无法移动窗体。为能移动窗体，在Form1的代码窗口声明下列函数和常数：
Option Explicit
Private Declare Function ReleaseCapture Lib “user32” () As Long
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = ＆H112
Const SC_MOVE = ＆HF012
在Form_MouseDown事件中输入以下代码：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'按下鼠标左键
If Button = vbLeftButton Then
'为当前的应用程序释放鼠标捕获
ReleaseCapture
'移动窗体
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
End If
End Sub
注意：此时窗体上不能放置除Shape控件以外的任何控件，否则，在被控件遮住的......
VB中控件大小随窗体大小变(2005-10-06 12:38:00)
摘要：有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。
在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：
Private Sub Form_Resize()
Dim H, i As Integer
On Error Resume Next
Resize_ALL Me 'Me是窗体名，Form1,Form2等等都可以
End Sub
在模块中添加以下代码：
Public Type ctrObj
Name As String
Index As Long
Parrent As String
Top As Long
Left As Long
Height As Long
Width As Long
ScaleHeight As Long
ScaleWidth As Long
End Type
Private FormRecord() As ctrObj
Private ControlRecord() As ctrObj
Private bRunning As Boolean
Private MaxForm As Long
Private MaxControl As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReleaseCapture Lib "USER32" () As Lo......
在Visual Basic 6.0 中创建Word文档(2005-10-05 21:48:00)
摘要：在Visual Basic 6.0 中创建Word文档
作者： 寻大勇
出处： 计算机与信息技术
责任编辑： 方舟
[ 2004-12-22 10:43 ]
摘要：分析了Word对象模型的结构，特别是Document对象及其使用方法，提出了在Visual Basic中创建Word格式文档的方法，并给出了该方法的应用实例。
关键词：Visual Basic，Word对象模型，文档
引言
Word文档是实际工作学习中最为常用的文档格式之一。
随着社会信息化程度的提高，一些传统的由人工完成工作逐渐转向由计算机来处理。计算机自动组卷系统便是一个典型的例子。为了追求更高的效率，一些计算机自动组卷系统的单位用户要求由软件输出Word格式的试卷不需排版直接供印刷使用。
由于Microsoft Office套件的普及，Word文档、电子表格文档、电子幻灯片等文档日渐常用。虽然在Office中各个程序的文档可以方便地转换，但是这种转换是以失去文档原本的格式为代价的。例如，在自动组卷系统中，存储在Access数据库中的试卷可以通过Access提供的导出功能产生Word文档，但产生的文档是无格式的，需花费大量时间重新排版方可符合用户在试卷格式上的要求。
针对这一问题，本文讨论通过研究Word对象模型，提出使用该对象模型创建符合用户所要求的特定格式的Word文档的方法。
Word对象模型
1、Word对象模型层次结构
对象是 Visual Basic的基石，几乎在 Visual Basic 中的每个操作都与修改对象有关。Word 的任何元素（如文档、表格、段落、域、书签等）都可以用 Visual Basic 中的对象来代表。
对象代表一个 Word 的元素，如文档、段落、书签或单个的字符。集合也是一个对象，该对象包含其他数个对象，通常这些对象属于相同的类型，例如，一个集合对象中可包含文档中的所有书签对象。通过使用属性和方法，可以修改单个的对象，也可修改整个的对象集合。
Microsoft Word Visual Basic提供一套完整的Wo......