摘要：
昨天的博客记录了使用citectVBA脚本如何设置mschart画一条曲线，很多情况下我们不只需要一条，可能要画多条曲线，今天的练习，使用citectVBA画两条曲线。数据源还是listview控件，为了让不同数据的曲线更加分明，我把两组数据差距设置的比较明显，如下图所示。 新建以下脚本 Sub C 阅读全文
posted @ 2021-02-22 21:00
来自金沙江的小鱼
阅读(469)
评论(0)
推荐(0)
摘要：
以前在学习wincc vbs的时候，使用mschart结合listview控件做过曲线图的练习。在citect中使用citectVBA也可以实现制作曲线图的功能。 假设有这样一个初始化后的listview控件，访问名是chart_AN4 页面上插入一个mschart控件，访问名姿势chart_AN7 阅读全文
posted @ 2021-02-22 20:57
来自金沙江的小鱼
阅读(607)
评论(0)
推荐(0)
摘要：
前面的博客记录了如何用citectVBA脚本给listview控件列标题添加图标，通过脚本还可以给subitems添加图标。 先写以下脚本，注意红色部分 Sub listviewIniAddicon() Dim i As Integer main_AN4.View =3 '设置外观为报表形式 mai 阅读全文
posted @ 2021-02-22 20:49
来自金沙江的小鱼
阅读(288)
评论(0)
推荐(0)
摘要：
前面的博客记录了如何初始化listview，如何添加列标题和内容，如果我们希望listview好看一点，可以给列标题加上图标。先从网上随意找一些icon图标，在页面上插入microsoft imagelist控件，假设这个控件的访问名是main_AN16。将刚才找到的图标逐个插入 可以看到每个ico 阅读全文
posted @ 2021-02-22 20:47
来自金沙江的小鱼
阅读(335)
评论(0)
推荐(0)
摘要：
listview内容生成后，有时候希望使用过程中能够交换列的顺序，可以设定.allowcolumnorder属性值为true Sub listviewIniAllowColumnReorder() Dim i As Integer main_AN4.View =3 '设置外观为报表形式 main_A 阅读全文
posted @ 2021-02-22 20:45
来自金沙江的小鱼
阅读(291)
评论(0)
推荐(0)
摘要：
listview填充数据后，有时会希望能够点击列标题排序。假设有这样listview控件，画面名称是page2，控件访问名是page2_AN6 如果希望那个点击列标题排序，那么添加以下脚本 Sub page2_AN6_ColumnClick(Byval item As ColumnHeader) p 阅读全文
posted @ 2021-02-22 20:44
来自金沙江的小鱼
阅读(201)
评论(0)
推荐(0)
摘要：
前面的博客记录了listview初始化、添加checkbox的脚本设置。如果我们希望能够删除listview指定的行，可以按照以下思路：首先计算勾选了多少行，接下来判断勾选的行数是不是大于0，如果大于0，就循环一下过程，直到勾选行数为0：让行号为1，如果当前行被勾选，就删除当前行，行号不变，勾选行数 阅读全文
posted @ 2021-02-22 20:43
来自金沙江的小鱼
阅读(545)
评论(0)
推荐(0)
摘要：
今天在vejio citect2015做练习，有两个页面，一个是page1，一个是page2，上面都有一个控件AN4，l两个页面AN4的访问名分别是page1_AN4和page2_AN4.最开始只有page1时候，写完citectVBA脚本编译没有问题，后来增加了page2，编译总是提示not de 阅读全文
posted @ 2021-02-22 20:28
来自金沙江的小鱼
阅读(149)
评论(0)
推荐(0)
摘要：
前面的博客记录了如何设置listview控件，使其带有checkbox，可以多选。有时候我们希望不要多选，只能单选，那么对listview控件的ItemCheck事件写脚本，就能实现这个功能。假设页面名字是page1，listview控件的访问名是page1_AN4，那么该控件的ItemCheck事 阅读全文
posted @ 2021-02-22 20:27
来自金沙江的小鱼
阅读(460)
评论(0)
推荐(0)
摘要：
listview控件有一个checkbox属性，可以在编辑状态设置，也可以在脚本里面设置，下面的脚本演示了如何在脚本中加粗文字设置显示checkbox。 Sub ListViewAddcheckbox() Dim i As Integer page1_AN4.View =3 '设置外观为报表形式 p 阅读全文
posted @ 2021-02-22 20:26
来自金沙江的小鱼
阅读(411)
评论(0)
推荐(0)
摘要：
很久没有学习练习citect软件的控件使用了，今天开始ListView练习。以前做过wincc下VBS脚本操作listview，换到citect的CitectVBA语法，有点不一样。 新建一个页面main，插入listView控件，访问名是main_AN4，再放置一个按钮控件。新建一个citectV 阅读全文
posted @ 2021-02-22 20:24
来自金沙江的小鱼
阅读(211)
评论(0)
推荐(0)
摘要：
现场有一套AC800F的系统，冗余结构，CI840挂IO模板，CBF8.1开发，有点年头了。最近新增加了一个IO机架，始终无法连上，抱错“控制站不存在”或者“控制站没有就绪”。因为新增加的这个IO架与现有的系统没有在一个房间，相距100米左右，使用西门子DP线连接。本来以为是很轻松的事情，结果折腾了 阅读全文
posted @ 2021-02-22 20:22
来自金沙江的小鱼
阅读(371)
评论(0)
推荐(0)
摘要：
我们在写word文档时，有时候希望将个章节标题写到新的一页上，如果傻傻的按回车有点麻烦。可以先将要写的各章节标题书写好，比如是这样子 然后全选文字，然后设置段落，点击段落设置处的小箭头，打开设置对话框，选择“换行和分页”选项卡，勾选“段前分页”，然后确定。 选择视图菜单，显示比例中选择多页，就能看到 阅读全文
posted @ 2021-02-22 20:21
来自金沙江的小鱼
阅读(197)
评论(0)
推荐(0)
摘要：
今天在QQ聊天时，对方发了几十张照片过来，开始想在聊天窗口中一张一张保存，实在是累人，想在聊天窗口中多选然后保存，也没成功。后来查询网络，聊天记录都放在了“C:\Users\John\Documents\Tencent Files\”下QQ号码文件夹下面的“\Image\C2C”下面，可以根据修改时 阅读全文
posted @ 2021-02-22 20:19
来自金沙江的小鱼
阅读(729)
评论(0)
推荐(0)
摘要：
一篇word文档，通常有封面、目录、正文几个部分，我们在添加页眉页脚时候，可能只希望正文有页眉页脚，封面和目录不设置页眉页脚，这个是可以做到的。比如有这样一个文档 我们把鼠标光标移动到正文也最前面，点击菜单“布局”-“页面设置”-“分隔符”-“分节符-下一页” 这样已操作，前面的封面和目录就是第一节 阅读全文
posted @ 2021-02-22 20:17
来自金沙江的小鱼
阅读(542)
评论(0)
推荐(0)
摘要：
今天打开一个CAD文件，看到了一堆无规则的线条，很是烦人，实际上这是CAD打开了硬件加速造成的 找到工具菜单，如果没有看到“工具”菜单，那么点击下图中向下的小箭头 然后选择显示菜单栏 工具菜单可见后，选择工具-选项菜单，切换到“系统”选项卡。点击硬件加速下的“图形性能”按钮，对话框中“效果设置”，关 阅读全文
posted @ 2021-02-22 20:11
来自金沙江的小鱼
阅读(813)
评论(0)
推荐(0)
摘要：
今天在家做一个文档，一开始就插入了一个表格，表格编辑了大部分后想起来需要在表格前插入一行写一些文字，尝试拖拽表格想在最前面挤出一行始终不行，实际上把光标放在表格第一行第一个单元格问之前，然后按下回车键，就可以在表格前插入一个空白行了。 阅读全文
posted @ 2021-02-22 20:08
来自金沙江的小鱼
阅读(886)
评论(0)
推荐(0)
摘要：
最近在使用excel文件处理台账时，需要点击一个连接直接打开另外一个文件，默认的操作是建立绝对路径，但如果用U盘拷贝到其它计算机上后，由于路径改变，连接就无效了。经过查询网络，可以使用相对路径，方法如下。 比如excel文件名字叫做台账.xlsx，放在“d:\台账”文件夹下，要点击G3单元格内“证书 阅读全文
posted @ 2021-02-22 20:06
来自金沙江的小鱼
阅读(1298)
评论(0)
推荐(0)
摘要：
有时候会遇到excel文件中的表格隐藏了多个行和列，比如这样子： 要一次性显示所有隐藏的航很简单，全选所有内容，鼠标放到列上，右键-取消隐藏就能显示所有的列了。 鼠标放到行上，右键-取消隐藏就能显示所有的行了。 阅读全文
posted @ 2021-02-22 20:05
来自金沙江的小鱼
阅读(3071)
评论(0)
推荐(0)
摘要：
word编辑目录时，会遇到正文的页码不是从第一页开始的情况，这种情况下需要先设置页码格式。菜单插入-页码-设置页码格式，选择起始页码为1. 然后在目录页最后插入分节符。 插入分节符是通过点击菜单布局-分隔符，插入分节符实现的。 这样做完之后，重新生成一下目录正文页码就是从1开始了。 通过分节符，还可 阅读全文
posted @ 2021-02-22 20:02
来自金沙江的小鱼
阅读(1409)
评论(0)
推荐(0)
摘要：
前两天一个同事问我word中标个能不能计算公式，我一下子蒙了，以前都是在excel处理数据统计计算的。我想都是office家族成员，做一个公式计算，word也应该能行，通过查询网络，自己试验一遍，果然可以计算公式。假设有这样一个表格，需要统计产量综合和平均值。 先把光标停留在一车间总数单元格，然后点 阅读全文
posted @ 2021-02-22 13:33
来自金沙江的小鱼
阅读(204)
评论(0)
推荐(0)
摘要：
前两天在使用word时候，需要将一个表格从第20行拆分为2个。以前使用笨办法是新建一个表格，然后把原表格11行和以后的表格内容复制粘贴过去，再删除原表格11行以及以后的内容。经过查询网络，有一个较快的方法。将鼠标移到第10行末尾，然后按下ctrl+shift+enter组合键，自动的就会打断表格拆分 阅读全文
posted @ 2021-02-22 13:29
来自金沙江的小鱼
阅读(760)
评论(0)
推荐(0)
摘要：
今天加班在办公室遇到这样一个问题：office2016双击excel文件不能打开，只有通过点击excel的文件-打开才能打开excel文件，通过搜索网络终于找到解决办法。 打开注册表编辑器，找到“HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\Open\command” 阅读全文
posted @ 2021-02-22 13:28
来自金沙江的小鱼
阅读(656)
评论(0)
推荐(0)
摘要：
这段时间一直在练习citect使用citectVBA语句通过ADO连接sql server数据库，数据库是微软免费版本的sqlexpress。最开始使用 strcon = "Provider = SQLOLEDB.1;password = 3390011;user id = sa;Initial C 阅读全文
posted @ 2021-02-22 13:26
来自金沙江的小鱼
阅读(298)
评论(0)
推荐(0)
摘要：
最近做一个练习，后台数据库使用sqlserver2008，发现无法编辑200行以上的数据，使用select查询语句得到的数据，又无法编辑，经过查询网络，找到解决方法如下。 打开microsoft sql server management studio，在菜单“工具”-“选项”打开对话框，选择左边树 阅读全文
posted @ 2021-02-22 13:25
来自金沙江的小鱼
阅读(310)
评论(0)
推荐(0)
摘要：
最近手上项目需要从citectVBA调用cicode函数，经过QQ群热心网友指点，知道了使用CicodeCallOpen("CitectVBA函数名字")来调用，如果需要返回值，就使用 变量名=CicodeCallOpen("CitectVBA函数名字") 阅读全文
posted @ 2021-02-22 13:22
来自金沙江的小鱼
阅读(239)
评论(0)
推荐(0)
摘要：
最近有个项目用到了M580，后面的工作需要读取系统日期时间信息，查看帮助后发现这些信息存放在%SW50到%SW53四个系统字里面。%SW50是SS00，%SW51是HHMM，%SW52是MMDD，%SW53是YYYY，在unity程序中使用FBD这样写程序 %SW49可以读取星期几的数据，1是星期1 阅读全文
posted @ 2021-02-22 13:21
来自金沙江的小鱼
阅读(996)
评论(1)
推荐(0)
摘要：
前面的博客记录了初始化Citext.ComboBox控件选项，这几篇记录如何知道使用者选择了哪一项。假设Citext.ComboBox控件访问名依然是main_AN17。在cicode编辑器中添加以下CitectVBA代码 Sub SelComboBox()msgbox "您选择的是第" & Cst 阅读全文
posted @ 2021-02-22 13:20
来自金沙江的小鱼
阅读(232)
评论(0)
推荐(0)
摘要：
citect有一个Citext.ComboBox控件，是下拉列表款，后面的练习中，我会使用这个控件做较复杂的条件查询，这一篇先练习初始化控件，填入选项数据。在页面上插入一个Citext.ComboBox控件，假设其访问名是main_AN17。在cicode编辑器中插入以下citectVBA脚本： S 阅读全文
posted @ 2021-02-22 13:19
来自金沙江的小鱼
阅读(288)
评论(0)
推荐(0)
摘要：
前一篇博客记录了如何从sql数据库表中读取记录显示在msflexgrid控件中，这一篇记录如何向sqlserver写数据。在citect建立三个本地标签flow1,flow2,flow3 在cicode编辑器写下面的脚本 Sub AddRecordToSQLDB()Dim conn As Objec 阅读全文
posted @ 2021-02-22 13:18
来自金沙江的小鱼
阅读(385)
评论(0)
推荐(0)
摘要：
本练习是在sql server2008R2上进行。假设有一个数据库CitectDB，虾米啊有一个数据表Rpt1，有如下数据： 在citect上有一个msflexgrid控件，访问名是main_AN4，在项目管理器的cicode编辑器上写如下citectVBA代码： Sub SqlTableTomsf 阅读全文
posted @ 2021-02-22 12:31
来自金沙江的小鱼
阅读(379)
评论(0)
推荐(0)
摘要：
前面的博客记录了连接excel、access数据表的方法，今天实验了一下连接sql server数据表，语句都是类似的。我在计算机上安装了sql server 2008R2 EXPRESS版本，也就是所谓的官方免费版本，连接数据库使用windows系统帐户和sql登录两种方式，给sa账户设置密码12 阅读全文
posted @ 2021-02-22 12:30
来自金沙江的小鱼
阅读(298)
评论(0)
推荐(0)
摘要：
前面的博客记录了判断某个程序（比如计算器）是不是已经打开。这一篇博客进一步，如果程序打开了就关闭它，如果程序没有打开就打开它。 Sub killoropenprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProc 阅读全文
posted @ 2021-02-22 12:28
来自金沙江的小鱼
阅读(215)
评论(0)
推荐(0)
摘要：
比如判断计算器是否在运行，如果在运行就关掉它。 Sub killprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProcessList As ObjectDim i As ObjectstrComputer = 阅读全文
posted @ 2021-02-22 12:27
来自金沙江的小鱼
阅读(138)
评论(0)
推荐(0)
摘要：
有时候我们需要判断某个程序是否已经运行，使用citectvba脚本可以实现这个功能，下面的代码实验判断计算器程序是否运行，通过进程查找calc.exe是否存在来判断。 Sub FindProcess()Dim strComputer As stringDim objWMIService As Obj 阅读全文
posted @ 2021-02-22 12:24
来自金沙江的小鱼
阅读(224)
评论(0)
推荐(0)
摘要：
我们使用citect采集了现场数据形成报表后，有时候需要把数据定时发电子邮件给某些人。微软的CDO组件支持邮件发送功能，我在学习citectVBA发邮件时，经历了一些波折，我在这篇博客把这些学习过程下来。 我的想法是点击画面上的按钮，后台脚本用一个qq信箱给一个126信箱发一封电子邮件，不需要打开浏 阅读全文
posted @ 2021-02-22 12:23
来自金沙江的小鱼
阅读(458)
评论(0)
推荐(0)
摘要：
前两天在qq群里看到有人问如何使用citectVBA取得昨天的日期，我看了一下CitectVBA资料，一个坏消息是没有日期加减计算的函数，一个好消息是excel里面丰富的日期时间函数可以计算昨天的日期，而且citect可以读取excel文件内容。当然可以在citectvba中通过if……then一大 阅读全文
posted @ 2021-02-22 12:20
来自金沙江的小鱼
阅读(159)
评论(0)
推荐(0)
摘要：
假设c盘根目录下有一个text.xlsx文件，希望得到R1C1的数值，那么在cicode编辑器写以下CitectVBA代码： Sub getdatafromexcel()Dim xlApp As ApplicationDim objwb As ObjectDim objst As ObjectDim 阅读全文
posted @ 2021-02-22 12:19
来自金沙江的小鱼
阅读(297)
评论(0)
推荐(0)
摘要：
比如我们有这样一个access表格 希望在citect中的MSFlexgrid控件显示信息时，是这样的排版 那么在前面讲access数据写入msflexgrid代码基础上可以写以下代码 Sub msflexgridMergerow()Dim InsertRowCount,colcount,i,j A 阅读全文
posted @ 2021-02-22 08:14
来自金沙江的小鱼
阅读(249)
评论(0)
推荐(0)
浙公网安备 33010602011771号