边用边学vb6.0教程程序代码
需积分: 9 54 浏览量
2013-03-29
10:42:15
上传
评论 1
收藏 109KB DOC 举报
边用边学 vb6.0 教程
说明：
边用边学 vb6.0 教程（沈林兴老师）教学视频画面模糊代码看不清楚，又有不少人想
要。本人也是初学 VB 的菜鸟，这些是本人花了很长时间整理出来的，在看的时候配合沈
林兴老师的教学视频才能达到效果，要不会看得一头雾水。
例
20、21、22、23 和
例
27
的代码应该是正确的，但是我做出来的没有成功，不知道是不是因为我的电脑不能识别
“FileSystemObject”的原因，至于其他的本人都演示成功了。
边用边学 vb6.0 教程地址：
http://www.soku.com/search_video/q_%E8%BE%B9%E7%94%A8%E8%BE%B9%E5%AD
%A6vb6.0%E6%95%99%E7%A8%8B
这个视频比较适合初学者，里面手把手教的。就是沈林兴老师的课，不足点就是画面模糊
不太清楚。
在调用的时候，要注意看和安装的控件和代码的名称是否一直，这很重要！下面就是各个
演示
例
题的代码：
（边用边学 vb6.0 教程 4 http://v.youku.com/v_show/id_XOTQ1ODI5NjQ=.html）
例
1
： (Click 描述的是单击事件
1 文字演示 DbClick 描述的是双击事件）
Private Sub Form_Click() Private 私有（对象内部的私有程序）
Print "你好！欢迎你的到来" Caption 标题/名称 修改窗体的名称
End Sub load 事件：
Private Sub Form_DblClick()
Cls clear screen 清屏的意思 只能用 Cls 语句来实现清屏
End Sub
例
2
：
2 加法计算器 （Lable 标签框 textbox 文本框 command button 命令框）
Private Sub cmdadd_Click() Val（text1.text）表示的把括号里面的字符串转换为数值
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text)) Val：把字符串转换为数值的转换函数
End Sub Str：把数值转换为字符串的转换函数
Private Sub cmdclear_Click()
Text1.Text = ""
Text2.Text = "" 清除命令
Text3.Text = ""
End Sub
剩余17页未读，继续阅读
资源评论
