游戏记牌器源码附颜色选择器

.子程序 读共享内存数据, 文本型
.局部变量 局部_打开句柄, 整数型
.局部变量 局部_返回内存地址, 整数型
.局部变量 局部_返回文本, 文本型

局部_打开句柄 ＝ OpenFileMappingA (4, 真, “MyShareMemoryFile”) ' 打开已创建的局部
局部_返回内存地址 ＝ MapViewOfFile (局部_打开句柄, 4, 0, 0, 0) ' 获取到内存地址
局部_返回文本 ＝ 指针到文本 (局部_返回内存地址) ' 把内存地址的值读出来
UnmapViewOfFile (局部_返回内存地址) ' 释放内存
返回 (局部_返回文本)

.子程序 _高级表格1_光标位置改变
.局部变量 局部_是否空牌, 逻辑型

局部_是否空牌 ＝ 选择 (到整数 (高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ())) ＝ 0 或 到整数 (高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ())) ＝ 1, 真, 假) ' 判断一下值是否为0 或者1 到1的时候把文本颜色改一下，如果只判断0的话要点5次
.判断开始 (局部_是否空牌 ＝ 真)
高级表格1.置单元格文字颜色 (高级表格1.取光标行号 (), 高级表格1.取光标列号 (), , , #红色) ' 设置为0的值单元背景颜色
.默认

.判断结束
高级表格1.置数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 (), #表格常量.文本型, 到文本 (选择 (局部_是否空牌, 0, 到整数 (高级表格1.取数据 (高级表格1.取光标行号 (), 高级表格1.取光标列号 ())) － 1))) ' 判断值是否为0 不为0 每次点击值减一