| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3248 人关注过本帖
标题:菜单不需要独占一行?
只看楼主 加入收藏
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
结帖率:96.03%
收藏
已结贴  问题点数:20 回复次数:12 
菜单不需要独占一行?
菜单内容较少,不想让其独占一行。想让菜单放在表单左上角,在表单中,但不要独占一行。如何能做到?


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

搜索更多相关主题的帖子: 菜单 一行 内容 表单 
2019-08-12 09:20
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:10 
应该可以加入到表单标题的菜单里
2019-08-12 10:54
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
通过快捷菜单的方法达到楼主的需求,通俗的说用右键的方法解决这个问题

坚守VFP最后的阵地
2019-08-12 11:55
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
收藏
得分:0 
回复 2楼 吹水佬
能具体点吗?
2019-08-12 12:18
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:610
专家分:1784
注 册:2017-7-16
收藏
得分:0 
朋友你可能是在顶层表单里加入的菜单吧?
如果菜单的内容太少了,那你可以改成工具栏
在项层表单里加入自定义工具栏,就能实现你的诉求。
2019-08-12 13:24
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册: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
2019-08-12 15:09
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:391
专家分:896
注 册:2004-11-23
收藏
得分:5 
也可以通过系统定义快捷菜单,也很方便,可在表彰上使用也可在桌面使用。
2019-08-12 18:23
wcx_cc
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:52
帖 子:371
专家分:1157
注 册:2015-10-2
收藏
得分:0 
6楼吹版主的方式,适用面广,稳定性可靠性强。
2019-08-12 23:04
su0527
Rank: 2
等 级:论坛游民
帖 子:452
专家分:79
注 册:2015-1-10
收藏
得分:0 
使用快捷菜单的确可以实现,也能满足我的需求;
另外,吹版的我测试,显示如下:
图片附件: 游客没有浏览图片的权限,请 登录注册



2019-08-13 06:01
schtg
Rank: 12Rank: 12Rank: 12
来 自:Usa
等 级:贵宾
威 望:67
帖 子:1735
专家分:3329
注 册:2012-2-29
收藏
得分:0 
回复 6楼 吹水佬
学习,谢谢!
2019-08-13 08:49
快速回复:菜单不需要独占一行?
数据加载中...
 
   



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

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