Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口控件


  共有2841人关注过本帖树形打印复制链接

主题：[求助]窗口控件
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]窗口控件  发帖心情 Post By：2018/1/17 10:22:00 [显示全部帖子]

老师 ，
   如图 这块控件是什么？带....是Panel  加的图片？

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180117102241.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/22 15:43:00 [显示全部帖子]

老师，
 定义工具栏单click事件 如何定义

Public Sub Strip_Click(ByVal sender As Object, ByVal e As EventArgs)
Functions.Execute("za_nb_Stripclick", sender,e)
End Sub



AddHandler Strip.ItemClick, AddressOf Strip_Click


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180222154249.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/22 16:00:00 [显示全部帖子]

老师，
 窗口上有PANL，想要加到PANL中去，还有NEW 的窗口，如何自定义添加？
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/22 16:26:00 [显示全部帖子]

哦 好了


[此贴子已经被作者于2018/2/22 16:31:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/22 22:18:00 [显示全部帖子]

老师，
  如何定义一个strips 然后添加到PANL中呢？例如下面的 都是错误 

            Dim p As WinForm.Panel=FormS(dr("ckname")).controls("pnl_cz_" & frmname & "_" & dr("id"))
            Dim Striptab As System.Windows.Forms.ToolStripMenuItem
            Striptab.Name = "Strip_" & p.Name.Trim("p","g","_")
            P.basecontrol.controls.add(Striptab)
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/23 10:22:00 [显示全部帖子]

老师，
  这块怎么写？  这是在NEW 出来的窗口中 sender

Dim StriptabName As String= "Strip_" & frmname & "_" & frmname
Dim Striptab As WinForm.Strip= sender.Strips.Add(StriptabName, StripTypeEnum.ToolBar)
sender.basecontrol.controls.add(Striptab.basecontrol)


.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.12.31.1
错误所在事件：自定义函数za_nb_stripafterLoad
详细错误信息：
调用的目标发生了异常。
未找到类型“EventArgs”的公共成员“sender”。
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/23 10:45:00 [显示全部帖子]

楼上代码可以实现 放在了new窗口的load 事件中 

进入系统 打开第一次能生成，点击第二次的时候，就会发生错误，Strips 生成了 在forms("窗口1")中看得见，
.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.12.31.1
错误所在事件：自定义函数za_nb_stripafterLoad
详细错误信息：
调用的目标发生了异常。
已添加了具有相同键的项。
是重复还是怎么的了？



Dim StriptabName As String= "Strip_" & frmname & "_" & frmname
Dim Striptab As WinForm.Strip= forms("serevmain").Strips.Add(StriptabName, StripTypeEnum.ToolBar)
sender.controls.add(Striptab.basecontrol)
sender. 也可以用vars("new出来的窗口"). 替换

这块怎么清除下呢？
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/23 10:57:00 [显示全部帖子]

关闭NEW窗口的时候 想要清除，怎么写呢？

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.12.31.1
错误所在事件：自定义函数za_nb_childform_Closing
详细错误信息：
调用的目标发生了异常。
未找到类型“ControlCollection”的公共成员“Strips”。

 vars("newform")(sender.name).controls.Strips.Clear()

或者

.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.12.31.1
错误所在事件：自定义函数za_nb_childform_Closing
详细错误信息：
调用的目标发生了异常。
未找到类型“Form”的公共成员“Strips”。

 vars("newform")(sender.name).Strips.Clear()
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/23 10:58:00 [显示全部帖子]

希望 除掉所有控件

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/2/23 12:06:00 [显示全部帖子]

老师，
 设置快捷键

itm.Items("New").ShortcutKeys = Keys.Control Or Keys.N

标注颜色的部分 是字符列 dr("ShortcutKeys")，如何转换为数值 
itm.Items("New").ShortcutKeys =dr("ShortcutKeys")  会出错

 dr("ShortcutKeys")，如何转换为数值列  怎么处理下呢

[此贴子已经被作者于2018/2/23 12:07:23编辑过]
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08203 秒, 5 次数据查询