source_dir/documentation/Examples/Menu.pb.html · PureBasic/PureBasicPreference

代码拉取完成,页面将自动刷新

开源项目 > 其他开源 > 图书/手册/教程 &&

richgiteeai

Watch

不关注关注所有动态仅关注版本发行动态关注但不提醒动态

6 Star 9 Fork 3

PureBasic/PureBasicPreference

代码 Issues 0 Pull Requests 0 Wiki 统计流水线

服务

加入 Gitee

与超过 1400万开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)

免费加入

已有帐号? 立即登录

文件

master

分支 (1)

管理

master

克隆/下载

HTTPS SSH SVN SVN+SSH 下载ZIP

提示

下载代码请复制以下命令到终端执行

为确保你提交的代码身份被 Gitee 正确识别,请执行以下命令完成配置

git config --global user.name userName 
git config --global user.email userEmail

初次使用 SSH 协议进行代码克隆、推送等操作时,需按下述提示完成 SSH 配置

1 生成 RSA 密钥

2 获取 RSA 公钥内容,并配置到 SSH公钥中

在 Gitee 上使用 SVN,请访问使用指南

使用 HTTPS 协议时,命令行会出现如下账号密码验证步骤。基于安全考虑,Gitee 建议配置并使用私人令牌替代登录密码进行克隆、推送等操作

Username for 'https://gitee.com': userName

Password for 'https://userName@gitee.com': # 私人令牌

分支 1

标签 0

PureBasicPreference

source_dir

documentation

Examples

Menu.pb.html

Menu.pb.html 4.23 KB

<html><head><title>Menu.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre>;
; ------------------------------------------------------------
;
; PureBasic - Menu example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;

;
; We just have to open a window and see when an event happen on the menu
;

If OpenWindow(0, 100, 150, 195, 260, &quot;PureBasic - Menu&quot;)

;
 ; Create the menu. The indent is very important here for a good lisibility
 ;

 If CreateMenu(0, WindowID(0))
 MenuTitle(&quot;File&quot;)
 MenuItem( 1, &quot;&amp;Load...&quot;)
 MenuItem( 2, &quot;Save&quot;)
 MenuItem( 3, &quot;Save As...&quot;)
 MenuBar()
 OpenSubMenu(&quot;Recents&quot;)
 MenuItem( 5, &quot;Pure.png&quot;)
 MenuItem( 6, &quot;Basic.jpg&quot;)
 OpenSubMenu(&quot;Even more !&quot;)
 MenuItem( 12, &quot;Yeah&quot;)
 CloseSubMenu()
 MenuItem( 13, &quot;Rocks.tga&quot;)
 CloseSubMenu()
 MenuBar()
 MenuItem( 7, &quot;&amp;Quit&quot;)

MenuTitle(&quot;Edition&quot;)
 MenuItem( 8, &quot;Cut&quot;)
 MenuItem( 9, &quot;Copy&quot;)
 MenuItem(10, &quot;Paste&quot;)
 
 MenuTitle(&quot;?&quot;)
 MenuItem(11, &quot;About&quot;)

EndIf
 
 DisableMenuItem(0, 3, 1)
 DisableMenuItem(0, 13, 1)
 
 ;
 ; This is the 'event loop'. All the user actions are processed here.
 ; It's very easy to understand: when an action occurs, the Event
 ; isn't 0 and we just have to see what have happened...
 ;
 
 Repeat

Select WaitWindowEvent()

Case #PB_Event_Menu

Select EventMenu() ; To see which menu has been selected

 Case 11 ; About
 MessageRequester(&quot;About&quot;, &quot;Cool Menu example&quot;, 0)
 
 Default
 MessageRequester(&quot;Info&quot;, &quot;MenuItem: &quot;+Str(EventMenu()), 0)

EndSelect

Case #PB_Event_CloseWindow
 Quit = 1

EndSelect

Until Quit = 1

EndIf

End </pre>
</body></html>

一键复制编辑原始数据按行查看历史

麦壳饼提交于 2016年07月21日 13:08 +08:00 . chuci

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

<html><head><title>Menu.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">; PureBasic - Menu example file
</font><font color="#3A3966">;
</font><font color="#3A3966">; (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
<font color="#3A3966">;
</font><font color="#3A3966">; We just have to open a window and see when an event happen on the menu
</font><font color="#3A3966">;
</font>
<b><font color="#3A3966">If</font></b> <font color="#3A3966">OpenWindow</font>(0, 100, 150, 195, 260, &quot;PureBasic - Menu&quot;)

 <font color="#3A3966">;
</font> <font color="#3A3966">; Create the menu. The indent is very important here for a good lisibility
</font> <font color="#3A3966">;
</font>
 <b><font color="#3A3966">If</font></b> <font color="#3A3966">CreateMenu</font>(0,<font color="#3A3966"> WindowID</font>(0))
<font color="#3A3966"> MenuTitle</font>(&quot;File&quot;)
<font color="#3A3966"> MenuItem</font>( 1, &quot;&amp;Load...&quot;)
<font color="#3A3966"> MenuItem</font>( 2, &quot;Save&quot;)
<font color="#3A3966"> MenuItem</font>( 3, &quot;Save As...&quot;)
<font color="#3A3966"> MenuBar</font>()
<font color="#3A3966"> OpenSubMenu</font>(&quot;Recents&quot;)
<font color="#3A3966"> MenuItem</font>( 5, &quot;Pure.png&quot;)
<font color="#3A3966"> MenuItem</font>( 6, &quot;Basic.jpg&quot;)
<font color="#3A3966"> OpenSubMenu</font>(&quot;Even more !&quot;)
<font color="#3A3966"> MenuItem</font>( 12, &quot;Yeah&quot;)
<font color="#3A3966"> CloseSubMenu</font>()
<font color="#3A3966"> MenuItem</font>( 13, &quot;Rocks.tga&quot;)
<font color="#3A3966"> CloseSubMenu</font>()
<font color="#3A3966"> MenuBar</font>()
<font color="#3A3966"> MenuItem</font>( 7, &quot;&amp;Quit&quot;)

<font color="#3A3966"> MenuTitle</font>(&quot;Edition&quot;)
<font color="#3A3966"> MenuItem</font>( 8, &quot;Cut&quot;)
<font color="#3A3966"> MenuItem</font>( 9, &quot;Copy&quot;)
<font color="#3A3966"> MenuItem</font>(10, &quot;Paste&quot;)
 
<font color="#3A3966"> MenuTitle</font>(&quot;?&quot;)
<font color="#3A3966"> MenuItem</font>(11, &quot;About&quot;)

 <b><font color="#3A3966">EndIf</font></b>
 
<font color="#3A3966"> DisableMenuItem</font>(0, 3, 1)
<font color="#3A3966"> DisableMenuItem</font>(0, 13, 1)
 
 <font color="#3A3966">;
</font> <font color="#3A3966">; This is the 'event loop'. All the user actions are processed here.
</font> <font color="#3A3966">; It's very easy to understand: when an action occurs, the Event
</font> <font color="#3A3966">; isn't 0 and we just have to see what have happened...
</font> <font color="#3A3966">;
</font> 
 <b><font color="#3A3966">Repeat</font></b>

 <b><font color="#3A3966">Select</font></b> <font color="#3A3966">WaitWindowEvent</font>()

 <b><font color="#3A3966">Case</font></b> <font color="#924B72">#PB_Event_Menu</font>

 <b><font color="#3A3966">Select</font></b> <font color="#3A3966">EventMenu</font>() <font color="#3A3966">; To see which menu has been selected
</font>
 <b><font color="#3A3966">Case</font></b> 11 <font color="#3A3966">; About
</font><font color="#3A3966"> MessageRequester</font>(&quot;About&quot;, &quot;Cool Menu example&quot;, 0)
 
 <b><font color="#3A3966">Default</font></b>
<font color="#3A3966"> MessageRequester</font>(&quot;Info&quot;, &quot;MenuItem: &quot;+<font color="#3A3966">Str</font>(<font color="#3A3966">EventMenu</font>()), 0)

 <b><font color="#3A3966">EndSelect</font></b>

 <b><font color="#3A3966">Case</font></b> <font color="#924B72">#PB_Event_CloseWindow</font>
 Quit = 1

 <b><font color="#3A3966">EndSelect</font></b>

 <b><font color="#3A3966">Until</font></b> Quit = 1

<b><font color="#3A3966">EndIf</font></b>

<b><font color="#3A3966">End</font></b> </font></pre>
</body></html>