博文
Visual Basic 属性、方法和事件三 (2005-12-10 14:25:00)
摘要：
Visual Basic 属性、方法和事件三
作者：佚名 文章来源：不详 点击数：
8 更新时间：2005-11-26
-
为用户提供选择的控件
大多数应用程序需要向用户提供选择，如简单的“Yes/No”选项、或者从包含成百个可能性的列表中进行选择。Visual Basic 包含几种用于提供选择的标准控件。下列表格总结了这些控件及其用途。
用 CheckBox 选择单个选项
CheckBox 表明一个特定的状态是选定 (on) 还是清除 (off)。在应用程序中使用 CheckBox 为用户提供了“True/False”或“yes/no”的选择。因为CheckBox 彼此独立工作，所以用户可以同时选择任意多个 CheckBox。例如，在图 3.9 中，可同时选定粗体和斜体。
CheckBox 应用程序
这个例子使用一个 CheckBox 来决定文本用普通字体还是用斜体字显示。关于此例的工作版本,请参阅应用程序示例 Controls.vbp 中的 Check.frm。如图 3.10 所示，此应用程序有一个 TextBox，一个 Label，一个CommandButton 和两个 CheckBox。
下表列出了应用程序中的对象的属性设置。
选定粗体或斜体时，CheckBox 的 Value 属性值设置为 1 ，不选定时为 0。缺省 Value 值为 0，所以除非改变 Value 属性值，否则第一次显示时不会选定 CheckBox。可以用常量 vbChecked 和 vbUnchecked 表示数值 1 和0。
check box 应用程序中的事件
当单击 CheckBox 时，会发生 CheckBox 的 Click 事件。此事件过程测试是否选定 CheckBox（即是否 Value = vbChecked）。如果选定，通过设置 Font对象的 Bold 或 Italic 属性，将文本转换为粗体或斜体；该 Font 对象是由TextBox 的 Font 属性返回的。
Private Sub chkB......
Visual Basic 属性、方法和事件五(2005-12-10 14:23:00)
摘要：
Visual Basic 属性、方法和事件五
作者：佚名 文章来源：不详 点击数：
8 更新时间：2005-11-26
-
Images 应用程序中的事件
Image 应用程序对事件的响应如下：
1.每一个 Image 控件的 Click 事件使 Shape 控件的 Left 属性与它自己的 Left 属性相同，并将图形移到 Image 的顶端。
2.调用 PictureBox 的 Cls 方法清除 StatusBar 的当前标题。
3.调用 PictureBox 的 Print 方法在 StatusBar 上打印新标题。
Image 控件 Click 事件的代码如下：
Private Sub imgHeart_Click()
shpCard.Left = imgClub.LeftpicStatus.Cls
picStatus.Print "Selected: Club"
shpCard.Visible = True
End Sub
注意，Click 事件代码中第一行利用 = 操作符为 Shape 控件的 Left 属性赋一个值 (让它等于 Image 控件的 Left 属性)。下面两行调用方法，因而不需要操作符。在第三行中，值 ("Selected: Club") 是 Print 方法的一个参数。
该应用代码中还有一行很重要；它在 Form Load 事件中。
shpCard.Visible = False
将 Shape 控件的 Visible 属性设为 False，Shape 控件被隐藏起来直至单击第一幅 Image。
在 Image 控件 Click 事件的最后一步将 Visible 属性设为True。
详细信息 关于属性、方法和事件详细信息，请参阅第五章“编程基础”。
附加控件
Visual Basic 工具箱还包含几个其它的标准控件。有些控件可用来处理外部数据库中的大量数据。有些控件可用来访问 Windows......
Visual Basic 属性、方法和事件四(2005-12-10 14:20:00)
摘要：
Visual Basic 属性、方法和事件四
作者：佚名 文章来源：不详 点击数：
10 更新时间：2005-11-26
使用 ScrollBar 作为输入设备
滚动条通常与 TextBox 或窗口一起使用，但有时也可作输入设备。因为ScrollBar 控件可按比例指示当前位置，所以可以单独使用以控制程序输入，如控制声音音量或调整图片颜色。HScrollBar（水平）和 VScrollBar（垂直）控件是独立的，它有自己的事件、属性和方法集。ScrollBar 控件与附属于TextBox、ListBox、ComboBox 或 MDI 窗体的内部 ScrollBar 不同。（TextBox 和 MDI 窗体具有 ScrollBars 属性，可增加或删除附属于控件的 ScrollBar。）
现在 Windows 界面提示行支持 Slider 控件作为输入设备而不用ScrollBar。关于 Slider 控件的例子，请参阅 Windows 95 的控件面板。VisualBasic 的专业版和企业版中包含一个 Windows 95 风格的 Slider 控件。
详细信息 关于 ScrollBar 控件的详细信息，请参阅第七章“使用 VisualBasic 的标准控件”。
显示图片和图形的控件
因为 Windows 是图形用户界面，所以在应用程序上界面显示图形图像的方法十分重要。Visual Basic 包含四个控件以简化与图形有关的操作，它们是PictureBox 控件、Image 控件、Shape 控件和 Line 控件。
Image、Shape 和 Line 控件有时被称作轻量图形控件。它们需要较少的系统资源，因此比 PictureBox 控件显示得快并且包含 PictureBox 中可用的属性、方法和事件的子集。每一个控件都适用于一个特定的目的。
使用 PictureBox 控件
PictureBox 控件的主要作用是为用户显示图片。实际显示图片由 Picture 属性决定。Picture 属性包括被显示的图片的文件名（及可选的路径名）。
注意 窗体对象也具有 Pictur......
11个笑话领悟人生 (2005-12-08 21:18:00)
摘要：11个笑话领悟人生
作者:llf111 发布于 子陵论坛 http://www.ziling.com
父子二人看到一辆十分豪华的进口轿车。儿子不屑地对他的父亲说：“坐这种车的人，肚子里一定没有学问！”父亲则轻描淡写地回答：“说这种话的人，口袋里一定没有钱！”
――你对事情的看法，是不是也反映出你内心真正的态度？
晚饭后，母亲和女儿一块儿洗碗盘，父亲和儿子在客厅看电视。突然，厨房里传来打破盘子的响声，然后一片沉寂。儿子望着他父亲，说道：“一定是妈妈打破的。”“你怎么知道？”“她没有骂人。”
――我们习惯以不同的标准来看人看己，以致往往是责人以严，待己以宽。
有两个台湾观光团到日本伊豆半岛旅游，路况很坏，到处都是坑洞。一位导游连声说路面简直像麻子一样。而另一个导游却诗意盎然地对游客说：“我们现在走的正是赫赫有名的伊豆迷人酒窝大道。”
――虽是同样的情况，然而不同的意念，就会产生不同的态度。思想是何等奇妙的事，如何去想，决定权在你。
同样是小学三年级的学生，他们将来的志愿同是当小丑。中国老师斥之为：“胸无大志，孺子不可教也！”外国老师则会说：“愿你把欢笑带给全世界！”
――身为长辈的我们，不但要求多于鼓励，更以狭窄界定了成功的定义。
妻子正在厨房炒菜。丈夫在她旁边一直唠叨不停：“慢些、小心！火太大了。赶快把鱼翻过来、油放太多了！”妻子脱口而出：“我懂得怎样炒菜。”丈夫平静地答道：“我只是要让你知道，我在开车时，你在旁边喋喋不休，我的感觉如何……”
――学会体谅他人并不困难，只要你愿意认真地站在对方的角度和立场看问题。
一辆载满乘客的公共汽车沿着下坡路快速前进着，有一个人在后面紧紧追赶着这辆车子。一个乘客从车窗中伸出头来对追车子的人说：“老兄！算啦，你追不上的！”“我必须追上它，”这人气喘吁吁地说：“我是这辆车的司机！”
――有些人必须非常认真努力，因为不这样的话，后果就十分悲惨了！然而也正因为必须全力以赴，潜在的本能和不为人知的特质终将充分展现出......
致东方缺嘴、西方烂舌的公开信 (2005-12-08 20:55:00)
摘要：致东方缺嘴、西方烂舌的公开信
［请同胞耐心一阅］
拙笔∶ 苍蝇拍子
【 一 】 引子
■■面对互联网络上一片反华反共污蔑不实之词，面对不少国人的不满、忧虑与哀叹，欣慰的是也确有众多爱国志士奋起反驳，斯杀较量。本人自知与烙铁万用表为伴居多，写文章自然不怎么样，但面对此情此势，我还是不得不说，不得不写，以尽绵薄之力。
【 二 】教父与黄鼠狼
■■随着我们国家的经济对外开放，与外界的接触多了起来，且言论已相当自由，西方的思想意识也开始和我们原来.那一套发生交融，经济上西方的繁荣与富有相形之下我们的单调与落后，因而从经济面延申到政治面，他们那边以教父身份自居，尤如救世主一般。这边政治.呼声日甚，感觉我们国家一民//主就灵，一.就富强，把民//主与富强生搬硬套划上等号，成为定论和公式。却忘了亚洲实行民//主制的印度、菲律宾、印度尼西亚，以及世界上绝大部分国家不怎么灵验，而实行强权的台湾地区却富了起来；铁腕治理下的马来西亚富了起来；没有民//主可言的香港富了起来；家天下的新加坡富了起来；独裁下的南韩为日后的富了起来打下了坚实的基础。（当然，我决不是说强权国家就等同富有，因各国国情不尽相同。倒看见台湾一实行竞选执政，经济便"昂首挺胸"----走下坡路去了） 他们由君主制到富强、再掠夺到发展至今日却避而不谈，而美国是一个特例，在发现美国这块新大陆之际，正是欧洲工业高速发展需要扩张之时、众多欧洲富人带着技术、资本来到处女地开发他们的梦想，而此时许多贫困国家因种种原因外迁谋生的民众正好成为他们廉价的劳工，是财富进一步积累的动因。一部美国华工史是浸透血泪的移民史，可那血淋淋一幕却早以淹没在富人歌舞升平之中，一个弱肉强食的社会！富人的社会！强者恒强的社会！美利坚合众国从建国开始，因周边弱小，几百年无大战，加之国土富饶而面积之广袤，第一次世界大战基本没占边，笫二次世界大战在欧亚，仅损失一航空舰队却大发其财，更有众多德国精英掠到美国，高薪以待，从此霸主初现，用无线电学术语言叫"再生正反馈"。世界怪兽诞生。
悲哀！医护人员 (2005-12-08 20:47:00)
摘要：悲哀！医护人员
作者:goodman6 发布于 子陵论坛 http://www.ziling.com 近日央视连篇累牍暴哈医大二院之光，标题即耸人听闻：住院67天花了550万，哈医大二院创收费记录？!!还特意说明：病人瓮某因病住进哈尔滨医科大二附院 ，67天花了550万,创世界记录，全国震惊了!如此，媒体再一次吸引了人们的眼球，也再一次将医生推到了医患敌对的风口浪尖上。
可是，用一双雾眼透过这充满煸动的字里行间，我们仍能感觉到有些个事儿不对劲。这550万是医院收的？真是黑啊。哦，原来却不是：其中的400余万是患者自行外购的，这医院就是再黑，手伸得再长，也不能黑到医院外面去哦？世界记录？谈上不吧。医院收费为100余万，比起前些时号称姚二氏的孙明明去美国做小小的垂体瘤手术，仅手术费即为16万美元折合人民币130万也还攀比不上吧？更何况媒体曾图文报道美国一颅内取钉患者花费100万美元，这又折合人民币为多少？
媒体的丑陋啊，一表无遗。百姓被愚弄了呵，还跟着起哄？看不出来？能花500多万元的是什么主儿？有多大的背景？小小医生吃了熊心豹子胆了敢惹这样的主儿？不要命了不是。不是问医院的黑幕吗？有500万的代表什么阶层？嘿，这就是最大的黑幕。难怪就有了这，毫无公正可言充满了煽动性语言与谎言的媒体恶炒哦。话语权何在？呵呵，有的只是百万富翁级人物与媒体串通的自导自演，却吸引了无数无知者的眼球。可悲啊，就这点常识也还不懂。可悲啊，公权力不作为的替罪，无辜的医生，敌对的医患关系......
生老病死是人生的必然规律，不能指望医生在任何情形下都能妙手回春。有再多的钱，终也买不来命。有钱人就一定能看好病？嘿嘿。生命，恰恰是生命，你用再多的钱也不一定能买来：傅彪、高峰、罗文等都是有钱人，却也都因病（不是因为没钱！）没留住英年早逝的脚步。
生命相托，责任重于泰山。可是，生命在一些人的眼中，价值几何？而挽救生命的价值，有如何估量？这在眼下的中国，是无法回答的。正因为如此，才有了眼下的医患关系的如此敌对，才有了对医生护士劳动价值的严重扭曲。而且，若有钱人得的是不治之症，比如说恶性淋巴瘤晚期，嘿嘿，神仙也救不了哦。
知道什么叫多脏......
日成手枪打下美国飞机（朝鲜小学课文，强！）(2005-11-27 19:44:00)
摘要：日成手枪打下美国飞机（朝鲜小学课文，强！）
明朗的朝阳从帘隙映入了洞口，李警卫小心翼翼地拉开了帘子。金日成将军放下了笔，吹灭了汽灯。他看着洞外，笑了笑：“又是一夜过去了。时间过的这么快，不抓紧怎么行啊！”李警卫：“将军，你不要太累了……。”金日成将军笑了笑：“出去走走吧！”
从洞里出去，就看到了山上山下。山上山下都覆盖着白雪，但白雪间，夹杂着烧焦的树木，炸弹的残骸，控诉着美帝国主义的罪恶。山下，英雄的人民军战士们，纷纷从掩体内走出，正在准备又一天的战斗。金日成将军快步向山下走去。战士们看到金日成将军，连忙上来向伟大的领袖问候。金日成将军亲切地慰问战士：“夜里冷不冷？”“不冷！”“大家有信心坚持到取得胜利吗？”“在将军的领导下，我们有万分信心！”
这时，一个通信兵来了：“报告将军，中国同志的志愿军司令彭德怀来了！”金日成将军说：“还不请中国同志过来？”
山洞内，警卫员倒上了茶水。金日成将军亲切地招呼彭德怀司令：“请喝茶。我们现在在战争年代，条件不太好，只能这样款待你了。”
彭德怀司令敬慕地看着金日成将军：“你们在这样恶劣的条件下，还能坚持和美帝国主义战斗，我们很佩服。”
金日成将军：“为了祖国的解放，我们是不惜一切代价和努力的。”
彭德怀司令：“也只有在你的领导下，才有这样强大的力量。”
金日成将军：“别这么说，还有你们的帮助嘛。打击美帝国主义，有什么困难吗？”
彭德怀司令：“困难很多，如果没有先前你们对美军的战斗，我们是没有经验的，也会更加困难。”
金日成将军：“我们的战士都有和美军作战的经验，他们可以直接帮助你们指导。”
正当两人欢声笑语时，洞外，突然响起了警报声。一个战士跑进来：“美军飞机要来了！”周围的人，马上紧张起来。金日成将军把手一挥：“来了就打击他！”
不过一会儿，飞机的呼啸声，炸弹的爆炸声，枪声，就在山岭间回荡交错了。金日成将军拿过一支38式步枪：“我们出去看看吧！”李警卫：“将军，这样太危险了！”彭德怀司令也连忙劝阻。金日成将军笑了，举了举手中的枪：“这支枪就是我从日本人手里缴来的，当时面对面的战斗，总比现在危险吧......
Richtextbox控件中插入jpg格式的图片和数学公式(2005-11-26 19:13:00)
摘要：Richtextbox控件中插入jpg格式的图片和数学公式
编号：QA004508
建立日期: 2001年12月26日 最后修改日期：2002年4月28日
所属类别： Visual Basic - Windows 9x控件
------------------------------------------------------------------------------
操作系统：win98 or win me
编程工具：vb6
问题：我想在richtextbox控件中插入图片，当插入bmp格式时，r......
一段精简的使用ADODB.Stream读写"大字段"的VB代码!(2005-11-26 19:12:00)
摘要：一段精简的使用ADODB.Stream读写"大字段"的VB代码!
'一段精简的读写"大字段"的代码,使用 ADODB.Stream
'Objects: Form1、Picture1
'引用 Microsoft ActiveX Data Objects 2.5 Libary
'或 Microsoft ActiveX Data Objects 2.6 Libary
Dim TempFileName As String
TempFileName = App.Path & "\TempFile.tmp"
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
adoConnection.Open "Provider=Mi......
数据库学习:在数据库中存取文件(2005-11-26 17:21:00)
摘要：
数据库学习:在数据库中存取文件
出处：PConline
[ 2004-04-01 13:27:36 ]
作者： zjcxc/CSDN
责任编辑：linjixiong
marqueesHeight2=18;
stopscroll2=false;
icefable3.scrollTop=0;
with(icefable3){
style.width=0;
style.height=marqueesHeight2;
style.overflowX="visible";
style.overflowY="hidden";
noWrap=true;
onmouseover=new Function("stopscroll2=true");
onmouseout=new Function("stopscroll2=false");
}
preTops=0; currentTops=0; stoptimes=0;
function init_srolltext2(){
icefable4.innerHTML="";
icefable4.innerHTML+=icefable3.innerHTML;
icefable3.innerHTML=icefable4.innerHTML+icefable4.innerHTML;
setInterval("scrollUp2()",50);
}
function scrollUp2(){
if(stopscroll2==true) return;
currentTops+=1;
if(currentTops==19)
{
stoptimes+=1;
currentTops-=1;
if(stoptimes==50)
{
currentTops=0;
stoptimes=0;
}
}
else {
preTops=icefable3.scrollTop;
icefable3.scrollTop+=1;
if(preTops==icefable3.scro......