VB6简单应用视频笔记

https://www.bilibili.com/video/BV1ZB4y1c7fq?p=1

时长约5小时，主要是常用控件使用，再加一点最简单的语法，代码量非常少

 

P1 软件安装教程
ID全111111、典型安装；装完VB6使用安装包安装MSDN帮助文件

P2 入门实例
环境设置：windows7 basic
界面认识：菜单栏、工具栏、界面调整
第一个实例：label button运行；代码实现按钮控制显示；保存窗体、工程、可执行文件

P3 四则运算
TextBox、Val()、End

P4 字体的综合设置
combobox：菜单 combobox-->List、窗体代码 combobox.additem
cambria字体、悬停提示 tooltiptext、Frame、optionbutton
click事件；label.fontname设置字体、fontsize字号、fontbold加粗--IF THEN ELSE END IF、fontitalic斜体、fontunderline下划线；对齐label.alignment
SELECT CASE  CASE ""  END SELECT、forecolor

P5 变量实例1 移动名字
透明 backstyle；代码查看方式--单个模块、全部模块
声明字符变量DIM TEMP AS STRING；通过代码修改label的caption
PDF：变量数据类型、命名规则

P6 列表框和图片框实例
通过下拉列表显示不同图片
listbox列表框：list选项菜单、窗体代码 list.additem；
picturebox图片框：picture.picture=loadpicture("绝对路径")

P7 时间控件
Timer：Interval 1000ms
代码：Timer.enable；Date$、Time$、Weekday（Date$）
format（Date$，“yyyy年mm月dd日”）、format（Time$，“hh时nn分ss秒”）、WeekdayName（Weekday（Date$））
按钮属性：2个按钮重叠，使用代码显示其中1个；Visible

P8 滚动条控件
Shape--FillStyle 0 Solid、Shape.FillColor=RGB(R,G,B)
HScrollBar水平滑动条--Min Max Value、Change事件和Scroll事件区别

P9 文件目录列表
磁盘列表 DeviceListBox、目录列表DirListBox、文件列表FileListBox
Dir1.Path= Drive1.Drive、File1.Path=Dir1.Path、TEXT1.Text=Dir1.Path+“\”+File1.FileName

P10 图像控件
Image类似picturebox；音乐播放器--工程 部件 Windows Media Player；窗体MaxButton
文件类型筛选 File1.Pattern=Combo1.Text
图片显示 Image1.Picture=loadpicture（TEXT1.Text）、Stretch自动拉伸
音乐播放WindowsMediaPlayer1.URL=TEXT1.Text

P11 菜单制作和通用对话框
鼠标右键 菜单编辑器--标题、名称、级别
工程 部件 Microsoft Common Dialog Control、Common Dialog：DialogTitle、Filter=“所有文件（*.*）|*.*|音乐文件（mp3.*）|mp3.*|”、显示对话框CommonDialog1.ShowOpen、打开的文件路径CommonDialog1.FileName
显示拾色器CommonDialog1.ShowColor、拾色器颜色CommonDialog1.Color
显示字体对话框CommonDialog1.ShowFont、CommonDialog1.FontName、CommonDialog1.FontBold、FontItalic、FontUnderline、FontSize

P12 打开外部程序
彩色按钮设置：Style-Graphical、BackColor
资源管理器 Shell("explorer.exe",1)；计算机等 shell “explorer.exe /n， /e， ::常用文件标识符”；
记事本 shell "notepad.exe"；画图 shell "mspaint"；计算器shell "calc"；shell "cmd"；
有问题或者是外部程序就用绝对路径
打开百度shell “explorer http://www.baidu.com/”
打开指定文件 shell "notepad.exe c:\001.txt"  shell "word安装路径 c:\001.doc"
相对目录 App.path  连接符&

P13 多窗体操作
按钮显示图片设置：Style-Graphical、Picture
窗体Picture
form1.Show/Hide；窗体单击事件Unload Me

P14 IF逻辑判断
100以内的随机数 i=int(rnd()*100) 
单行无需end if，多行必须有：if then、if then else；
if then elseif then elseif then else end if

P15 SELECT选择判断
mod求余数
select case case0 case1 ... end select

P16 FOR循环
窗体Activate事件；cls清屏；循环嵌套；print tab；空行print:print:print
for i=1 to 20
print i
next i

P17 键盘控制实例
keydown事件 keycode；keyup事件；调整按钮command.left/top可实时改变按钮位置

P18 数据输入实例
msgbox “弹出对话框”；获取输入框内容 inputbox（“提示信息”）
data控件：connect excel8.0、databasename 选中excel文件、recordsource选sheet1$
textbox：datasource选中data控件名、datafield对应excel字段
按钮实现data控件功能：data1.recordset.moveprevious/movenext/move(n)查看上/下一行/第n行数据、data1.recordset.bof/eof为真为文件起始/末尾
data1.recordset.addnew/delete 新增/删除数据；excel不支持删除数据，access可以
修改数据data1.recordset.edit