帮忙了大侠！如何使数据窗口随着窗体大小的改变而做相应的改变！！！一点给分
如题！
能否给一点代码
谢谢各位了
分数好说
问题点数：100、回复次数：8Top
1 楼qinghe（青鹤）回复于 2003-05-01 15:24:50 得分 50
//返回数据窗口对象的最大尺寸
//a_dw为数据窗口对象（datawindow类型）
//lstr_size为结构体，有高度(height)和宽度(width)两个属性
integer li_col_count//列数
integer li_count
Integer li_width,li_height//宽度和高度
string ls_col_name//列名
str_size lstr_size
Integer li_header_height
li_col_count = Integer(a_dw.Describe("datawindow.column.count"))
lstr_size.width = 0
lstr_size.height = 0
If li_col_count = 0 Then Return lstr_size
li_header_height = Integer(a_dw.object.datawindow.header.height)//数据窗口的header高度
If IsNull(li_header_height) Then li_header_height = 0
For li_count = 1 To li_col_count
ls_col_name = a_dw.Describe("#" + string(li_count) + ".Name")
li_width = Integer(a_dw.Describe(ls_col_name+'.width')) + Integer(a_dw.DesCribe(ls_col_name+'.x'))
li_height= Integer(a_dw.Describe(ls_col_name+'.height')) + Integer(a_dw.Describe(ls_col_name+'.y'))
if li_height > lstr_size.height Then lstr_size.height = li_height
if li_width > lstr_size.width Then lstr_size.width = li_width
Next
lstr_size.height = lstr_size.height + li_header_height + 50
lstr_size.width = lstr_size.width + 50
Return lstr_sizeTop
2 楼qinghe（青鹤）回复于 2003-05-01 15:28:33 得分 0
你的问题很简单
在窗口的resize 事件中
dw_1.width = This.WorkSpaceWidth() - dw_1.x - 10
dw_1.Height = This.WorkSpaceHeight() - dw_1.y - 10Top
3 楼llllay（总是梦见她....）回复于 2003-05-01 15:29:04 得分 0
谢谢，等我试试！Top
4 楼panzhengl（bystreet）回复于 2003-05-01 23:46:07 得分 5
初学者的问题，很容易的！！Top
5 楼tchatcha（沧桑,孤独,浪漫,但执着!）回复于 2003-05-02 06:59:50 得分 5
应该不难看看PBPL内有代码或PFCTop
6 楼llllay（总是梦见她....）回复于 2003-05-02 08:54:02 得分 0
谢谢各位
结帐Top
7 楼poors（花自飘零水自流，此情无计可消除....）回复于 2003-05-02 08:55:20 得分 35
dw_1.width = This.WorkSpaceWidth() - dw_1.x - 10
dw_1.Height = This.WorkSpaceHeight() - dw_1.y - 10
qinghe(青鹤)的就可以了Top
相关问题
- 如何将数据库中的数据读到form窗体的相应textbox里?
- 窗体与窗体上的控件随分辨率的改变而相应改变大小，如何实现？
- 请问怎样才能让窗体中的控件随窗体大小的变化而相应的改变其大小呢？
- 窗体固定大小
- 改变窗体大小
- 窗体大小的问题
- 数据窗体问题???
- 一sql数据库中有3 个表。在一MDI窗体中有若干个子窗体。如何用ADO控件代码对数据库中的3 个表建立连接后，在子窗体中分别调用相应的连接。
- MSHFlexGrid显示数据，我希望当双击某一行时，能够捕捉是那一行，然后调用另外一个窗体显示出来.该窗体为数据录入窗体，并显示相应数据。因为是我新人,所以凡是回答问题的大哥,我都给分.非常急，今天就要交。
- 因为是我新人,所以凡是回答问题的大哥,我都给分.非常急.MSHFlexGrid显示数据，我希望当双击某一行时，能够捕捉是那一行，然后调用另外一个窗体显示出来.该窗体为数据录入窗体，并显示相应数据。
