Visual Basic开发实战1200例（第Ⅰ卷）

第1篇编程基础篇
第1章初识VisualBasic
1.1VisualBasic6.0的环境配置
实例001启动VB
实例002设置工程属性
实例003定制工具栏
实例004窗体的布局
实例005对齐控件
实例006在工程中查找文本
实例007定制编程环境
1.2VB应用程序的开发步骤
实例008创建或打开新工程
实例009建立并设计用户界面
实例010添加程序代码
实例011运行调试程序
实例012保存程序并生成可执行文件
1.3控件注册和对象引用
实例013添加ActiveX控件
实例014引用对象
实例015添加第三方控件
实例016加载和使用API阅览器
实例017定制模板库
1.4趣味程序
实例018神秘的心理测试
第2章语言基础
2.1变量和常量
实例019局部变量制作计数器
实例020使用公用变量记录当前登录用户
实例021使用自定义常量计算圆的面积
2.2运算符与表达式
实例022计算加权平均值
实例023金额大小写转换
2.3常用的函数与语句
实例024大小写转换
实例025程序立即退出
实例026数字与字符串的转换
实例027文本字数统计
实例028一封家书
2.4条件语句
实例029使用If语句判断成绩优良
实例030大了小了猜想
实例031判断输入的是字母还是数字
实例032使用SelectCase语句判断成绩优良
实例033制作简单计算器
实例034测试十二生肖运势
2.5循环与跳转语句
实例035防止无限循环
实例0360到100的累加
实例037谁最大，谁最小
实例038漂亮的星星
实例039完数判断
2.6对象与数据结构
实例040将文本控件加入到集合中
实例041创建包括12个月份的枚举类型
实例042利用Object变量传递参数
实例043有效使用Me关键字
实例044利用CallByName函数对对象进行操作
实例045打印住宿登记
第3章数组与指针
3.1数组的引用与算法
实例046如何获取数组上限和下限
实例047如何在数组中插入数组元素
实例048如何删除数组元素
实例049利用数组实现矩阵转换
实例050对数组进行二分查找
3.2数组的应用
实例051利用数组统计文字段落数
实例052利用数组随机抽取幸运观众
实例053利用二维数组向MSFlexGrid表格添加数据
实例054利用数组设置MSFlexGrid的表头和列宽
实例055幼儿识字卡片
实例056VisualBasic内嵌汇编语言
实例057在VisualBasic6.0中实现栈
3.3控件数组
实例058动态添加或删除控件
实例059利用控件数组录入数据
实例060利用控件数组设置控件状态
实例061如何声明控件变量数组
3.4指针地址获取
实例062如何获取对象实例私有域的地址
实例063获取字符串第一个字的地址
实例064获取变量的地址
实例065获取数组的地址
实例066获取自定义过程地址
3.5地址调用
实例067传递对象指针
实例068传递字符串指针
实例069传递变量指针
实例070利用地址偏移访问内存
3.6指针综合应用
实例071利用安全数组借用内存的方法
实例072利用指针实现数组的插入
实例073利用指针实现数组的拆分
实例074利用指针过滤数组重复数据
实例075使用Split函数分隔明日公司网址
第4章程序常用算法
4.1计算类算法
实例076最大公约数和最小公倍数
实例077杨辉三角
实例078输出100以内的素数
实例079哥德巴赫猜想
实例080查找最大值和最小值
实例081百钱百鸡——穷举法
实例082十进制转换为其他进制
实例083使用迭代法求某数平方根
实例084小管家房贷计算器
实例085个人所得税计算器
4.2判断类算法
实例086判断闰年
实例087判断身份证是否合法
实例088判断城市电话区号是否正确
4.3排序类算法
实例089直接插入排序算法
实例090希尔排序算法
实例091选择排序算法
实例092起泡排序算法
实例093快速排序算法
实例094归并排序算法
4.4查找算法
实例095顺序查找
实例096二分法查找
实例097分块查找
实例098哈希查找
4.5字符处理应用
实例099简单的加密解密算法
实例100字符串处理
4.6游戏算法
实例101星座查询
实例102贪吃蛇
实例103猜数字
实例104五子棋对战
4.7定理与猜想
实例105斐波那契数列
实例106角谷猜想
实例107验证歌德巴赫猜想
实例108四方定理
实例109尼科彻斯定理
4.8逻辑推理与生活中的数学
实例110魔术师的秘密
实例111婚礼上的谎言
实例112谁讲了真话
实例113黑纸与白纸
实例114巧分苹果
实例115老王卖瓜——卖西瓜
实例116三天打鱼——打渔晒网问题
实例117细水长流——水池注水问题
实例118分我杯羹——分鱼问题
实例119平分秋色——递归解分鱼问题
实例120会逢其适——求车运行速度
实例121进退失据——一圈人逢三退一
第5章字符串及字符串处理技术
5.1字符串转换
实例122字母与ASCII码的相互转换
实例123汉字区位码与汉字的相互转化
实例124数字与字符串的相互转换
5.2字符串查找与判断比较
实例125在字符串中查找指定字符
实例126在字符串中提取部分字符
实例127利用IsNumeric函数判断是否为数字
实例128统计某个字符在一个字符串变量中的出现次数
实例129判断字符串中某一字符是否大写
实例130判断字符串是否为日期或时间
实例131判断获得字符串中大写字符的个数
实例132巧截字符串的数字
实例133计算字符串中子字符串出现的次数
实例134判断某一字符是否在字符串中
5.3字符串处理
实例135在字符串中用一子串替换另一子串
实例136如何将一行字符串分成一列字符
实例137根据标点符号分行
实例138去掉字符串中所有空格
实例139去除字符串尾空格
5.4字符串位置与长度
实例140获得中英文混合字符串的字节长度
实例141获得某个字符在一个字符串中最后出现的位置
实例142获得字符串中指定后几位字符
5.5综合应用
实例143从字符串中分离文件路径、文件名及其扩展名
实例144进行文本加密与解密
实例145对字符串进行加、减、乘、除计算
实例146统计字符个数
实例147实现字节数组和字符串的相互转换
实例148用VB分离出文本框的单词
第6章过程与函数
6.1自定义过程
实例149过程值传递参数
实例150过程引用传递参数
实例151不借助第3个变量实现两个变量互换
实例152计算加权平均值
实例153检查参数是否成功传递给用户自定义过程
实例154使用递归过程实现阶乘运算
6.2综合应用
实例155制作改变窗体颜色的自定义过程
实例156利用错误号获取错误名称
实例157将汉字转换为Unicode字符代码
实例158获取在已打开文件中的读写位置
实例159判断变量是否被初始化
实例160获取文件创建或修改日期
实例161自定义错误号
实例162获取当前打开窗口数量
实例163随机获取姓名
实例164防止连续出现多个空格
实例165给程序添加运行参数
实例166获取汉字拼音简码
实例167随机抽取字符串
实例168自定义延时函数
6.3内置函数
实例169快速查找或替换文本中的字符
实例170将金额格式化为包含6位小数的格式
实例171将日期格式化为指定格式
实例172判断月份最后一天
实例173获得Windows系统已经运行的时间
实例174获取当前日期与指定日期的绝对值
实例175使用Shell函数打开记事本
实例176获取系统环境信息
实例177掷骰子
实例178倒计时程序
实例179数字时钟
实例180文本加密与解密
实例181我的计算器
实例182幸运抽奖
实例183自制闹钟
实例184利用Command函数显示图片
实例185石头剪子布
实例186七星彩摇奖机
6.4日期函数专栏
实例187将AM/PM格式时间转换为普通格式时间
实例188将年、月、日转换为日期
实例189将时、分、秒转换为时间
实例190获取星期名称
实例191获取月份名称
实例192创建日历
实例193做成一个有时间限制的测试版
实例194判断经历多少个工作日
实例195实现系统分段报时
实例196利用timeGetTime函数更精准地计算时间差
实例197使用DateAdd函数向日期型数据加值
第7章数据处理技术
7.1非法输入控制
实例198只允许输入数字
实例199只允许输入汉字
实例200只允许输入特殊字符
实例201禁止输入非法字符
实例202数据保存前检查数据是否正确
7.2数据格式转换
实例203生成“000”格式的编码
实例204将数字格式化为金额
实例205将小写数字金额格式化为大写金额
实例206根据字段类型自动格式化DataGrid表格中的数据
7.3数据辅助录入
实例207利用组合框辅助录入数据
实例208利用DataGrid控件辅助录入数据
实例209利用数据窗口辅助录入数据
实例210在DataGrid表格中实现下拉列表框
7.4编号、单据号生成
实例211自动生成产品编号
实例212批量生成房屋编号
实例213根据编码规格自动生成各种单据号
7.5辅助与自动化
实例214根据用户输入需求自动调整输入法
实例215输入的数据自动加入输入列表
实例216设计带记忆的数据录入窗口
实例217根据用户输入英语还是汉语决定显示内容
7.6数据的输入控制
实例218禁止录入重复数据
实例219只允许在指定的列表框中选择输入
实例220禁止用户输入数据
实例221化繁为简——拼音简码查询
实例222汉字和区位码互转
实例223通过程序设置系统日期和时间的格式
实例224进制转换
第2篇窗体技术篇
第8章窗体设计
8.1窗体基本应用
实例225制作登录退出窗体
实例226利用Tag属性存储用户名
实例227控件随窗体自动调整
实例228随机更换主界面背景
实例229背景为渐变色的主界面
实例230控制其他程序成为自己程序的子窗体
实例231获取窗体分辨率
实例232获取当前打开窗口数量
实例233限制调整窗口大小的最大值
实例234整个窗体铺满图片
8.2主界面应用实例
实例235类似超级兔子的程序界面
实例236类似瑞星的导航主界面
实例237类似WindowsXP的程序界面
实例238Outlook式主界面
实例239可以用鼠标切分的窗体
8.3窗体位置应用实例
实例240设置窗口在屏幕中的位置
实例241保存用户对窗体大小的更改
实例242将自己的程序永远置前
实例243随桌面分辨率变化的程序界面
实例244磁性窗体
8.4窗体标题栏应用实例
实例245闪烁的窗体标题栏
实例246拖动没有标题栏的窗体
实例247禁用窗体最大化、最小化或关闭快捷菜单
实例248使窗体标题栏不响应鼠标双击
实例249程序运行时隐藏标题栏
8.5窗体形状应用实例
实例250椭圆形窗体界面
实例251钻石形窗体
实例252创建透明窗体
实例253设置窗体透明度
实例254创建字型窗体
实例255创建T型窗体
8.6MDI窗体应用
实例256设计多文档界面
实例257MDI窗体图片自适应
实例258禁用MDI窗体控制栏中“最大化”按钮
实例259禁止调整MDI窗体大小
8.7实用功能窗体设计
实例260欢迎窗体
实例261调用API函数设计关于窗体
实例262屏幕滚动字幕
实例263窗体抖动
实例264显示Windows搜索窗口
实例265使用InputBox创建密码输入框
实例266使用API函数显示颜色对话框
第9章菜单应用技术
9.1标准菜单应用
实例267为菜单添加访问键和快捷键
实例268给菜单添加分割线
实例269制作复选菜单
实例270创建级联菜单
实例271可收缩展开的菜单
实例272动态创建菜单
9.2制作个性化菜单
实例273制作多语言菜单
实例274改变菜单的颜色
实例275创建菜单单选项
实例276向系统菜单中添加自定义菜单
实例277创建带历史信息的菜单
实例278创建分栏式菜单
实例279创建弹出式菜单
实例280控件上的弹出式菜单
实例281创建带图标的菜单
实例282为无标题栏窗体添加菜单
实例283创建个性化弹出式菜单
9.3高级菜单应用
实例284调用系统菜单
实例285调用其他应用程序的菜单
实例286创建右键菜单用于粘贴
实例287制作带菜单的记事本
实例288根据表中数据动态生成菜单
实例289通过菜单控制操作权限
实例290菜单复制器
实例291菜单提取器
9.4导航菜单应用实例
实例292图形导航按钮
实例293树状导航菜单
实例294类似QQ式导航菜单
实例295将程序图标添加到托盘中
第10章工具栏与状态栏
10.1工具栏应用
实例296利用ToolBar控件创建简单的工具栏
实例297带图标的工具栏
实例298IE式工具栏
实例299带提示功能的工具栏
实例300为工具栏添加事件处理代码
实例301带下拉菜单的工具栏
实例302可调整按钮位置的工具栏
实例303浮动工具栏
实例304根据表中数据动态生成工具栏
实例305利用CoolBar控件制作工具栏
实例306自己制作工具栏
10.2状态栏应用
实例307显示系统时间的状态栏
实例308显示当前用户的状态栏
实例309时间显示到秒的状态栏
实例310在状态栏中显示鼠标位置
实例311在状态栏中显示当前状态
实例312在状态栏中显示数据库属性
实例313动态添加状态栏窗格
实例314自己制作状态栏
第3篇控件应用篇
第11章标准控件应用
11.1标签文本框典型实例
实例315按设定值使标签自动换行
实例316使用标签控件模拟按钮动作
实例317限制文本框输入字符数
实例318限制文本框只能输入数字
实例319自动删除文本中的非法字符
实例320格式化文本为指定格式
实例321限定文本框只允许输入日期型数据
实例322为文本框设置新的系统菜单
实例323文本框只能输入小写字母
实例324为文本框添加列表选择框
实例325使两个文本框的内容同步
实例326在文本框光标处插入文字
实例327文本框获得焦点自动全选
实例328自定义文本框插入符
实例329获取文本框内文本行数
实例330文本框实现撤销功能
11.2列表框、组合框控件应用
实例331向列表框控件添加数据
实例332利用ListBox控件实现标签式的数据选择
实例333删除列表框中的复选数据
实例334快速选中ListBox中的全部条目
实例335列表中拒绝添加重复信息
实例336移动列表中项目到另一个列表
实例337将数据库中的数据表添加到列表中
实例338将表中数据添加到ListBox列表
实例339带水平滚动条的ListBox控件
实例340在列表框数据中随机抽取数据
实例341防止将重复项目添加到组合框控件中
实例342实现ComboBox条目快速查询
实例343将数据表中的字段添加到ComboBox控件
实例344自动改变ComboBox下拉列表的长度
实例345改变ComboBox控件下拉列表的宽度
实例346将ComboBox控件放到ToolBar控件上
11.3按钮选择类控件
实例347设置按钮支持Enter键和Esc键
实例348为按钮动态加载图片
实例349动态添加按钮及其响应事件
实例350利用按钮数组控件简化编程
实例351制作粘性按钮
实例352制作赛跑小游戏
实例353利用选择控件设置操作权限
实例354字体设置
实例355利用选择控件实现复杂查询
11.4图形图像控件应用
实例356随鼠标移动的图形
实例357在图片上放置文字
11.5滚动条控件
实例358使用滚动条改变窗体颜色
实例359使用鼠标移动滚动条
实例360浏览大幅图片
实例361实现窗体滚动
11.6时钟控件
实例362制作倒计时程序
实例363打老鼠游戏
11.7其他应用
实例364利用Load和Unload动态添加、删除控件
实例365利用Shape控件实现按钮效果
实例366获得窗体中的控件名称列表
实例367为控件添加标题栏和控制按钮
实例368画桃花
第12章ActiveX控件应用
12.1框架类控件应用
实例369利用TabStrip控件与Frame控件实现选项卡
实例370为SSTab选项卡设置背景色
实例371获得选项卡中所有控件
实例372为SSTab选项卡添加图标
实例373限制用户切换SSTab选项卡
实例374利用SSTab控件设计系统设置程序
实例375利用SSTab控件设计多选项卡浏览器
12.2进度条控件应用
实例376为启动界面添加进度条
实例377在数据库处理时显示进度
实例378制作特效进度条
实例379更改进度条颜色
实例380利用Slider控件实现音量调整
12.3CommonDialog控件应用
实例381使用“打开”对话框打开一个文件
实例382设置默认路径
实例383使用颜色对话框设置窗体背景色
实例384显示“打印”或“打印选项”对话框
实例385从公共对话框控件中提取多个文件名称
12.4RichTextBox控件应用
实例386使用RichTextBox控件打开和保存文件
实例387在RichTextBox控件中查找文本
实例388在RichTextBox控件中进行英文文字查找并描红
实例389在RichTextBox控件中进行文本替换
实例390提取RichTextBox控件文本到数组
实例391对RichTextBox控件中的选定文本进行打印
实例392设置RichTextBox控件的页边距
实例393高亮度显示一整行
实例394获取文本行号
实例395利用RichTextBox控件实现文档管理功能
实例396用RichTextBox控件显示图文数据
实例397创建彩虹文字
12.5TreeView控件应用
实例398树状显示吉林省各市县名称
实例399设置TreeView控件的背景色
实例400获得所有同级节点的内容
实例401在树状结构上实现右键菜单
实例402带复选功能的树状结构
实例403使用TreeView控件实现多级商品信息浏览
实例404动态修改树状结构的节点
实例405将XML文档显示在TreeView中
12.6ListView控件应用
实例406显示列表中当前人员的姓名信息
实例407设置ListView控件的显示方式
实例408将图标加载到ListView控件中
实例409利用ListView控件显示图像列表
实例410将数据库中的表添加到ListView控件
实例411设置ListView控件的行间隔颜色
实例412利用ListView控件设置用户权限
12.7时间日期类控件应用
实例413判断当前选定的日期是星期几
实例414查询指定时间段的数据
第13章自定义组件和第三方控件
13.1自定义控件及类库
实例415透明窗体类库
实例416数据库通用模块
实例417Excel表格生成模块
实例418程序托盘控件
实例419验证码控件
实例420文件夹列表对话框控件
实例421自定义标题栏控件
13.2第三方控件及类库的使用
实例422使用ShockwaveFlash控件播放动画
实例423使用BarCodeCtrl控件生成条形码
实例424使用WindowsMediaPlayer控件播放视频
实例425使用SimpleChart控件生成图表
实例426使用CtListBar控件制作QQ菜单
实例427使用MicrosoftAgent控件制作程序助手
实例428使用MicrosoftCalendar控件制作日历
实例429使用ScriptControl控件对字符串进行运算
实例430使用BSE控件创建不同风格的按钮
实例431使用VsMenu控件创建漂亮菜单
实例432使用ccrpProgressBar控件创建不同风格进度条
实例433使用ccrpHotKey控件创建热键
实例434使用ezDICOMX控件浏览医疗图像
第4篇键盘鼠标篇
第14章鼠标相关
14.1鼠标指针和键
实例435定义鼠标指针形状
实例436自定义鼠标指针图标
实例437设置鼠标为ani格式的动画
实例438为无标题的窗体添加鼠标效果
实例439实现大十字光标的形式
实例440交换鼠标的左右键
实例441判断鼠标按下键值
14.2鼠标动作
实例442移动鼠标
实例443鼠标的显示与隐藏
实例444获得窗体上鼠标的位置
实例445获得屏幕上鼠标的位置
实例446限制鼠标在某一区域工作
实例447拖动无标题栏的窗体移动
实例448利用鼠标绘图
实例449鼠标点不到的按钮
实例450记录鼠标行为
实例451获得和设置鼠标双击时间间隔
实例452跟随鼠标移动的蝴蝶
实例453制作鼠标拖拽控件程序
实例454捕捉MouseEnter和MouseExit事件
实例455鼠标样式设置器
实例456利用鼠标移动浏览大幅图片
实例457鼠标事件记录
实例458快捷键注册
14.3鼠标应用
实例459带鼠标指针的屏幕抓图
实例460鼠标穿透效果
实例461屏幕取词
实例462打造自己的开心农场
第15章键盘相关
15.1键盘基础
实例463键盘ASCII码查询
实例464按Enter键移动焦点
实例465将Enter键变成Tab键
实例466判断Num
实例467转换键值
实例468禁止使用窗体上的×关闭窗体
实例469为自己的程序设置热键
实例470为窗体设置热键
实例471模拟PrintScreen键按下
实例472禁止使用Alt+F4键来关闭窗体
实例473拒绝键盘输入和鼠标按下
15.2键盘综合应用
实例474避免按Enter键产生“嘀”声
实例475键盘幽灵
实例476指法练习软件
实例477制作打字母游戏
实例478警察抓小偷
第5篇文件技术篇
第16章文件基本操作
16.1文件基本信息
实例479获取文件的大小
实例480获得文件的扩展名
实例481获取文件最后修改时间
实例482使用API函数获取文件创建时间
实例483使用API函数获取文件最后修改时间
实例484获取文件特征码
实例485从文件路径中获取文件名
实例486获取短文件名
实例487将短文件名转换为长文件名
实例488获得文件的属性
实例489设置文件属性
16.2文件基本操作
实例490批量删除指定类型的文件
实例491批量重命名文件
实例492删除文件
实例493利用FileCopy语句复制文件
实例494利用API函数MoveFile移动文件
实例495利用API函数SHFileOperation复制文件
实例496使用API函数CopyFile复制文件
实例497使用API函数DeleteFile删除文件
实例498使用API函数CopyLZFile复制文件
实例499使用API函数创建文本文件
实例500使用FSO对象创建文本文件
实例501比较文件
实例502判断文件是否存在
实例503搜索文件
实例504将文件删除至“回收站”
实例505VB与Windows资源管理器互拷文件
实例506选择执行具有特定标识的程序
16.3文件打开与读取、写入
实例507获取已经打开的文件的大小
实例508设置随机访问文件的读取位置
实例509从文件逐行获取信息
实例510从文件逐字符获取信息
实例511从文件一次性获取信息
实例512以默认方式打开文件
实例513二进制文件的读取与写入操作
实例514以流的方式打开文本文件
实例515使用XML文件保存数据
实例516从INI文件读取程序设置
实例517将窗体标题保存在INI文件中
实例518以十六进制显示文件
实例519文件分割与合并
实例520替换文本文件中字符串
实例521拖放文件，将文件名添加至列表框
实例522创建临时文件
第17章文件夹操作
17.1文件夹基本操作
实例523利用MkDir语句创建文件夹
实例524利用FSO对象创建文件夹
实例525根据数据库数据建立文件夹
实例526删除文件夹
实例527使用递归法删除文件夹
实例528选择文件夹
17.2文件夹应用
实例529更改文件夹图标
实例530保存文件夹目录到INI文件
实例531提取文件及文件夹的目录
实例532网络文件夹复制
实例533文件夹加密
实例534用VB设计个性化文件夹
第6篇图形图像技术篇
第18章图形的绘制
18.1绘制几何图形
实例535自定义容器的坐标系统
实例536绘制网格
实例537绘制立体三棱锥
实例538绘制抛物线
实例539利用Line控件设计分割线
实例540绘制正方形
实例541绘制正弦曲线
18.2绘制图案
实例542绘制艺术图案
实例543万花筒
18.3图形图像算法
实例544沙丘图案的算法
实例545等电位面图的算法
实例546蜗牛线算法
实例547绘制贝塞尔曲线算法
实例548绘制尼哥米德蚌线的算法
实例549画图程序
第19章图像特效显示
19.1图像的几何变换
实例550图像剪切
实例551图像的合成
实例552w图像翻转效果
实例553图像旋转
实例554二次线性插值法缩放图像
19.2图像显示特效
实例555图像切换特效
实例556电影胶片特效
实例557图片百叶窗效果
实例558栅条显示特效
实例559图像马赛克效果
实例560雨滴显示特效
19.3常见滤镜效果
实例561图像锐化处理
实例562图像柔化处理
实例563图像灰度效果
实例564图像反色处理
实例565图像浮雕效果
实例566图像明暗效果的改变
实例567图像色彩转换
实例568图像亮度对比度改变
实例569图像饱和度改变
19.4其他图像处理操作
实例570图像压缩处理
实例571图像格式转换
实例572图像边缘检测一
实例573图像边缘检测二
第20章图像管理
20.1图像文件管理
实例574保存图形文件
实例575VB制作图片浏览器
实例576具有缩略图功能的图片浏览器
实例577批量修改图片名称
实例578管理计算机内图片文件的程序
实例579将指定文件夹下的图片分类存储
实例580提取并保存应用程序的图标
实例581图像分页预览
实例582图像存储在数据库
20.2图像识别
实例583获取鼠标任意位置的颜色值
实例584提取图片中的对象
实例585简易人像识别程序
20.3图片动画
实例586利用图片制作屏幕保护程序
实例587图片动画
20.4其他应用
实例588滚动广告字幕
实例589屏幕抓图程序
实例590电子名片
实例591调用Word中的艺术字
实例592使Windows开始屏幕保护
实例593利用VB实现更换墙纸的功能
实例594利用VB实现更换墙纸
实例595屏幕保护程序（从左到右显示图片）
实例596图片转换为字符串
实例597网页抓图
实例598屏幕放大镜
实例599明日电子书
实例600绘制石英钟