概述
每当我们脱离了课本，自己单独的做一些程序的时候，像我这样的小白通常表现是——很多东西都知道一点点，但是不会做。我个人的认为是：我们重复的还不够，总结的还不够。下面我就来分享自己最近机房时遇到的并总结下来的。
正文
一、Label——标签
作用：标签用来显示文本信息，不能输入信息
主要属性：
Caption：显示的信息
Font：字体字号
Alignment：设置显示的文本对齐方式
Autosize：框的大小是否根据文本内容同大，默认值为False
Backstyle：背景透明度
Borderstyle有无边框线
二、Command——命令按钮
作用：用于程序运行时执行相应的事件的过程
主要属性：
caption：命令按钮上显示的文字
style：按钮的样式
picture：在按钮装入图形（这个我们用到的还是比较的少）
ToolTipText加以文字提示（同上）
事件：命令按钮一般接收Click事件
三、剪切、粘贴的过程实现
思路：
dim st$
1.text1.seltext ‘选中欲剪切的内容
2.st=text1.seltext
text1.seltext=”” ‘选中内容赋值给变量暂存
3.text1.seltext=st ’变量赋值给属性
思考：如果是复制、粘贴，只需要稍微做点变化就好
Text1.seltext=”“(去掉就好）
总结：上面的代码还是非常容易就能看懂
四、TextBox——文本框
作用：输入、显示、编辑文本内容
主要属性：
Text;显示或输入的正文内容
MaxLength：设置文本框可输入的文字最大长度，默认值为0（以字为单位）
MultiLine：多行属性，默认为False，设置为True，同时有自动换行的功能，按Enter键强行换行
ScrollBars：滚动条属性（只有当MultiLine为True，ScrollBars的设置才有效。
PasswordChar:用来设置密码，
Locked：是否可被编辑，默认值为False（可编辑），当设置为True时。只读文本控件相当于标签控件的作用。
Selstart：选定的正文开始位置
SelLength：选定的正文长度
SelText：选定的正文内容
综合应用举例：
例如：VisualBasic程序设计
1、text1.selstart=6
2、text1.selLength=5
3、text1.seltext=”Basic”
主要事件：
changed：当text属性值发生改变时引发的该事件，默认事件。（一般不用）
例如：在文本框输入一段字符就引发一次事件。
Keypress：按下键时引发焦点所在控件的Keypress事件，所按键的编码值存放在参数KeyAscii中
例如：回车键判断keyAscii=13，输入字符判断：Chr（KeyAscii）
LostFocus：对象失去焦点时发生，常用于输入合法性的判断。
Gotfocus：与LostFocus事件相反，当一个对象获得焦点时发生
文本框方法：
SetFocus：把光标移到指定的文本框中；
形式：[对象.]SetFocus
SetFocus：还可以用于Command、List等控件
五、图片框PictureBox和图像Image
主要作用：显示图片
区别：picturebox还是容器，可以防止其他控件和使用绘图方法输出图形，Print方法输出文本。
Image仅仅显示图片
主要属性：
1.picture装入图片
2.代码形式：picture=Loadpicture（App.path&“\”&“图片的文件名”）
注意：App.path：获得工程文件的文件夹，相对路径
3.图片在框中的对齐方式
picturebox：Autosize为true时框随图变，False图大显示不完整
Image：Stretch为true时图片随着框变，False框随着图变
注意：我们在平时经常遇到图片太大，而且一时还找不到其他的方法，看到这个以后是不是清晰多了。
六、IsNumeric函数（学生收费系统中常客）
说明：这个函数大家是不是特别的熟悉呢？是不是在数据的合法性检测的时候经常看到呢？那么我们该到底怎么使用呢？检测到数据合法的时候或不合法的时候是什么样的呢？下面我们带着这样的问题一起探索下吧。
正文：IsNumeric返回True合法False非法
**非法数据时的处理：清除文本框的内容、SerFocus方法焦点回到原来的文本框
举例：（重点代码）**
Private Sub Text1_LostFocus() 'text1按Tab键数据合法性检测
If Not IsNumeric(Text1) Then 'isnumeric函数判断输入的内容是数字？
Text1.Text = ""
Text1.SetFocus '焦点到text1
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) 'text2按回车键数据合法性检测
If KeyAscii = 13 Then '按回车键但是焦点没有离开
If Not IsNumeric(Text2) Then
Text2.Text = ""
End If
End If
End Sub
Private Sub Text3_GotFocus() 'text3获得焦点，计算
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
七、小奖励
告诉大家一个小秘密，平时在学习VB的时候是不是经常遇到需要用一些小图标呢？可是怎么找都不合适，其实就在我们每个人的电脑里有现成的。哈哈。
这个是我VB6.0所在的位置哈，可能每个人的都不一样，我们需要做的就是找到自己的安装包，然后找到GRAPHICS文件就好。很多的图标，可以节省我们的很多时间。
总结
学习是一个不断反复和总结的过程，不要怕麻烦，一点点的积累，终有天会变成大神。