怎样让函数能够接受一个对象参数? public function(argObj as object) as boolean end function 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 回复人: jsxxxly(新手) ( ) 信誉:100 2002-3-12 13:17:22 得分:0 好像不行吧,传个对象试试 你为什么这先试试?真是新手! 给你一个函数的例子 F As MSHFlexGrid 指的表格控件'*********************************************************'* 名称:FlexRedraw'* 功能:表格的标题行(首行)的格式化'* 用法:FlexRedraw(控件名)'*********************************************************Public Function FlexRedraw(F As MSHFlexGrid) As String With F .Redraw = False '禁止重画,防止闪动 .BackColorFixed = RGB(190, 218, 178) '标题行背景色 .Row = 0 '设置标题行文字的对其方式 .Col = 0 .ColSel = .Cols - 1 .CellForeColor = vbBlue '标题行文字颜色 .CellAlignment = 4 '对其方式为中间中间 .ScrollTrack = True '移动滚动条的同时数据也滚动 For I = .FixedRows To .Rows - 1 '单双行表格条纹背景色显示 .Row = I '选择第I行 .Col = .FixedCols .ColSel = .Cols - 1 If I / 2 = Int(I / 2) Then '判断是单是双 .CellBackColor = RGB(224, 248, 224) '双行的底色 Else .CellBackColor = RGB(240, 248, 224) '单行的底色 End If Next I .Row = 1 .Col = 1 .ColSel = .Cols - 1 .Redraw = True '允许重画,显示表格 End WithEnd Function winsock的具体应用。 大侠们,现在求一个简单的截图工具,只要能截桌面的图就行了,,... dll文件调用问题 请教高手? 谁来帮大漠写一条Sql语句? 为超过20000分散分。今日17:00结贴。 麻烦各位?关于水晶报表的问题?? 字体的显示问题 大家进来看看吧 请指点编程识别U盘特征的思路,有源码更好 如何删除临时表(SQL Server) 各位高手:如何用程序导出(导入)指定的注册表项及子项?
好像不行吧,传个对象试试 你为什么这先试试?
真是新手!
'*********************************************************
'* 名称:FlexRedraw
'* 功能:表格的标题行(首行)的格式化
'* 用法:FlexRedraw(控件名)
'*********************************************************
Public Function FlexRedraw(F As MSHFlexGrid) As String
With F
.Redraw = False '禁止重画,防止闪动
.BackColorFixed = RGB(190, 218, 178) '标题行背景色
.Row = 0 '设置标题行文字的对其方式
.Col = 0
.ColSel = .Cols - 1
.CellForeColor = vbBlue '标题行文字颜色
.CellAlignment = 4 '对其方式为中间中间
.ScrollTrack = True '移动滚动条的同时数据也滚动
For I = .FixedRows To .Rows - 1 '单双行表格条纹背景色显示
.Row = I '选择第I行
.Col = .FixedCols
.ColSel = .Cols - 1
If I / 2 = Int(I / 2) Then '判断是单是双
.CellBackColor = RGB(224, 248, 224) '双行的底色
Else
.CellBackColor = RGB(240, 248, 224) '单行的底色
End If
Next I
.Row = 1
.Col = 1
.ColSel = .Cols - 1
.Redraw = True '允许重画,显示表格
End With
End Function