| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
ADSL如何秒变专线,公网IP盒子了解一下千里之行 始于足下
标题:菜单不需要独占一行?
只看楼主 加入收藏
su0527
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
结帖率:95.65%
  已结贴   问题点数:20  回复次数:11   
菜单不需要独占一行?
菜单内容较少,不想让其独占一行。想让菜单放在表单左上角,在表单中,但不要独占一行。如何能做到?


[此贴子已经被作者于2019-8-12 10:24编辑过]

搜索更多相关主题的帖子: 菜单 一行 内容 表单 
7 天前 09:20
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分:10 
应该可以加入到表单标题的菜单里
7 天前 10:54
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:江苏省连云港市
等 级:贵宾
威 望:188
帖 子:7794
专家分:19170
注 册:2012-2-5
  得分:5 
通过快捷菜单的方法达到楼主的需求,通俗的说用右键的方法解决这个问题

坚守VFP最后的阵地
7 天前 11:55
su0527
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
  得分:0 
回复 2楼 吹水佬
能具体点吗?
7 天前 12:18
gs2536785678
Rank: 8Rank: 8
等 级:贵宾
威 望:16
帖 子:308
专家分:911
注 册:2017-7-16
  得分:0 
朋友你可能是在顶层表单里加入的菜单吧?
如果菜单的内容太少了,那你可以改成工具栏
在项层表单里加入自定义工具栏,就能实现你的诉求。
7 天前 13:24
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:6656
专家分:29343
注 册:2014-5-20
  得分:0 
以下是引用su0527在2019-8-12 12:18:10的发言:

能具体点吗?

参考示例:


* 窗口标题系统菜单添加菜单项
* 点击窗口标题菜单或<Shift+右键>任务栏图标
*** test.prg ***
_screen.Visible = .F.
DECLARE LONG GetSystemMenu IN User32 LONG, LONG
DECLARE LONG AppendMenu IN User32 LONG, LONG, LONG, STRING@
DECLARE LONG SendMessage IN User32 LONG, LONG, LONG, LONG
of = CREATEOBJECT("form1")
of.show
READ EVENTS
RETURN

DEFINE CLASS form1 AS Form
    ShowWindow = 2
    AutoCenter = .T.
    PROCEDURE Init
        LOCAL hMenu
        hMenu = GetSystemMenu(this.hWnd, 0)
        AppendMenu(hMenu, 0, 0x1001, "菜单项1")
        AppendMenu(hMenu, 0, 0x1002, "菜单项2")
        AppendMenu(hMenu, 0, 0x1003, "菜单项3")
        BINDEVENT(this.hWnd, 0x0112, this, "myMenuCmd") && WM_SYSCOMMAND 0x0112
    ENDPROC
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
    PROCEDURE myMenuCmd(hWnd, Msg, wParam, lParam)
        DO CASE
        CASE wParam == 0x1001
            MESSAGEBOX("菜单项1")
        CASE wParam == 0x1002
            MESSAGEBOX("菜单项2")
        CASE wParam == 0x1003
            MESSAGEBOX("菜单项3")
        ENDCASE
        SendMessage(hWnd, Msg, wParam, lParam)
    ENDPROC
ENDDEFINE
附件: 您没有浏览附件的权限,请 登录注册
7 天前 15:09
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:390
专家分:896
注 册:2004-11-23
  得分:5 
也可以通过系统定义快捷菜单,也很方便,可在表彰上使用也可在桌面使用。
7 天前 18:23
wcx_cc
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:24
帖 子:235
专家分:589
注 册:2015-10-2
  得分:0 
6楼吹版主的方式,适用面广,稳定性可靠性强。
7 天前 23:04
su0527
Rank: 2
等 级:论坛游民
帖 子:406
专家分:74
注 册:2015-1-10
  得分:0 
使用快捷菜单的确可以实现,也能满足我的需求;
另外,吹版的我测试,显示如下:



附件: 您没有浏览附件的权限,请 登录注册
6 天前 06:01
schtg
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:30
帖 子:730
专家分:1039
注 册:2012-2-29
  得分:0 
回复 6楼 吹水佬
学习,谢谢!
6 天前 08:49







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019563 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved