主题：【分享】打开窗口函数

【分享】打开窗口函数

 

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

 

 

 

 

此主题相关图片如下：错误提示.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"))

 

循环的目的是判断是否存在窗口