Foxtable(狐表)用户栏目专家坐堂 → ListView做界面


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

主题:ListView做界面

帅哥哟,离线,有人找我吗?
cd_tdh
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
ListView做界面  发帖心情 Post By:2018/7/25 16:14:00 [只看该作者]

老师,在学习用ListView1做界面导航,示例有点没看懂,没做成功,麻烦老师看看,谢谢!

现在问题:1、图标不显示;

              2、代码添加不进去;

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/25 16:30:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/7/25 16:45:00 [只看该作者]

老师,可以显示,你在看看通过代码列,打开命令窗口,添加代码,不对呢。

另外怎么执行对应行的代码?

[此贴子已经被作者于2018/7/25 17:07:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/25 17:10:00 [只看该作者]

以下是引用cd_tdh在2018/7/25 16:45:00的发言:

老师,可以显示,你在看看通过代码列,打开命令窗口,添加代码,不对呢。

另外怎么执行对应行的代码?

[此贴子已经被作者于2018/7/25 17:07:14编辑过]

 

msgbox(e.sender.current.tag("名称"))
Functions.remove("函数")
Dim Code As String
Code = e.sender.current.tag("代码")
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")


 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/7/25 17:15:00 [只看该作者]

保存代码提示:

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180725171403.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/25 17:22:00 [只看该作者]

回复5楼,我测试没问题,可以正常打开。

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/7/25 17:25:00 [只看该作者]

打开没问题,只是添加代码时,写好代码,保存代码时出错。

 


图片点击可在新窗口打开查看此主题相关图片如下:2222222.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/25 20:07:00 [只看该作者]

'在命令窗口编辑后,保存代码
Dim code As String
Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm
Dim obj = frm.controls("SplitContainer1")
Dim editor = obj.panel1.controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
msgbox(editor.text)
CurrentTable.value = editor.text
frm.close

 回到顶部