查看: 12388|回复: 31	[老狼] [老狼][源码分享]----Dim、Global、DimEnv----匆匆十年(59) [复制链接]

发送短消息 UID 1228894 帖子 27060 精华 25 鲜花 8236 朵 铜币 36314 个 银币 4931 个 性别 在线时间 421340 注册时间 2012-07-18 最后登录 2025-11-04 1223116618 查看公共资料 搜索主题 搜索帖子 瑞祥幽冥狼 按 键 工 程 师 ● 兼 职 组别超级版主 UID1228894 帖子27060 精华25 鲜花8236 朵 铜币36314 个 银币4931 个 在线时间421340 注册时间2012-07-18 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 双十一绝版纪念勋章 双十一绝版纪念勋章 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 幸运草勋章 商业小精灵限时活动勋章。 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 黄瓜勋章 体验商业小精灵活动的奖励 天使勋章 天使一样的用户 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 举报达人 长期举报不良帖子 活动狂人 论坛活动狂人 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 论坛GG 按键论坛男性用户勋章 发帖高手 鼓励积极回复，但注意不要灌水哦 爱心大使 积极帮助新手（可向管理员进行申请） 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键运营团队 按键运营团队专属勋章 按键元老 资深按键用户的尊贵荣誉勋章 管理人员 按键论坛的管理团队专属勋章	1# 字体大小: t T 发表于 2022-06-05 16:09 | |只看楼主 变量的区分： [不定义]类Global，变量修改互相影响 [Dim]局部变量(在子程序、函数中声明，作用域为当前过程，变量修改互不影响) [Global]全局变量(在主程序中声明，作用域为当前脚本的主、子程序、函数，但不包含多线程) [DimEnv]环境变量(在主程序中声明，作用域为多个脚本的界面过程，主、子程序、函数，及多线程) 如何定义变量 注:主程序以下简称主、子程序以下简称子、函数[Function]以下简称函、多线程[BeginThread]以下简称多 不定义： Var = 1'多无法读取；主、子、函可读取 TracePrint Var'主可读取 Call 子程序() TracePrint 函数() 线程ID = BeginThread(多线程) Sub 多线程() TracePrint Var'多无法读取 End Sub Sub 子程序() TracePrint Var'子可读取 End Sub Function 函数() TracePrint Var'函可读取 End Function 复制代码 Dim[主程序声明、Sub、Function内不声明][变量重新赋值互相影响]： Dim 线程ID Dim Var Var = 1'多无法读取；主、子、函可读取 TracePrint Var'主可读取 Call 子程序() TracePrint 函数() 线程ID = BeginThread(多线程) Sub 多线程() TracePrint Var'多无法读取 End Sub Sub 子程序() TracePrint Var'子可读取 End Sub Function 函数() TracePrint Var'函可读取 End Function Dim Var1,Var2'在一行定义多个常量。 Var2 = 2 TracePrint Var2 复制代码 Dim[主程序声明或不声明；Sub、Function内声明[变量赋值互不影响]] Dim Var Var = 1'不Dim主、子、函可读取,如果Dim 只有主可读取 TracePrint Var Call 子程序() TracePrint 函数() TracePrint Var Sub 子程序() TracePrint Var Dim Var Var = 2 TracePrint Var'Sub 内独立存在 Sub结束变量清空 End Sub Function 函数() TracePrint Var Dim Var Var =3 TracePrint Var'Function内独立存在 Sub结束变量清空 End Function 复制代码 定义多个变量 Dim Var1, Var2'一行定义多少个变量 Var2 = 1 TracePrint Var2 复制代码 Global '一个可以取消的命令，按键里面基本用不掉 复制代码 DimEnv[变量] DimEnv Var'设置为环境变量,所有位置均可读取到 Var = 1 TracePrint Var'主可读取 Call 子程序() TracePrint 函数() 线程ID = BeginThread(多线程) Sub 多线程() TracePrint Var'多可读取 End Sub Sub 子程序() TracePrint Var'子可读取 End Sub Function 函数() TracePrint Var'函可读取 End Function 复制代码 DimEnv[数组] DimEnv Var(3) Var(0) = 1 TracePrint Var(0)'主可读取 Call 子程序() TracePrint 函数() 线程ID = BeginThread(多线程) Sub 多线程() TracePrint Var(0)'多可读取 End Sub Sub 子程序() TracePrint Var(0)'子可读取 End Sub Function 函数() TracePrint Var(0)'函可读取 End Function 复制代码 Const 常数 Const MyVar = 459 TracePrint MyVar MyVar=1'将提示非法赋值: 'MYVAR', 常数不会象变量那样无意中被改变 复制代码 Set Set dm = createobject("dm.dmsoft")'将对象引用赋给变量或属性 复制代码 Redim Preserve 动态数组 Dim arr(), i For i = 0 To 9     Redim Preserve arr(i)     arr(i) = 0     TracePrint UBound(arr) Next TracePrint Join(arr, "|") 复制代码 特殊环境变量设置 '对环境变量赋值 返回true表示成功 等同于BianLiangMing = 1000 TracePrint SetEnv("BianLiangMing", 1000) BeginThread 多线程 Sub 多线程() '读取环境变量的值 返回读取到的值 等同于 tmp = BianLiangMing : TracePrint tmp TracePrint GetEnv("BianLiangMing") End Sub 注意事项: QUI界面控件禁止频繁写入、读取，环境变量可能引起界面崩溃（可采用ini、txt等方式进行值传递）
	本主题由 超级版主 瑞祥幽冥狼 于 2022/6/13 22:01:44 执行 审核帖子 操作 点赞 收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击 个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］ 个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
	回顶部

发送短消息 UID 8726081 帖子 3 精华 0 鲜花 2 朵 铜币 4 个 银币 4 个 性别 在线时间 0 注册时间 2022-05-04 最后登录 2022-06-29 395998292@qq 查看公共资料 搜索主题 搜索帖子 YM8722522 YM8722522 组别幼儿园 UID8726081 帖子3 精华0 鲜花2 朵 铜币4 个 银币4 个 在线时间0 注册时间2022-05-04	2# 字体大小: t T 发表于 2022-06-05 16:14 | |只看该用户
	回顶部

发送短消息 UID 8035551 帖子 107 精华 0 鲜花 111 朵 铜币 137 个 银币 112 个 性别 在线时间 0 注册时间 2020-11-26 最后登录 2024-12-19 386566562 查看公共资料 搜索主题 搜索帖子 多多长得真帅 多多长得真帅 组别〖教程达人〗 UID8035551 帖子107 精华0 鲜花111 朵 铜币137 个 银币112 个 在线时间0 注册时间2020-11-26 教程达人 教程达人	3# 字体大小: t T 发表于 2022-06-05 16:24 | |只看该用户
	回顶部

发送短消息 UID 2283792 帖子 341 精华 0 鲜花 42 朵 铜币 855 个 银币 308 个 性别 在线时间 5680 注册时间 2013-12-03 最后登录 2025-10-26 275489389 查看公共资料 搜索主题 搜索帖子 sundebao1982 sundebao1982 组别初中二年级 UID2283792 帖子341 精华0 鲜花42 朵 铜币855 个 银币308 个 在线时间5680 注册时间2013-12-03	4# 字体大小: t T 发表于 2022-06-05 16:44 | |只看该用户 好好学习天天向上
	回顶部

发送短消息 UID 5111770 帖子 601 精华 0 鲜花 53 朵 铜币 605 个 银币 595 个 性别 在线时间 720 注册时间 2018-03-12 最后登录 2025-08-24 12345 查看公共资料 搜索主题 搜索帖子 dog38cc dog38cc 组别高中二年级 UID5111770 帖子601 精华0 鲜花53 朵 铜币605 个 银币595 个 在线时间720 注册时间2018-03-12 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	5# 字体大小: t T 发表于 2022-06-05 16:58 | |只看该用户 必須來學習
	回顶部

发送短消息 UID 8522251 帖子 143 精华 0 鲜花 107 朵 铜币 134 个 银币 109 个 性别 在线时间 0 注册时间 2021-11-01 最后登录 2025-01-09 12345 查看公共资料 搜索主题 搜索帖子 0976039722 0976039722 组别小学六年级 UID8522251 帖子143 精华0 鲜花107 朵 铜币134 个 银币109 个 在线时间0 注册时间2021-11-01	6# 字体大小: t T 发表于 2022-06-05 17:00 | |只看该用户 DIM 再主程序聲明 應該是全局 在子程序聲明是局部 点评 瑞祥幽冥狼  注:要么都Dim，要么都不Dim；如果都Dim，他只属于主程序、 Sub、Function分别独有，理论上主程序也只能算局部  发表于 2022/6/5 17:34:43
	回顶部

发送短消息 UID 1727897 帖子 35 精华 0 鲜花 19 朵 铜币 44 个 银币 34 个 性别 在线时间 0 注册时间 2013-04-09 最后登录 2024-08-25 17903491 查看公共资料 搜索主题 搜索帖子 aqts aqts 组别小学二年级 UID1727897 帖子35 精华0 鲜花19 朵 铜币44 个 银币34 个 在线时间0 注册时间2013-04-09 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2022-06-05 17:31 | |只看该用户 学习
	回顶部

发送短消息 UID 832165 帖子 9 精华 0 鲜花 2 朵 铜币 19 个 银币 6 个 性别 在线时间 260 注册时间 2011-10-19 最后登录 2022-10-02 550348046 查看公共资料 搜索主题 搜索帖子 jie550348046 jie550348046 组别小学一年级 UID832165 帖子9 精华0 鲜花2 朵 铜币19 个 银币6 个 在线时间260 注册时间2011-10-19	8# 字体大小: t T 发表于 2022-06-05 19:53 | |只看该用户
	回顶部

发送短消息 UID 332623 帖子 101 精华 0 鲜花 63 朵 铜币 133 个 银币 92 个 性别 在线时间 560 注册时间 2009-11-23 最后登录 2025-09-16 446244110 查看公共资料 搜索主题 搜索帖子 zxf198418 zxf198418 组别小学五年级 UID332623 帖子101 精华0 鲜花63 朵 铜币133 个 银币92 个 在线时间560 注册时间2009-11-23	9# 字体大小: t T 发表于 2022-06-05 22:16 | |只看该用户 学习使我快乐11111
	回顶部

发送短消息 UID 2307154 帖子 94 精华 0 鲜花 22 朵 铜币 152 个 银币 219 个 性别 在线时间 1220 注册时间 2013-12-20 最后登录 2025-03-08 743579531 查看公共资料 搜索主题 搜索帖子 爱爱爱啊啊 爱爱爱啊啊 组别小学五年级 UID2307154 帖子94 精华0 鲜花22 朵 铜币152 个 银币219 个 在线时间1220 注册时间2013-12-20 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	10# 字体大小: t T 发表于 2022-06-06 13:42 | |只看该用户 看看
	回顶部

发送短消息 UID 8323661 帖子 7 精华 0 鲜花 7 朵 铜币 17 个 银币 7 个 性别 在线时间 0 注册时间 2021-06-07 最后登录 2022-06-06 1042970618 查看公共资料 搜索主题 搜索帖子 1042970618 牧森 组别小学一年级 UID8323661 帖子7 精华0 鲜花7 朵 铜币17 个 银币7 个 在线时间0 注册时间2021-06-07	11# 字体大小: t T 发表于 2022-06-06 15:28 | |只看该用户
	回顶部

发送短消息 UID 3328028 帖子 1497 精华 0 鲜花 199 朵 铜币 3957 个 银币 204 个 性别 在线时间 26840 注册时间 2015-06-28 最后登录 2025-07-05 查看公共资料 搜索主题 搜索帖子 zjcyjj zjcyjj 组别大学三年级 UID3328028 帖子1497 精华0 鲜花199 朵 铜币3957 个 银币204 个 在线时间26840 注册时间2015-06-28 小红帽 对论坛提出良好建议（可向管理员申请）	12# 字体大小: t T 发表于 2022-06-08 23:25 | |只看该用户 谁与美人共枕夕阳长醉两千年
	回顶部

发送短消息 UID 179456 帖子 79 精华 0 鲜花 41 朵 铜币 105 个 银币 72 个 性别 在线时间 300 注册时间 2008-05-21 最后登录 2022-06-16 查看公共资料 搜索主题 搜索帖子 xuliang xuliang 组别小学四年级 UID179456 帖子79 精华0 鲜花41 朵 铜币105 个 银币72 个 在线时间300 注册时间2008-05-21	13# 字体大小: t T 发表于 2022-06-09 00:23 | |只看该用户 我要看看特殊环境
	回顶部

发送短消息 UID 814101 帖子 9 精华 0 鲜花 5 朵 铜币 37 个 银币 6 个 性别 在线时间 20 注册时间 2011-10-07 最后登录 2022-06-10 12321344 查看公共资料 搜索主题 搜索帖子 wxr1555 wxr1555 组别小学一年级 UID814101 帖子9 精华0 鲜花5 朵 铜币37 个 银币6 个 在线时间20 注册时间2011-10-07	14# 字体大小: t T 发表于 2022-06-10 14:18 | |只看该用户 为了看贴
	回顶部

发送短消息 UID 8757434 帖子 7 精华 0 鲜花 7 朵 铜币 8 个 银币 8 个 性别 在线时间 0 注册时间 2022-05-31 最后登录 2022-06-22 查看公共资料 搜索主题 搜索帖子 18501371062 组别小学一年级 UID8757434 帖子7 精华0 鲜花7 朵 铜币8 个 银币8 个 在线时间0 注册时间2022-05-31	15# 字体大小: t T 发表于 2022-06-11 12:53 | |只看该用户 kakakk
	回顶部

发送短消息 UID 8639923 帖子 41 精华 0 鲜花 72 朵 铜币 56 个 银币 46 个 性别 在线时间 0 注册时间 2022-02-25 最后登录 2024-01-24 查看公共资料 搜索主题 搜索帖子 best888 组别小学二年级 UID8639923 帖子41 精华0 鲜花72 朵 铜币56 个 银币46 个 在线时间0 注册时间2022-02-25	16# 字体大小: t T 发表于 2022-06-13 21:31 | |只看该用户 学习学些
	回顶部

发送短消息 UID 7094780 帖子 16 精华 0 鲜花 9 朵 铜币 26 个 银币 16 个 性别 在线时间 0 注册时间 2019-11-02 最后登录 2025-08-20 查看公共资料 搜索主题 搜索帖子 haolaoliu haolaoliu 组别小学一年级 UID7094780 帖子16 精华0 鲜花9 朵 铜币26 个 银币16 个 在线时间0 注册时间2019-11-02	17# 字体大小: t T 发表于 2022-06-22 15:30 | |只看该用户 大佬就是大佬
	回顶部

发送短消息 UID 8631363 帖子 6 精华 0 鲜花 2 朵 铜币 7 个 银币 7 个 性别 在线时间 0 注册时间 2022-02-15 最后登录 2023-02-24 12345 查看公共资料 搜索主题 搜索帖子 狗带带子 狗带带子 组别小学一年级 UID8631363 帖子6 精华0 鲜花2 朵 铜币7 个 银币7 个 在线时间0 注册时间2022-02-15	18# 字体大小: t T 发表于 2022-06-23 02:10 | |只看该用户
	回顶部

发送短消息 UID 8615546 帖子 158 精华 0 鲜花 96 朵 铜币 123 个 银币 123 个 性别 在线时间 0 注册时间 2022-01-29 最后登录 2024-02-27 查看公共资料 搜索主题 搜索帖子 xiaofe1889 组别初中一年级 UID8615546 帖子158 精华0 鲜花96 朵 铜币123 个 银币123 个 在线时间0 注册时间2022-01-29	19# 字体大小: t T 发表于 2022-06-25 12:32 | |只看该用户 爱仕达奥所多
	回顶部

发送短消息 UID 5359262 帖子 73 精华 0 鲜花 54 朵 铜币 89 个 银币 69 个 性别 在线时间 40 注册时间 2018-07-05 最后登录 2024-11-24 1870457907 查看公共资料 搜索主题 搜索帖子 木子天地 木子天地 组别小学四年级 UID5359262 帖子73 精华0 鲜花54 朵 铜币89 个 银币69 个 在线时间40 注册时间2018-07-05	20# 字体大小: t T 发表于 2022-07-16 15:00 | |只看该用户 谢谢分享
	回顶部