主题：提示窗口

老师，上传实例有点不方便，就两段代码，再把问题说一下请您看看。

 

If e.OldRange.ColSel <> e.NewRange.ColSel                     判断是不是原来的列
    Dim c As Col  = e.Table.Cols(e.NewRange.ColSel)
    Select Case c.name
        Case "辍学分类"                                                        进入这一列，一切正常。
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(0)("控辍保学")
        Case "当前状态"                                             进入这一列，窗口打开，内容也显示。但一闪即关闭了。
            Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(1)("控辍保学")
           
        Case "劝学措施"                                              进入这一列，窗口打开，内容也显示。但一闪即关闭了。
             Forms("信息").Show
            Dim rtxt = Forms("信息").Controls("Panel1").basecontrol.Controls("mytxt")
            rtxt.ForeColor = color.Blue
            rtxt.text = Tables("提示信息").Rows(2)("控辍保学")
           
            Case  Else
             Forms("信息").Close
    End Select
End If

 

 

窗口"信息"的AfterLoad事件代码

Dim rtxt As New System.Windows.Forms.RichTextBox     '新建一个第三方控件
UtilsSetLineSpace.SetLineSpace(rtxt, 400)    '设置行间距
rtxt.name = "mytxt"                       '设置控件名称
rtxt.Dock = 5                           '设置控件停靠属性
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)           '把控件添加入Panel1
rtxt.Multiline = True

新建项目，重现同样的问题，把新项目发上来。

请给看一下问题出在哪了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:提示信息显示.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip