以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两个问题请教,窗口的工具栏,XObject  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124419)
--  作者：jeeter
--  发布时间：2018/9/5 21:54:00
--  两个问题请教,窗口的工具栏,XObject

第一个问题: 窗口的工具栏的背景颜色怎么改? 默认是蓝色的有点难看.



第二个问题:类似这种xml要怎么样拿到name的值和s的值呢?

Dim xml As String = "<?xml version=""1.0""?><a name=""name1""><ss>内容.</ss></a>"
Dim xo As XObject = XObject.Parse(xml)
Output.Show(xo("a")("name"))
Output.Show(xo("a")("s"))






[此贴子已经被作者于2018/9/5 22:11:47编辑过]
--  作者：有点甜
--  发布时间：2018/9/5 22:15:00
--  

1、

 

Dim zcd = e.Form.Strips("主菜单").basecontrol
zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Dim m = e.Form.Strips("主菜单").Items("项目1").basecontrol
m.Font = new Font("黑体",12)
m.forecolor = color.red
m.backcolor = color.black

 

 

2、

 

Dim xml As String = "<xml><to name = \'name1\'>George</to><from>John</from></xml>"
Dim xo As XObject = XObject.Parse(xml)
msgbox(xo("to")("@name"))
\'For Each o As object In xo
\'msgbox(o.key)
\'msgbox(o.value("@name"))
\'Next