自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

我的VB生涯

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nb

  • 博客(4)
  • 收藏
  • 关注

转载 使DataGrid支持鼠标滚轮滚动记录

首先在DataGrid 的 【拆分】 属性中的【选取框样式】设置为 3,即整行高亮选择,然后加入如下代码就支持了,只要让鼠标的焦点在grid控件上,滚动鼠标滑轮,grid滚动条会自动滚动的。示例操作方法:将以下代码写到公共模块中         支持滚轮鼠标API---------------------------------             Public   Const   GW

2007-08-17 09:01:00 2437 1

原创 DataReport相对详细的介绍

首先介绍一下DataReport对象的几个常用属性。一是DataSource,用于设置一个数据源,通过该数 据源,数据使用者被绑定到一个数据库;二是DataMember,从DataSource提供的几个数据成员中设 置一个特定的数据成员;三是LeftMargin、RightMargin、TopMargin、BottomMargin等,用于指定 报表的左右上下的页边距;四是Sections,即Dat

2006-12-19 17:02:00 5374

原创 如何让窗体的关闭按钮失效

Option ExplicitPrivate Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPo

2006-12-15 16:18:00 1851

原创 发票大写金额转换函数

Function Daxie(jexx)     jezs = (CStr(Round(jexx, 2) * 100)) 金额最终数含小数     ws = "拾万仟佰拾元角分"     dx = "零壹贰叁肆伍陆柒捌玖"     Dim i, j As Integer     Dim jedx As String     i = 1     j = Len(Trim(Round(jexx, 2

2006-12-15 16:09:00 2447

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除