VBA - 纪小年

2023/04/01

使用Visual Studio开发WINCC或FTView SE的.Net控件（二）

在上一篇文章末尾后记中记录了RA FTView SE控件事件的响应方法，我在后续制作控件的时候，发现事件参数的传递需要有特定的编写方式，记录一下： VS控件事件事件编写如下：

<DefaultEvent("MenuItemClick")>
Public Class KNavMenu
    Inherits TreeView

    Public Event MenuItemClick As EventHandler

    Private Sub ShowSelectedNode()
        Dim args As New ThresholdReachedEventArgs With {
            .nodeName = SelectedNode.Name,
            .nodePath = SelectedNode.FullPath,
            .nodeIndex = SelectedNode.ToolTipText
        }
        RaiseEvent MenuItemClick(SelectedNode, args)
    End Sub
End Class
Class ThresholdReachedEventArgs
    Inherits EventArgs
    Public Property nodeName As String
    Public Property nodePath As String
    Public Property nodeIndex As Integer
End Class

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

<DefaultEvent("MenuItemClick")>

Public Class KNavMenu

Inherits TreeView

Public Event MenuItemClick As EventHandler

Private Sub ShowSelectedNode()

Dim args As New ThresholdReachedEventArgs With {

.nodeName = SelectedNode.Name,

.nodePath = SelectedNode.FullPath,

.nodeIndex = SelectedNode.ToolTipText

}

RaiseEvent MenuItemClick(SelectedNode, args)

End Sub

End Class

Class ThresholdReachedEventArgs

Inherits EventArgs

Public Property nodeName As String

Public Property nodePath As String

Public Property nodeIndex As Integer

End Class

SE中配置 ...

0

网络新鲜事

2023/02/08

ChatGPT在PLC编程中的应用

ChatGPT的自我介绍我想写一篇关于你的博客文章，应该怎么写呢您可以写一篇介绍 OpenAI 的 GPT-3 模型的博客文章，以下是一些建议：介绍 OpenAI: 介绍 OpenAI 的使命和愿景，以及它是如何在人工智能领域的发展中起...

0

VB

2020/02/29

EXCEL通过VBA生成小学生混合加减法数学题

孩子荣升小学，数学题目也学习到20以内混合加减法，为了孩子能熟练掌握数学基础运算，给孩子每日练习100道算数题目。网上有用 randbetween 函数来实现的，如下面的链接内的方法： https://jingyan.baidu.com/article/...

0

AB

2016/12/22

FactoryTalk View Site Edition的VBA基本应用

第一节在VBA中标签的读取和写入本例要达到的目标是通过FactoryTalk View Site Edition（以下简称SE）的VBA来访问PLC中的下位标签，并实现标签的读写。 1.准备工作打开SE，选择应用程序类型（本例是Site Editio...

0

AB

2016/12/22

FactroryTalk View SE使用VBA的小技巧

一、用户登陆在SE中使用VBA时，调用SE内部命令的方法

Application.Login name,password
If Application.CurrentUserName = name then
Application.ExecuteCommand("Display xxxx")
End If

1

2

3

4

Application.Login name,password

If Application.CurrentUserName = name then

Application.ExecuteCommand("Display xxxx")

End If

二、根据PLC变量弹出窗体如果想实现PLC控制器里某个标签发生变化，则弹出某个提示界面，同样可以使用这个功能。比如控制器里面有个...

标签： VBA

使用Visual Studio开发WINCC或FTView SE的.Net控件（二）

ChatGPT在PLC编程中的应用

EXCEL通过VBA生成小学生混合加减法数学题

FactoryTalk View Site Edition的VBA基本应用

FactroryTalk View SE使用VBA的小技巧

最新文章

最新评论

标签云