【分享】打开窗口函数

 改动窗口名称后，如果一些按钮来不及修改，老是出错，郁闷。

此主题相关图片如下：错误提示.jpg

自己写了给个小函数，只提示以下信息！分享之

此主题相关图片如下：打开窗口.jpg

代码如下：

\'打开窗口函数 
Dim ckmc As String = Args(0)
Dim pd As Integer = 0
For Each ck As  WinForm.Form  In  Forms
    If ck.Name.Contains(ckmc) Then
        pd = 6
        Forms(ckmc).open()
    End If
Next
If pd <> 6 Then
    MessageBox.Show("【" & ckmc & "】不存在!","",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

用法：

Functions.Execute("打开窗口函数","测试窗口")     注：红字为拟打开窗口名称！

其实不用循环

msgbox(Forms.Contains("窗口1"))