随笔分类 - citectVBA
摘要：前面的博客记录了mschart绘制曲线，今天练习使用owc chart绘制曲线，先从最简单的开始——绘制一条曲线，数据来源是数组，是简单的等比例数组。假设画面上添加了一个microsoft office chart 11.0控件，这个控件在office较早版本安装程序里面是有的，安装完之后在cite
阅读全文
摘要：昨天的博客记录了使用citectVBA脚本如何设置mschart画一条曲线，很多情况下我们不只需要一条，可能要画多条曲线，今天的练习，使用citectVBA画两条曲线。数据源还是listview控件，为了让不同数据的曲线更加分明，我把两组数据差距设置的比较明显，如下图所示。 新建以下脚本 Sub C
阅读全文
摘要：以前在学习wincc vbs的时候，使用mschart结合listview控件做过曲线图的练习。在citect中使用citectVBA也可以实现制作曲线图的功能。 假设有这样一个初始化后的listview控件，访问名是chart_AN4 页面上插入一个mschart控件，访问名姿势chart_AN7
阅读全文
摘要：前面的博客记录了如何用citectVBA脚本给listview控件列标题添加图标，通过脚本还可以给subitems添加图标。 先写以下脚本，注意红色部分 Sub listviewIniAddicon() Dim i As Integer main_AN4.View =3 '设置外观为报表形式 mai
阅读全文
摘要：前面的博客记录了如何初始化listview，如何添加列标题和内容，如果我们希望listview好看一点，可以给列标题加上图标。先从网上随意找一些icon图标，在页面上插入microsoft imagelist控件，假设这个控件的访问名是main_AN16。将刚才找到的图标逐个插入 可以看到每个ico
阅读全文
摘要：listview内容生成后，有时候希望使用过程中能够交换列的顺序，可以设定.allowcolumnorder属性值为true Sub listviewIniAllowColumnReorder() Dim i As Integer main_AN4.View =3 '设置外观为报表形式 main_A
阅读全文
摘要：listview填充数据后，有时会希望能够点击列标题排序。假设有这样listview控件，画面名称是page2，控件访问名是page2_AN6 如果希望那个点击列标题排序，那么添加以下脚本 Sub page2_AN6_ColumnClick(Byval item As ColumnHeader) p
阅读全文
摘要：前面的博客记录了listview初始化、添加checkbox的脚本设置。如果我们希望能够删除listview指定的行，可以按照以下思路：首先计算勾选了多少行，接下来判断勾选的行数是不是大于0，如果大于0，就循环一下过程，直到勾选行数为0：让行号为1，如果当前行被勾选，就删除当前行，行号不变，勾选行数
阅读全文
摘要：今天在vejio citect2015做练习，有两个页面，一个是page1，一个是page2，上面都有一个控件AN4，l两个页面AN4的访问名分别是page1_AN4和page2_AN4.最开始只有page1时候，写完citectVBA脚本编译没有问题，后来增加了page2，编译总是提示not de
阅读全文
摘要：前面的博客记录了如何设置listview控件，使其带有checkbox，可以多选。有时候我们希望不要多选，只能单选，那么对listview控件的ItemCheck事件写脚本，就能实现这个功能。假设页面名字是page1，listview控件的访问名是page1_AN4，那么该控件的ItemCheck事
阅读全文
摘要：listview控件有一个checkbox属性，可以在编辑状态设置，也可以在脚本里面设置，下面的脚本演示了如何在脚本中加粗文字设置显示checkbox。 Sub ListViewAddcheckbox() Dim i As Integer page1_AN4.View =3 '设置外观为报表形式 p
阅读全文
摘要：很久没有学习练习citect软件的控件使用了，今天开始ListView练习。以前做过wincc下VBS脚本操作listview，换到citect的CitectVBA语法，有点不一样。 新建一个页面main，插入listView控件，访问名是main_AN4，再放置一个按钮控件。新建一个citectV
阅读全文
摘要：这段时间一直在练习citect使用citectVBA语句通过ADO连接sql server数据库，数据库是微软免费版本的sqlexpress。最开始使用 strcon = "Provider = SQLOLEDB.1;password = 3390011;user id = sa;Initial C
阅读全文
摘要：最近手上项目需要从citectVBA调用cicode函数，经过QQ群热心网友指点，知道了使用CicodeCallOpen("CitectVBA函数名字")来调用，如果需要返回值，就使用 变量名=CicodeCallOpen("CitectVBA函数名字")
阅读全文
摘要：前面的博客记录了初始化Citext.ComboBox控件选项，这几篇记录如何知道使用者选择了哪一项。假设Citext.ComboBox控件访问名依然是main_AN17。在cicode编辑器中添加以下CitectVBA代码 Sub SelComboBox()msgbox "您选择的是第" & Cst
阅读全文
摘要：citect有一个Citext.ComboBox控件，是下拉列表款，后面的练习中，我会使用这个控件做较复杂的条件查询，这一篇先练习初始化控件，填入选项数据。在页面上插入一个Citext.ComboBox控件，假设其访问名是main_AN17。在cicode编辑器中插入以下citectVBA脚本： S
阅读全文
摘要：前一篇博客记录了如何从sql数据库表中读取记录显示在msflexgrid控件中，这一篇记录如何向sqlserver写数据。在citect建立三个本地标签flow1,flow2,flow3 在cicode编辑器写下面的脚本 Sub AddRecordToSQLDB()Dim conn As Objec
阅读全文
摘要：本练习是在sql server2008R2上进行。假设有一个数据库CitectDB，虾米啊有一个数据表Rpt1，有如下数据： 在citect上有一个msflexgrid控件，访问名是main_AN4，在项目管理器的cicode编辑器上写如下citectVBA代码： Sub SqlTableTomsf
阅读全文
摘要：前面的博客记录了连接excel、access数据表的方法，今天实验了一下连接sql server数据表，语句都是类似的。我在计算机上安装了sql server 2008R2 EXPRESS版本，也就是所谓的官方免费版本，连接数据库使用windows系统帐户和sql登录两种方式，给sa账户设置密码12
阅读全文
摘要：前面的博客记录了判断某个程序（比如计算器）是不是已经打开。这一篇博客进一步，如果程序打开了就关闭它，如果程序没有打开就打开它。 Sub killoropenprocess()Dim strComputer As stringDim objWMIService As ObjectDim colProc
阅读全文
浙公网安备 33010602011771号