2005年12月_xinbin1122

原创进入股市，心，一定要平

进入股市，心，一定要平，心态要宁静。就是要拿出平常心来对待，不要借人家的，也不要透支，不要一夜之间就想成为百万富翁，标准打得低一点，只要有银行利息的收益就行了，这样就会活得轻松，活得自在，把风险化到最小最小。要不，进入股海，就活像进入了苦海，而且苦海无边，抬手动脚都苦不堪言！为什么这样说呢？套牢就别说了，哪怕只套几毛，就像马上要破产的样子，吃不下睡不着；涨了呢，只恨自己买得少了，一心想补进，结果总

2005-12-30 11:35:00 1224 1

原创股票初识

股票赚少赔多，盲从于大多数人必定是赔的。与大多数人做的相反，则赚的可能性就非常大。股民的钱都让大户赚走了。不要频繁交易，光手续费就一大笔了。投资买进，投机卖出。多读书，掌握事物的本质。股票的本质并不是让人炒的。然而炒的本质又是什么呢？每年最多拿出一个月的钱来炒。其他的钱用别的方式投资。清醒的时候指定策略，不清醒的时候千万不要乱来。80%为了探究事物的本质，20%为了赚钱。

2005-12-28 15:41:00 1123

原创 VB画线的算法，画虚线，可订制的不同宽度的。可读性有点差

Public Function DrawLine(ByRef picGraph As PictureBox, ByVal sngWidth As Single, _ ByVal lngColor As Long, ByVal sngLineFromX As Single, _ ByVal sngLine

2005-12-22 17:11:00 5100 1

原创开始我的创业之旅吧

充分发挥我的特长，充分享受我的爱好，就像HP或者其他很强的公司的创始人一样。充分高效的利用我的时间，享受我的时间。沉迷于技术，投资，爱情和运动。去改进那些我想要改进的东西，去记下我的创新的新思想，努力的去实现他们。不要再无所事事，如果对目前工作中的某些东西不感兴趣，就迅速地把他们完成。去享受创业中的挫折吧，让这一切都成为我美好的回忆。

2005-12-21 17:29:00 952

原创 How to use VB6.0's Event.

Creat a new class named Class1, its codes like this:Public Event MyEvent()Public Sub RaiseTheEvent() some other codes here RaiseEvent MyEvent End SubCreate a new form, draw a command on it

2005-12-21 15:23:00 977

原创 Msn英语水平测试

祝贺您完成了此水平测试。只限上海及北京居民的特别优惠和我们的语言学习顾问现场交流了解现在就能提高你英语水平的方法！此服务对第一次参加测试者是免费的。姓名电话号码提交您的测试报告重新测试您的级别：中级(41在 60) 有对熟悉的话题有充分的了解，并能掌握与人交谈的基本技巧。你可以使用适当的短语并写英语信件。语法75%您在40个正确答案中答对了30，高于平均水平。听力70%

2005-12-21 10:27:00 1395

原创转：中国经济总量升至世界第六

新华网北京１２月２０日电（记者刘铮、张旭东、姚润丰）国家统计局局长李德水２０日说，经济普查后，我国２００４年ＧＤＰ总量从世界第七位上升到世界第六位。　中国经济总量在世界的排位成为国务院新闻办公室新闻发布会上记者的第一个问题。　李德水回答说，我国ＧＤＰ换算成美元，早在２０００年到２００２年就超过了意大利，位居世界第六；从２００３年到２００４年，只是由于欧元升值，意大利又超过了中国。利

2005-12-21 10:26:00 1776 1

原创惠普西永微电子工业园

重庆西永微电子工业园重庆西永微电子工业园在沙坪坝陈家桥镇杨家湾。西永微电子工业园建成后，将成为我市主城区西部新城的重要功能板块和中国西部的微电子产业、软件和IC设计基地。西永微电子工业园的产业定位，是以IC制造为核心，与重庆大学城互动互进，打造现代信息产业集群。工业园由微电子产业区、软件设计研发区、配套服务区组成，紧邻重庆大学城，交通畅通快捷，目前已签约项目6个，总投资达20多亿美元。西永微电子工

2005-12-20 14:51:00 5181

原创 vb6.0 CLng,CInt等的bug及其解决办法

vb6.0有如下bug:clng(6.5)=6clng(5.5)=6解决方法：使用format方法dim dblValue as doubledblValue=6.5clng(format(dblValue,"#")CInt可以用同样的方法解决。

2005-12-16 13:19:00 4507

原创在picturebox上画一条线，然后在线上写字，把文字对应的线删掉

‘画一条线 Me.Picture1.DrawStyle = 0 Me.Picture1.Line (0, 0)-(10000, 10000) Me.Picture1.DrawStyle = 3 Me.Picture1.Line (0, 0)-(10000, 20000) Me.Picture1.DrawStyle = 2 Me.Picture1.Line (0,

2005-12-12 17:45:00 2994

原创 6.0 在picturebox上画虚线等不同类型的线

Me.Picture1.DrawStyle = 4‘虚线 Me.Picture1.Line (0, 0)-(10000, 10000) Me.Picture1.DrawStyle = 3 Me.Picture1.Line (0, 0)-(10000, 20000) Me.Picture1.DrawStyle = 2 Me.Picture1.Line (0, 0

2005-12-12 17:05:00 4604

原创 vb6.0带参数（索引）的属性的写法

建一个新的类模块‘定义私有数组变量Private intAges(3) As IntegerPublic Property Get Age(Index As Integer) As Integer Age = intAges(Index)End PropertyPublic Property Let Age(Index As Integer, ByVal vNewValue As Integ

2005-12-12 14:25:00 2673

新滨的专栏