zm1313-CSDN博客

原创数据窗口检索前记录滚动条位置, 检索后恢复原位置

实例变量: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.Object.DataWindow.FirstRowOnPage = 1 // 设置第一个可见行号

2006-02-22 12:33:00 475

原创数据窗口滚动条位置

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.columnName.initial = "values" //设列初值

2006-02-22 12:23:00 587

原创数据窗口打印参数设置

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