这段代码怎么用PB实现?

dzbswl dzbswl 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Const SC_MAXIMIZE = &HF030&
Const SC_MINIMIZE = &HF020&
Const SC_SIZE = &HF000&
Const SC_MOVE = &HF010&
Sub User_Limit()
Dim hMenu As Long
Dim whwnd As Long
Dim wwhwnd As Long
whwnd = GetActiveWindow()
hMenu = GetSystemMenu(whwnd, 0)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
Call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
Call DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
Call DeleteMenu(hMenu, SC_SIZE, MF_BYCOMMAND)
Call DeleteMenu(hMenu, SC_MOVE, MF_BYCOMMAND)
End Sub
这是VB中的一段代码,我想在PB实现同样的功能,请帮忙
...全文

相关推荐

wombat

PDF document about an OSS linux.

deer8107

SQL Server数据库第一课:常用数据库介绍、数据库基本概念了解、登录SQL Server数据库的方法

知识点:常用数据库介绍、数据库的基本概念了解、登录SQL Server数据库、创建和管理SQL Server数据库 1. 常用数据库介绍 1.1 为什么需要数据库? 数据库,顾名思义就是存储数据的仓库,数据库最终的目的是存储数据。那么在数据库技术出现之前,我们是怎么存储数据的呢?(比如要记住家人的生日)我们可以依靠大脑记忆、写在纸上、有计算机以后可以写在计算机内存中、写成磁盘文件……...

逍遥小丸子

Wombat-开源

Wombat是一个Servlet引擎,它实现了Java(TM)Servlet API(版本2.3)的Perl形式。

Lin Sha

wombat:Wombat Atom 语法主题

袋熊 语法主题。 Vim 配色方案的 Atom 端口。 使用器从主题转换而来。 截屏

歪头羊

wombat256grf:修改的Vim Wombat配色方案

Vim的Wombat colorscheme 此colorcheme是Lars Nielsen制作的原始 colorscheme的fork /副本,已被移植到vim的GUI版本,并作了其他更改。 特征 大多数颜色略有变化,最显着的变化是: 搜索颜色从紫罗兰色变为橙色 注释为灰色而不是淡黄色 更改了diff颜色以使其不那么鲜艳 添加的颜色colorColumn颜色 为插件添加了适当的颜色 为插件添加了语法颜色 颜色方案概述 差异模式 安装 要安装它,可以使用任何种类的Vim软件包管理器,例如 , , 或 。 对于手动安装,请将子目录从此存储库复制到~/.vim目录。 要使用它,只需输入:colorscheme wombat256grf或添加以下行: ... " change colorscheme colorscheme wombat256grf ... 使它永久。 执照

陈崇礼
评论 9
收藏 已收藏
分享
返回顶部
dzbswl
PowerBuilder 1,111 成员 66,454 内容