[求助]关于pb的一些程序

xingye

免费乐捐，感谢支持

想请问pb程序中如果想实现菜单里有剪切、复制、粘贴，代码是什么？

还有如何能实现用户的权限控制，就是指怎样使不同的用户登录，能使用的功能做到不同呢？

ribut922

剪切、复制、粘贴就是对剪贴板的操作

剪切就是复制后删除

PB的函数

ClipBorad

功能：提取或替换Windows系统剪贴板的文件内容

语法：Clipborad({string})

参数：string类型，可选项，指定要复制到系统剪贴板上的文本。如果剪贴板上已有内容的话，该文本将取代剪贴板的当前内容

返回值：string，函数执行成功的话，如果 剪贴板上包含文本数据，那么函数返回剪贴板的当前内容；如果剪贴板上包含非文件数据（比如位图）或不包含任何数据，那么函数返回空字符串（"")

ribut922

这是PB里的原文件：

 

Description
Retrieves or replaces the contents of the system clipboard with text.
Syntax

Clipboard ( { string } )
Argument Description
string  (optional) A string whose value is the text you want to place in the clipboard. The string replaces the current contents of the clipboard, if any
Return value
String. Returns the current contents of the clipboard if the clipboard contains text. If string is specified, Clipboard returns the current contents and replaces it with string.
Returns the empty string ("") if the clipboard is empty or it contains nontext data, such as a bitmap. If string is specified, the nontext data is replaced with string. If string is NULL, Clipboard returns NULL.
Usage
You can use Syntax 1 with the Paste, Replace, or ReplaceText function to insert the clipboard contents in an editable control or StaticText control.

Calling Clipboard in a DataWIndow control or DataStore object 
To retrieve or replace the contents of the system clipboard with text from a DataWindow column, you must call Clipboard using the pronoun Super:: as follows:

Super::Clipboard("Employee Data")

The Super pronoun points to the system function version of the Clipboard function instead of using the DataWindow version. The DataWindow version of Clipboard, documented in Syntax 2, is only applicable to graphs.

ribut922

这是PB里的示例代码：

 

These statements put the contents of the clipboard in the variable ls_CoName:

string ls_CoName

ls_CoName = Clipboard()

The following statements place the contents of the clipboard in Heading, and then replace the contents of the clipboard with the string Employee Data:

string Heading

Heading = Clipboard("Employee Data")

The following statement replaces the selected text in the MultiLineEdit mle_terms with the contents of the clipboard:

mle_terms.ReplaceText(Clipboard())

The following statement exchanges the contents of the StaticText st_welcome with the contents of the clipboard:

st_welcome.Text = Clipboard(st_welcome.Text)