VB 神童教程第二章第三节——综合示例一.docx

《VB 神童教程第二章第三节——综合示例一.docx》由会员分享，可在线阅读，更多相关《VB 神童教程第二章第三节——综合示例一.docx（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB神童教程第二章第三节综合示例一作者：未知阅读人次：96556文章来源：未知发布时间：2004-12-15网友评论(263)条在前面两节里，我们学到了VB 的操作方法，以及 Label 与 TextBox 控件的使用方法，现在我们用这两节学到的知识来做一个简单的文本编辑器。一、程序最终目的：用户可以在程序的编辑窗口输入文本；对输入的文本可以进行复制、粘贴、清除操作；另外，还能在两个标签上分别显示选中文本的起始位置、选中文本的长度。二、界面设置：根据程序的要求，我们需要制作一个文本框控件（TxtContent），它将做为程序的输入窗口；另外还有四个按钮，分别是复制按钮（CmdCopy）、粘贴按

2、钮（CmdPaste）、清除按钮（CmdClear）、退出程序按钮（CmdQuit）；此外，还需要两个用来显示所选文本起始位置的标签一（LblStart）和显示所选文本长度的标签二（LblLength）。最终界面如图一：图一请大家仿照图一制作。三、属性设置：如图一所示，但请注意，文本框控件的 Multiline（多行）属性要设置为 True ，这样，文本框才能自动换行。如图二：图二四、程序书写：1、文本框（TxtContent）的鼠标事件：对文本的选择，可以理解为这样的过程：先在欲选择的文本前点击鼠标，按下左键不放，拖动鼠标直到选择文本的结束处，最后松开鼠标。这说明，松开鼠标代表着文本选择的结

3、束，从而应该在文本框的鼠标弹起事件（MouseUp）中书写代码，以改变两个标签的标题。具体代码如下：Private Sub TxtContent_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)括号中这一长串内容大家不必管它，这主要是产生位移时的坐标变动。LblStart.Caption = 起始位置： & TxtContent.SelStartLblLength.Caption = 文本长度： & TxtContent.SelLengthEnd Sub注意：这个 “&”符号表示将两个字符串连接起来。另

4、外如： A & B ，结果是 AB ；ABC & EFG ，结果是 ABCEFG ，等等。2、复制按钮的点击事件：Private Sub CmdCopy_Click()Clipboard.SetText TxtContent.SelTextEnd Sub3、粘贴按钮的点击事件：Private Sub CmdPaste_Click()TxtContent.SelText = Clipboard.GetTextEnd Sub4、清空按钮的点击事件：Private Sub CmdClear_Click()TxtContent.Text = End Sub5、退出程序按钮的点击事件：Private S

5、ub CmdQuit_Click()EndEnd 在 VB 中，代表程序结束，用它可以直接退出程序。End Sub五、运行调试：按 F5 键，或者点按运行按钮，这个简单的文本编辑器可以用了吗？六、控件的一些基本操作：在 VB “菜单栏”中有一个“格式”命令，通过它提供的一些功能可以让我们的工作事半功倍。1、对齐：分别是纵向对齐的“左对齐”、“居中对齐”、“右对齐”；横向对齐的“顶端”、“中间”、“底端”对齐；以及面向网格的“网格对齐”。它们的功能非常简单，你只需随意绘制几个控件，然后选择它们，再试着使用相关命令就能掌握了。如图三是随意绘制的程序界面：图三全部选中后，使用“左对齐”的结果如图四：

6、图四也许你要问，这个对齐是以哪一个控件做为参照物的？再仔细看看图三，那个 Command1 按钮四周是八个实心的黑色小点，而其他控件则是白色的小点，现在你知道了吧，正是以 Command1 按钮为参照物进行对齐的，也就是说你最后选择的那一个控件。2、统一尺寸：以某个控件为参照物，统一其他控件的大小尺寸。3、水平间距与垂直间距：调整某几个控件的水平间距或垂直间距。活用上面几个操作，将使你的工作事半功倍！文章录入：静夜思责任编辑：静夜思 上一篇文章：VB教程第二章：控件学习 下一篇文章：VB神童教程第二章第四节CommandButton控件最新评论：已有263位感兴趣的读者发表了看法BCCN网友i

7、p：218.201.84.*2013-3-12 11:04:56 发表这章节的两个label标签没得代码吗另外那个复制和粘贴命令按钮没起到作用是怎么回事呢BCCN网友ip：116.1.128.*2013-2-8 16:30:38 发表为什么2、复制按钮的点击事件：我没输程序也起作用。BCCN网友ip：113.91.76.*2012-12-7 15:46:41 发表学习心得：1.本章由于是直接跳过了第二章第二节，所以，在网上找到了第二节，接着才来学学习本章的。！2.现在感觉大体思路是清晰的，但是，怎么熟练的运用一些，控件属性，完成控件所能达到的触发事件，还是有点摸不着头脑，可能是编程语言知识匮乏

8、造成。3.有时间，还是需要熟悉每个控件，所包含的属性，多用这些，来练练手，应该可以解决这个问题4，总体来说还是比较不错的，能够轻松的读懂与掌握！BCCN网友ip：119.147.225.*2012-12-5 11:17:23 发表我一点都不会啊！咋办？BCCN网友ip：14.221.133.*2012-11-19 8:35:59 发表我的复制和粘贴不起作用!BCCN网友ip：59.72.41.*2012-11-8 19:44:43 发表感觉不好学BCCN网友ip：59.60.97.*2012-10-6 17:30:59 发表加qq群500人菜鸟编程交流群欢迎你讨论编程、聊天，进群看群公告技术的起点，交流的园地，欢迎学习！各种语言汇聚地。BCCN网友ip：119.44.226.*2012-10-1 20:27:53 发表跪谢！BCCN网友ip：121.18.213.*2012-10-1 7:51:52 发表碉堡了BCCN网友ip：182.111.186.*2012-9-22 15:47:08 发表VB小白500人超级群：欢迎您的加入！欢迎您来一起交流！有交流才会有进步