编程控件
AYongSoft
这个作者很懒,什么都没留下…
展开
-
VSFlexGrid 合计项与排序问题的解决方法
<br />Private Sub VS1_BeforeSort(ByVal Col As Long, Order As Integer) '排序前删除合计项<br /> <br /> With VS1<br /> If .TextMatrix(.Rows - 1, 1) = "合 计" Then '判断最后列是否是合计行<br /> .Redraw = False<br /> .RemoveItem (.Rows - 1)<br />转载 2010-09-28 16:39:00 · 3452 阅读 · 0 评论 -
VSFlexGrid控件属性和常用方法(3)
<br />将数字转换为大写金额的函数:<br />Function CurrencyToStr(ByVal Number As Currency) As String<br /> Number = Val(Trim(Number))<br /> If Number = 0 Then CurrencyToStr = "": Exit Function<br /> Dim str1Ary As Variant, str2Ary As Variant<br /> str1Ary = Split(转载 2010-10-13 14:15:00 · 2485 阅读 · 0 评论 -
VSFlexGrid控件属性和常用方法(1)
<br />1,如果想把某一列设置成下拉匡中选择,只能写成 grid.colcombolist(1) = "a|b|c" 吗?能不能把下拉框中的数据和 recordset 或数组绑定。<br />答案:grid.colcombolist(1)=grid.buildcombolist(rs!abc)<br />2,怎样限定第三列可编辑,其他列不可编辑?<br />答案:<br />Private Sub fg_BeforeEdit(ByVal Row As Long, ByVal Col As Long, C转载 2010-10-13 14:10:00 · 7337 阅读 · 0 评论 -
VSFlexGrid控件属性和常用方法(2)
一、增加记录使用for来循环表格行。 for i=1 to grid1.rows-1 with rs .addnew .fileds(o)=grid1.textmariy(i,0) .fileds(1)=grid1.textmariy(i,1) .fileds(2)=grid1.textmariy(i,2) .f转载 2010-10-13 14:13:00 · 2938 阅读 · 0 评论 -
VsFlexGrid点滴
<br />一、获取鼠标左键点击的当前行列号<br /> Dim r&, c&<br /> r = VSFlexGrid1.MouseRow<br /> c = VSFlexGrid1.MouseCol<br />二、设置某一列显示格式<br /> VSFlexGrid1.ColFormat(col) = Format() <br /> 说明:其中Format()是String对象处理函数,Format()共有8中固定格式,<br />转载 2010-10-13 14:03:00 · 2239 阅读 · 0 评论 -
VsFlex7.Ocx控件的注册说明
<br />打开注册表[HKEY_CLASSES_ROOT/Licenses],新建项"403E0785-49A9-11d3-9BD5-D2DC2DD96072"。<br />如下图:<br /><br /> <br />转载 2010-10-14 17:48:00 · 5684 阅读 · 0 评论