博文
VB 技巧 - 文本框使用技巧(2005-09-25 07:44:00)
摘要：VB 技巧 - 文本框使用技巧
1、控制文本框中输入的内容
例如我们只要求在文本框中输入数字，而不允许出现其它字符，则我们使用KEYPRESS事件并检查KeyAscii参数即可，KeyAscii参数用来保存键盘所用的ANSI码（不是ASCII码），下面是一个例子：
Private Sub Text_KeyPress(KeyAscii As Integer)
if KeyAscii < Asc("0") Or KeyAscii > Asc("9") then
KeyAscii=0
end if
end sub
2、从外部文本文件读入和从文本框中写出内容到文件内容：
有时我们需要从外部的文本文件中读入到文本框中，或是把输入到文本框中的内容保存到文件中，这时可以通过对文件......
VB 技巧 - 树视TreeView树视的使用技巧(2005-09-25 07:44:00)
摘要：VB 技巧 - 树视TreeView树视的使用技巧
1、为树状浏览器控件添加节点和子节点
用ADD方法添加一个新节点到树状浏览器的NODES集合时，可以声明它是和已存在的节点所联系起来的。通常使用ADD方法，其语法如下：
Nodes.Add(relative,[relationship][,key][,text][,image][,selectedimage])
各个参数的意义如下：
relationship 参数是通过关系节点参数与新节点连接的另一个节点；
relationship 参数可能是以下情况：
tvwlast--1；该节点置于所有其他的在relative中被命名的同一级别的节点的后面
tvwNext--2；该节点置于在relative中被命名节点的后面
tvw......
B 技巧 - VB中如何实现文本查找功能-Instr函数使用技巧(2005-09-25 07:43:00)
摘要：B 技巧 - VB中如何实现文本查找功能-Instr函数使用技巧
谈谈您的看法
已有 0 条发言
VB中如何实现文本查找功能
实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中最先出现的位置。我们先来看一看使用这个函数的语法：
InStr([start, ]string1, string2[, compare])
这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。指定字符串比较。此compare参数是可以省略的，也可以是
0, 1或
2。指定0（缺省）做二进制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在“cd”并返回其位置，则使用下面的语句就可以实现：
pos=InStr(1,"abcdefg","cd")
......
VB 技巧 - 组合框使用技巧(2005-09-25 07:43:00)
摘要：VB 技巧 - 组合框使用技巧
1、组合框的三种形式
组合框是用来显示一个文本框及一个下拉列表的控件，你可能认为只有一种组合框，但其实有三种，可以通过设置组合框的STYLE属性来选择其一，下面是设置组合框的STYLE属性时用的值：
VBCOMBODROPDOWN --0 ：包括一个下拉列表和一个文本框，可以选择也可输入文字；
VBCOMBOSIMPLE --1 ：简单组合框，包括一个文本框和一个不会下拉的列表；
VBCOMBODROPDOWNLIST --2 ：只选组合框。
2、在组合框中添加图象
这需要使用IMAGE组合框ImageCombo和ImageList，我们先在“添加组件”中选中“Ms Common Control
6.0”然后添加ImageCombo和ImageList，并在ImageList中添加图片，然后可以用以下语句为下拉框添加图片。
&nb......
VB 技巧 - 工具栏使用技巧(2005-09-25 07:42:00)
摘要：VB 技巧 - 工具栏使用技巧
1、在工具栏中添加复选（切换）按钮
工具栏中的复选按钮是指当按钮被按下以后就保持被按下的状态，只有下次再按才会弹起来，这就是工具栏的复选切换状态。要实现这样的效果，必须将它的STYLE属性设为tbrCheck，这个设置可以在工具栏的属性页中完成。方法是右击工具栏并选择Properties选项以打开属性页，单击属性页的Buttons选项卡，选择要用的按钮，将它的形式STYLE设为tbrCheck即可。
2、在工具栏中添加组合框和其他控件
通过将按钮的STYLE属性设为tbrPlaceholder在工具栏中设置空间，可以将组合框和其他控件添加到工具栏中，我们以组合框为例来看看具体步骤：
1）右击工具栏并选择Properties选项打开属性页，单击属性页的Buttons选项卡；
2）在要添加组合框的地方添加一个新的按钮；
3）把新按钮的STYLE属性设为tbrPlaceholder，这样按钮不会显现出来，而只是一......
文本框控件的消息及应用 (2005-09-25 07:40:00)
摘要：文本框控件的消息及应用
文本(或文字)控件是“文本框控件”的简称,它通常用于输入和编辑文字。它属于标准Windows编辑控件的一个子类,所以它支持所有编辑控件消息。这儿讲述的技术也适用于由其他厂商设计的,以Windows编辑控件类为基础的其他控件。
本文将介绍文本控件的消息,这些消息显著扩展了控件本身的能力,使我们在程序中能够更灵活的控制控件,不必只仅仅依赖于Visual
Basic所提供的属性或事件,这些消息在进行子类处理中很有用处。下面先介绍控件的消息,然后介绍它们的一些应用。
下表列出了文本控件的常用通知消息:
消息名称 消息说明
EN_CHANGE 编辑控件的内容一旦发生改变，就发送这条消息。
EN_ERRSPACE 任何时候只要由于内存不足以完成一项编辑操作，就发送这条消息。
EN_HSCROLL
只要用......
VB编程的必备技巧(2005-09-25 07:39:00)
摘要：VB编程的必备技巧
2000-08-31 14:51:03
对编程者来说，VB很容易上手，但要深入、灵活地驾驭它还要下一番功夫。笔者在这里介绍几个较为典型的编程技巧，希望能对广大VB爱好者有所帮助。
一.怎样创建自定义的光标
当在设计一个应用程序时，Visual
Basic允许程序员将许多控件的MousePointer属性设计成12个预先定义好的鼠标光标之一。然而，有些程序员或许会希望显示一个预定义形状之外的光标。本文说明如何创建一个不同的鼠标指针（光标），包括为一个没有MousePointer属性的控件创建光标。
要在Visual
Basic应用程序中将光标(鼠标指针)改变成个不同的形状，可以添加代码来改变希望监视的控件的MouseMove和DragOver事件。
MouseMove事件所包含的代码用于触发该控件的Drag方法。当鼠标在被选中的控件上移动的时候，轮流显示新的鼠标指针。
当鼠标......
自动改变控件大小(2005-09-25 07:38:00)
摘要：
首页 教学区 技术资料区 留言 技术讨论 我要投稿
--趣味程序源码注解--自动改变控件大小--
由于我们设计窗体时，安排的各个控件的大小和位置是固定的，如果在程序运行过程中窗体大小发生了变化，就会造成控件大小与窗体大小不成比例。怎样简单快捷的解决这个问题呢？本例给出了一个不错的方法。
为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：
'--------------------------------------
' 自 动 改 变 控 件 大 小
'--------------------------------------
' 洪恩在线 求知无限
'--------------------------------------
'本例实现一个控件大小随窗体大小改变而自动改变的文本编辑器
'------名称-------------作用------------
' Form1 主窗体
' CmdOpen 通用对话框
' RichTextBox1 RichTextBox
' mnuNew “新建”菜单项
' mnuOpen “打开”菜单项
' mnuSave “保存”菜单项
' mnuExit “退出”菜单项
' mnuFont “字体”菜单项
' mnuPrint “打印”菜单项
' mnuFind “查找”菜单项
' mnuNext “查找下一个”菜单项
'------变量-------------作用-------------
' sFind 待查找的字符串
'---------------------------------------
Option Explicit
Private FormOldWidth As Long......
据说世上最经典的15句话(2005-09-25 07:35:00)
摘要：据说世上最经据说世上最经典的15句话
发表：2004-10-9 14:34:07 出处：你的博客网(yourblog.org)
1.记住该记住的，忘记该忘记的。改变能改变的，接受不能改变的
2.能冲刷一切的除了眼泪，就是时间，以时间来推移感情，时间越长，冲突越淡，仿佛不断稀释的茶
3.怨言是上天得至人类最大的供物，也是人类祷告中最真诚的部分
4.智慧的代价是矛盾。这是人生对人生观开的玩笑。
5.世上的姑娘总以为自己是骄傲的公主(除了少数极丑和少数极聪明的姑娘例外)
6.如果敌人让你生气，那说明你还没有胜他的把握
7.如果朋友让你生气，那说明你仍然在意他的友情
8.令狐冲说“有些事情本身我们无法控制，只好控制自己。”
&n......
医院笑话精选(2005-09-25 07:23:00)
摘要：
医院笑话精选
1.
有位患者到医院求诊，医生问：“你哪里不舒服了？”
患者答：“我昨晚做了个梦，梦见自己是头牛在吃草。”
医生便说：“你放心，这很正常，每个人也会梦到，梦境和现实是不一样的。”
只见那位患者很紧张地说：“可是，可是我起床时发现我床上的草席不见了一半！”
2.
外科、内科、精神科医生同去猎野鸭。
一只野鸭飞过，内科医生举枪瞄准，但没发射，外科医生惊问：“为何不开枪？”
内科医生道：“你怎能确定那是野鸭？也许是另一种鸟！”
另一只野鸭飞过，精神科医生举枪瞄准，可是也没有发射。外科医生问：“怎么回事？”
精神科医生问道：“野鸭知道自己是野鸭吗？”
另一只野鸭飞过，外科医生从精神科医生手中抢过枪来开了一枪，内科和精神科医生问道：“你肯定那是野鸭吗？”
外科医生笑道：“回去解剖就知道了！”
3.
张三的胃病相当严重，必须动手术切除，于是他请城里最好的医师为他动了手术。当麻醉的药性过了后，医师前来巡房检查，殷勤地问他：“你觉得怎么样？”
张三不解地说：“肚子还好，可是喉咙却很痛，这是什么毛病？”
医师得意地回答：“你先别紧张。我告诉你，当我为你动手术时，碰巧全省各大医学院的高才生前来观摩，你知道这项手术十分麻烦，但是我却很仔细地完成它，手都没有发抖，所以，这次的手术可说是十全十美。当我做好缝合手术时，全场掌声如雷，大家都叫‘再来一个’，所以我只好将你的扁桃腺也割了。”
4.
有位父亲带着小女儿到医院拔牙，回家途中问她牙齿还疼不疼？
女儿答：“我不知道啊！牙齿留在牙医师那儿。”
5.
牙科医生约翰每次给病人动手术前总要同他们谈一会儿话，尽可能解除他们的紧张感。有一次他同一位当警察的病人谈了几句后，便问他是否有什么问题。“我只有一个问题，”警察不安地说，“我从没给过你罚款单吧，是不是？”
6.
有一个牙科医生，第一次给病人拨牙，非常紧张。他刚把臼齿拨下来，不料手一抖，没有夹住，于是，牙齿掉进了病人的喉咙。“非常抱歉。”......