PB技巧3例(如何获取当前的工作路径、将已经建好的Grid类型转为Tabular类型、右键弹出菜单的编程):
1、PB如何获取当前的工作路径
当前程序的运行路径是比较重要的一项,开发应用软件时需要注意,程序要根据用户的安装情况自己检测当前的路径。所以,获取当前路径是应用程序开发中肯定会用到的。
首先定义一个扩展函数,可以是全局的外部扩展函数。
Function uLong GetModuleFileNameA(long hinstModule, Ref String lpszPath, uLong cchPath) Library "kernel32.dll"
然后定义全局变量:
String gs_workPath
然后在Application的Open事件中编写如下程序:
long ll_RC
long ll_apphandler
ll_apphandler = handle(GetApplication())
ls_AppPath = Space(256)
ll_RC = GetModuleFileNameA(ll_apphandler, gs_WorkPath, 256)
IF (ll_RC = 0) THEN ls_AppPath = ""
messagebox("应用程序路径", gs_Workpath)
------------------------------------------------------------------------------------------------------------------------
2、PB将已经建好的Gri