以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 打开项目显示窗口控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147853) |
-- 作者:yangwenghd -- 发布时间:2020/3/25 21:17:00 -- 打开项目显示窗口控件 老师 ,为什么我吧这段代码放到项目事件的 afteropenproject 没有任何反应呢,感谢 感谢 If forms("提醒窗口").Opened=True Then forms("提醒窗口").Controls("PictureBox2").Visible = TrueDim pbx As WinForm.PictureBox pbx = Forms("提醒窗口").Controls("PictureBox2") pbx.Image = GetImage(ProjectPath & "\\Images\\登录图片\\眼睛科技感静.jpg") Forms("提醒窗口").Controls("PictureBox2").Dock = System.Windows.Forms.DockStyle.Fill End If |
-- 作者:狐狸爸爸 -- 发布时间:2020/3/26 8:01:00 -- If forms("提醒窗口").Opened=True Then \'为什么是True,窗口默认是没有打开的哦,前面有打开这个窗口的代码吗? MessageBox.show(“我执行了”) forms("提醒窗口").Controls("PictureBox2").Visible = TrueDim pbx As WinForm.PictureBox pbx = Forms("提醒窗口").Controls("PictureBox2") pbx.Image = GetImage(ProjectPath & "\\Images\\登录图片\\眼睛科技感静.jpg") Forms("提醒窗口").Controls("PictureBox2").Dock = System.Windows.Forms.DockStyle.Fill Else
MessageBox.show(“我没有执行”) End If [此贴子已经被作者于2020/3/26 8:02:12编辑过]
|
-- 作者:yangwenghd -- 发布时间:2020/3/26 9:45:00 -- 是的 老师,在前面有一一段弹出窗口的代码,我感觉到弹出提醒窗口后就没有执行后面的代码; 然后只有对窗口进行操作关闭后,才能执行后面的代码,而且是执行的 红色代码? 会不会是因为窗口是模式的原因。 Forms("提醒窗口").open() If forms("提醒窗口").Opened=True Then \'Forms("提醒窗口").Controls("Button30").PerformClick MessageBox.show("我执行了") forms("提醒窗口").Controls("PictureBox2").Visible = True Dim pbx As WinForm.PictureBox pbx = Forms("提醒窗口").Controls("PictureBox2") pbx.Image = GetImage(ProjectPath & "\\Images\\登录图片\\眼睛科技感静.jpg") Forms("提醒窗口").Controls("PictureBox2").Dock = System.Windows.Forms.DockStyle.Fill Else MessageBox.show("我没有执行") End If [此贴子已经被作者于2020/3/26 9:48:18编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/3/26 9:57:00 -- 这个提醒窗口是模式窗口,模式窗口只有关闭后才能执行后面的代码。 方法1、把执行代码放到模式窗口afterload 2、改为独立窗口
|
-- 作者:yangwenghd -- 发布时间:2020/3/26 10:18:00 -- 感谢老师,现在有个小问题,就是如果改为独立,后面的表格打开的时候就会跳出来,因为这个窗口是登陆窗口,但是又放到窗口事件里面。以后后面打开项目后也会用到这个窗口,所以有没办法在打开项目的时候执行,相对于在窗口项目的时候,和弹出窗口的代码以前执行,或者在窗口afterload判断,只有在打开项目的时候才执行,如果通过其他方式窗口窗口,就不执行,这样有可能吗?感谢老师,或者在项目afteropenproject打开窗口的同时执行窗口的某个按钮也就,把代码执行代码写入按钮里面,然后打开项目弹出模式窗口的时候也触动窗口的按钮。 [此贴子已经被作者于2020/3/26 10:25:18编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/3/26 11:09:00 -- 没有其他办法。模式窗口无法在外部使用,外面不可能调用模式窗口里面的东西的 |
-- 作者:yangwenghd -- 发布时间:2020/3/26 11:23:00 -- 老师,能帮忙看看这个吗?就是当表格没有显示的时候,然后执行下面的代码?放在模式窗口的afterload。感谢老师。 If BaseMainForm.Visible = False forms("提醒窗口").Controls("PictureBox2").Visible = True Dim pbx As WinForm.PictureBox pbx = Forms("提醒窗口").Controls("PictureBox2") pbx.Image = GetImage(ProjectPath & "\\Images\\登录图片\\眼睛科技感静.jpg") Forms("提醒窗口").Controls("PictureBox2").Dock = System.Windows.Forms.DockStyle.Fill End If |
-- 作者:有点蓝 -- 发布时间:2020/3/26 11:40:00 -- 去掉If BaseMainForm.Visible = False判断 |
-- 作者:yangwenghd -- 发布时间:2020/3/26 11:52:00 -- 感谢老师,这个为什么不能判断呀,显示if后面的有和没有都会执行后买到代码,可以是如果项目(表格)显示出来后,就不执行,只有在没有显示表格的情况下才这些,现在是表格有没显示都会被执行,我在项目的afteropenproject 放了一段BaseMainForm.Visible = False,放在打开窗口前的代码, 然后打开窗口的时候判断表格是否打开,打开的状态不执行,没有打开才执行。
|
-- 作者:有点蓝 -- 发布时间:2020/3/26 13:31:00 -- 没搞懂到底要干嘛 |