VB6简单应用视频笔记

2021-05-11 22:29:33 阅读：226 来源： 互联网

标签：视频 shell 控件 -- 笔记 CommonDialog1 窗体 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

标签：视频,shell,控件,--,笔记,CommonDialog1,窗体,VB6,按钮
来源： https://blog.csdn.net/gzc0319/article/details/116672866

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

VB6简单应用视频笔记