- 博客(33)
- 资源 (26)
- 收藏
- 关注
原创 数据窗口检索前记录滚动条位置, 检索后恢复原位置
实例变量:String is_old_VPositionString is_old_HPosition 数据窗口 RetrieveStart 事件:// 保存原始位置is_old_VPosition = THIS.Describe("DataWindow.VerticalScrollPosition") is_old_HPosition = THIS.Descri
2006-05-10 14:39:00 848
原创 PB实现仿QQ自动显示/隐藏窗口
本文拟结合POWERBUILDER语言,简述如何实现类似QQ的自动显示/隐藏窗口,即:鼠标移入时自动弹出窗口,鼠标移出后自动隐藏窗口,同时当隐藏窗口后实现WINDOWS操作系统启动画面时显示的不同颜色条滚动效果以提示用户。本文拟分以下四部分论述分三次完成:(一)基本思路(二)基础准备工作(三)自动显示/隐藏窗口功能实现(四)颜色条滚动效果实现一、基本思路
2006-04-04 17:06:00 1378
原创 利用PB实现树型列表动态半透明提示
本文拟结合POWERBUILDER语言,简述如何实现树型列表动态半透明提示,即鼠标移动到树型列表某一项ITEM时会动态提示,且为类似金山词霸的半透明提示效果。效果图见: 本文拟分以下四部分论述分三次完成:(一)基本思路(二)如何获取当前鼠标坐标对应NODE结点信息(三)半透明效果实现(四)气泡形状效果实现一、基本思路(一)在POWERBUILDE
2006-04-04 16:53:00 1242
原创 PB利用OLE操作WORD、EXCEL的函数
PB利用OLE操作WORD、EXCEL的函数可以查看WORD、EXCEL的帮助文件,里面关于WORD、EXCEL的编程信息非常详实,如果你的WORD、EXCEL帮助当中没有相关内容,重装OFFICE,选择相关安装内容即可,这个问题也属于老问题,很多朋友问此问题,下面以WORD当中Ole_Object.Selection.TypeText()这个例子,我抓了几张图,描述了具体如何查找
2006-04-04 16:44:00 1906
原创 将DW数据窗口导出为EXCEL文件(保留原数据类型)
鉴于现在很多朋友询问 pb 数据导出到excel 中的问题,导出去后格式和数据类型不对了,自己写了几个用户对象,希望能抛砖引玉,加强技术交流,得到大家的支持。1. nvo_excel 只要是两个接口函数导出数据存储的数据,可以定义 excel 的标题public function integer uf_toexcel (datastore ads_data, rea
2006-04-04 16:42:00 1540
原创 使用SETITEM后修改的各个单元格字体变成兰色,其他单元格仍保留黑色字体
string ls_modstring,ls_rows[]long ll_row,ll_col,ll_posfor ll_pos = 1 to long(dw_1.object.datawindow.column.count) ls_rows[ll_pos] = ""next dw_1.setredraw(false) //假设此处要修改第2行、第1列ll_row
2006-04-04 16:01:00 964
原创 鼠标单击TabSequence=0的单元格时黑色选中色变为其他颜色
1、首先将DW属性中的Column Moving 和Mouse Selection 两项取消选中;2、在 DW 的Clicked 事件中写代码: //此处声明所用到的相关变量; long ll_curcol,ll_pos,ll_cols string ls_modstring,ls_colname,ls_color_1,ls_color_2,ls
2006-04-04 15:50:00 901
原创 在DDDW中敲入字母时DDDW始终下拉状态
1、声明实例变量:boolean ib_show 2、声明外部函数:Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo) LIBRARY "user32.dll" 3、新建自定义事件:pbm_dwnkey代码如下:if Describe(GetColumnName() + ".Edi
2006-04-04 15:44:00 726
原创 在DW中按下左右光标时切换到相邻单元格
首先声明外部函数: Subroutine keybd_event(int bVk,int bScan,ulong dwFlags,ulong dwExtraInfo) LIBRARY "user32.dll" 一、如果不想在DW的单元格内利用左右键编辑内容,只要一按下左右键就切换到其他单元格的话可以: 新建ue_key 对应 pbm_dwnkey ,代码如下: if key=ke
2006-04-04 15:40:00 699
原创 打开指定URL网站
1、声明外部函数:FUNCTION ulong ShellExecute(ulong hwnd,string lpOperation,string lpFile,string lpParameters,string lpDirectory,ulong nShowCmd) LIBRARY "shell32.dll" ALIAS FOR "ShellExecuteA" 2、代码如下:lon
2006-04-04 15:36:00 587
原创 隐藏窗口的TITLE标题
1、把下列声明加到GLOBAL EXTERNAL FUNCTIONS: Function ulong SetWindowPos(ulong hwnd,ulong hWndInsertAfter,ulong x,ulong y,ulong cx,ulong cy,ulong wFlags) LIBRARY "user32.dll"Function ULong SetWindowLongA
2006-04-04 15:35:00 566
原创 PB中统计EXCEL文件的行列数
PB中统计EXCEL文件的行列数OLEObject OLE_MyExcel OLE_MyExcel =Create OLEObject OLE_MyExcel. ConnectToNewObject("excel.Application")OLE_MyExcel.visible=false OLE_MyExcel.Workbooks.Open("c:/xxx.xls
2006-04-04 15:10:00 828
原创 获得图片文件的图像尺寸大小
//====================================================================// 函数: of_getpicturesize()//--------------------------------------------------------------------// 描述: 获得图片文件的图像尺寸大小(支持GIF
2006-04-04 15:01:00 1306 2
转载 将DW中不同内容保存到EXCEL不同的SHEET当中
OLEObject excelapp excelapp = CREATE OLEObject IF excelapp.ConnectToNewObject("excel.application") messageBox(OLE错误,OLE无法连接!请检查您的EXCEL是否正确安装!) returnEND IFexcelapp.Workbooks.Addexce
2006-04-04 14:38:00 803
原创 在PB中实现透明DataWindow
1、简单一点的方法,先用一张大背景图放在WINDOW上,再用DW正好遮挡住的那部分图当作DATAWINDOW的背景图,且将该图置在DW的最底层,同时设各列的背景色为透明即可;该方法优点是比较简单,缺点是只适用于DW,其他控件不适用,如:LABEL、TEXT、COMMANDBUTTON等;2、麻烦一点的方法,用API的BITBLT,缺点是比较麻烦,优点是适用于绝大部分控件,效果图 本
2006-04-04 13:55:00 1108
原创 数据窗口动态下拉列表
// 数据窗口动态下拉列表dw_1.modify("列名.ddlb.AllowEdit = Yes")dw_1.modify("列名.values = 是~t是/否~t否/无~t9")// 如果你不允许allowedit,然后你再写一句dw_1.modify("列名.ddlb.AllowEdit = No")
2006-02-22 14:26:00 734
原创 数据窗口中的数据显示格式
//设置数据窗口中的数据显示格式dw_1.Modify("column_name.EditMask.Mask=###,###,###,###,###.00")dw_1.Modify("column_name.Edit.Format=##########0.00")dw_1.Modify("column_name.Format=##########0.00")// 数值型
2006-02-22 14:08:00 741
原创 数据窗口当前行是否为每页最后一行
//线在每页的最后一行才返回1, 否则返回0IF(GetRow() = Long(Describe("datawindow.LastRowOnPage")),1,0)
2006-02-22 14:00:00 752 1
原创 设置数据窗口SQL语句
dw_column.Modify("datawindow.table.select=~""+ls_sql+"~"") // ls_sql为完整的sql语句
2006-02-22 13:37:00 801
原创 数据窗口创建线
ls_line= "Create line(band = detail "+& " background.mode = 2 " +& " background.color = 16777215 " +&
2006-02-22 13:35:00 534
原创 数据窗口中动态创建计算列
dw_1.Modify("create compute(band = header.1" +&" color = 0 "+&" alignment = 1 "+&" border = 0 "+&" height.autosize = No "+&" pointer = Arrow! "+&" moveable = 0 "+&" resizeable =
2006-02-22 13:31:00 1351
原创 改变数据窗口各区的高度
// 改变detail区的高度dw_1.Modify("DataWindow.detail.Height=200")// 合计区dw_1.Modify("DataWindow.summary.Height=64")
2006-02-22 13:05:00 587
原创 动态设置某列为下拉数据窗口
/* 动态设置某列为下拉数据窗口 *//* * d_dddw_dep 数据窗口对象名称 * dept_name 列名 * dept_id 列名*/dw_1.Modify("department_id.DDDW.Name=d_dddw_dep ")dw_1.Modify("department_id.DDDW.DisplayColumn=dept_name ")dw_1.Modify("
2006-02-22 13:03:00 796
原创 数据窗口中某行计算列的值
// 得到数据窗口中计算列的值IF dw_1.Describe(column_name + .type) = compute THEN ls_value = dw_1.Describe("Evaluate(" + dw_1.Describe(column_name + .expression) + ","+string(row)+")")END IF
2006-02-22 12:59:00 655
原创 下拉数据窗口某列值
// 得到下拉数据窗口某列第n行的值dw_1.Describe ( "Evaluate(LookupDisplay(column_name),n)" ) // dw_1为下拉数据窗口
2006-02-22 12:51:00 587
原创 数据窗口列属性
// 列名,列名对应的TEXT文本dw_1.Describe("#"+string(列号)+".name") = ColumnName // i 为列号dw_1.Describe(ColumnName + "_t.text") = ColumnName_Texttab_no = integer(dw_find.describe("#"+ string(i)+".tabsequ
2006-02-22 12:45:00 632
原创 数据窗口总列数
// 数据窗口总列数dw_1.Object.DataWindow.Column.Count = ColCount dw_1.Describe("DataWindow.Column.Count") = ColCount
2006-02-22 12:42:00 1246
原创 数据窗保护
// 保护数据窗口不允许修改dw_1.Modify("DataWindow.ReadOnly=Yes") dw_1.Object.DataWindow.ReadOnly =Yesdw_1.Object.name.TabSequence= 0dw_1.Modify("columnname.TabSequence=0")// 用该方法时列虽不能被修改,但该列能得到焦点,上述的其它方法则
2006-02-22 12:36:00 495
原创 数据窗口滚动条位置
dw_1.Describe("DataWindow.VerticalScrollPosition") // 得到滚动条位置dw_1.DataWindow.VerticalScrollPosition = 100 // 设置位置
2006-02-22 12:32:00 923
原创 数据窗口中的列可修改
// 数据窗口中的列可修改dw_1.Object.DataWindow.Table.UpdateWhere = 0dw_1.object.column_name1.update = "yes"dw_1.object.column_name2.update = "yes"dw_1.Object.colum
2006-02-22 12:31:00 572
原创 数据窗口打印参数设置
dw_1.object.datawindow.print.preview = "yes" //打印预览dw_1.object.datawindow.print.preview.zoom = 25 //打印预览时的百分比大小dw_1.object.datawindow.print.margin.top = 100 //上页边距1厘米dw_1.object.d
2004-07-27 20:55:00 3356
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人