以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable 菜单变化原理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113062)

--  作者:wei0769
--  发布时间:2018/1/8 14:01:00
--  foxtable 菜单变化原理


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

图片点击可在新窗口打开查看此主题相关图片如下:18.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/1/8 14:02:17编辑过]

--  作者:有点甜
--  发布时间:2018/1/8 14:19:00
--  

1、不用控制就可以的。系统菜单,当不够地方显示的时候,就会显示成下拉的方式。

 

2、参考

 

http://www.foxtable.com/webhelp/scr/0348.htm

 

所有属性,如下

 

    public static ulong AvailablePhysicalMemory { get; }
    public static string ChineseScript { get; }
    public static string ComputerName { get; }
    public static string ConnectName { get; }
    public static string ConnectType { get; }
    public static string ConvertScript { get; }
    public static string FileIdentify { get; }
    public static string FormatCode { get; }
    public static string ImportsStrings { get; }
    public static string OSFullName { get; }
    public static string OSVersion { get; }
    public static string PublishFiles { get; }
    public static string referFiles { get; }
    public static float ScreenDpiX { get; }
    public static float ScreenDpiY { get; }
    public static long ScreenHeight { get; }
    public static long ScreenWidth { get; }
    public static string SourceString10 { get; }
    public static string SourceString4 { get; }
    public static string spaceNames { get; }
    public static ulong TotalPhysicalMemory { get; }
    public static string UserName { get; }
    public static long WorkingAreaHeight { get; }
    public static long WorkingAreaWidth { get; }


--  作者:wei0769
--  发布时间:2018/1/8 14:44:00
--  

不好意思,不知道怎样用,看什么基础资料,推荐下

[此贴子已经被作者于2018/1/8 14:45:36编辑过]

--  作者:有点甜
--  发布时间:2018/1/8 15:01:00
--  
以下是引用wei0769在2018/1/8 14:44:00的发言:

不好意思,不知道怎样用,看什么基础资料,推荐下

[此贴子已经被作者于2018/1/8 14:45:36编辑过]

 

比如

 

Dim s = SysInfo.ComputerName
msgbox(s)


--  作者:wei0769
--  发布时间:2018/1/8 15:48:00
--  

你列出来的属性合部是  sysinfo 的属性是吗?能不能用中文表时是什么意思

 


--  作者:有点甜
--  发布时间:2018/1/8 16:22:00
--  

自己output看看,看哪些是自己需要的

 

output.show(sysinfo.AvailablePhysicalMemory)
output.show(sysinfo.ChineseScript )
output.show(sysinfo. ComputerName )
output.show(sysinfo. ConnectName )
output.show(sysinfo. ConnectType )
output.show(sysinfo. ConvertScript)
output.show(sysinfo. FileIdentify )
output.show(sysinfo. FormatCode )
output.show(sysinfo. ImportsStrings)
output.show(sysinfo. OSFullName )
output.show(sysinfo. OSVersion )
output.show(sysinfo. PublishFiles)
output.show(sysinfo. referFiles )
output.show(sysinfo. ScreenDpiX )
output.show(sysinfo. ScreenDpiY )
output.show(sysinfo.ScreenHeight )
output.show(sysinfo. ScreenWidth )
output.show(sysinfo. SourceString10)
output.show(sysinfo. SourceString4 )
output.show(sysinfo. spaceNames )
output.show(sysinfo.TotalPhysicalMemory )
output.show(sysinfo. UserName )
output.show(sysinfo. WorkingAreaHeight )
output.show(sysinfo.WorkingAreaWidth )


--  作者:wei0769
--  发布时间:2018/1/8 16:36:00
--  
如果隐藏了,原来的事件是怎样加入去的
1楼第一个图
[此贴子已经被作者于2018/1/8 16:36:07编辑过]

--  作者:有点甜
--  发布时间:2018/1/8 16:54:00
--  
以下是引用wei0769在2018/1/8 16:36:00的发言:
如果隐藏了,原来的事件是怎样加入去的
1楼第一个图
[此贴子已经被作者于2018/1/8 16:36:07编辑过]

 

用代码visible=false隐藏起来的菜单,你无法再点击。

 

如果是因为窗口变小,自动隐藏到下拉那里的菜单,可以正常点击运行。

 

如果你不想设置visible=false,你可以删除那些代码。


--  作者:wei0769
--  发布时间:2018/1/8 22:48:00
--  
系统菜单 功能组自带收缩功能,原来不用自己设计,按着做就好