代码可以将任意日期(1000-01-01------9999-12-31)转换为汉字显示: Private Sub Command1_ClickMsgBox datename(Date)End SubFunction datename(ByVal mydate As Date) As StringDim i As Long, d(3) As String, my... [阅读全文]

ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt\" prefix = o ns = \"urn:schemas-microsoft-com:office:office\" /VERSION 5.00Begin VB.Form frmUpdate BackColor = &H80000007& BorderStyle = 0 &... [阅读全文]

ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none\" align=left prefix = o ns = \"urn:schemas-microsoft-com:office:office\" /曾经有位网友和我讨论怎样编写个通过服务器... [阅读全文]

ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt\" prefix = o ns = \"urn:schemas-microsoft-com:office:office\" / 2、 projNewMain.vbp工程:介绍说明:这个是新主即升级后主由于我目前没有服务器故将该放在projUpdate.vbp工程资源文件中在proj... [阅读全文]

往更耐玩，就比如伴我度过高考的赛车游戏：一切都是方块，所谓的赛车也只是四个方块。　　第一步，绘制对象：用函数drawcar()画赛车，drawway(n)画跑道的第n层。　　第二步，接受控制：Form的KeyPreview属性要设为true，在Form_KeyPress函数中通过改变全局变量cx来控制赛车的位置。　　第三步，游戏循环：作为即时游戏，必须要有一个Timer，并在其事件Timer1_T... [阅读全文]

ss=MsoNormal style=\"MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: center\" align=centerVb 6 中多态 prefix = o ns = \"urn:schemas-microsoft-com:office:office\" /最近在写个MDI窗体每个子窗体时都要对其做些操作于是我就用个SUB 来做显... [阅读全文]

字读法写了个把数字转成中文串参数为数字参数 2为是不是反回人民币大写参数 3为是不是直接读数字否则带有十百等单位参数 4为设置小数点后面位数默认为4使用思路方法是t=GetChinaNum(20005.000436, , , 7)´返回 “ 2千零 5点零零零 4 3 6”t=GetChinaNum(2005.436, True, , 7)&acut... [阅读全文]

lic Function ChinaNum(ByVal Num As String) As StringOn Error GoTo ChinaNumErrChinaNum = \"\"Dim str_tmp_CN As StringDim str_tmp_ZS As StringDim str_tmp_XS As StringDim I As LongIf VB... [阅读全文]

True DBREPORT 6.0使用介绍说明 DBREPORT是个可以让用户在应用中快速方便使用功能强大报表系统Control控件它有着强大功能思路方法和事件能让用户在进行少量工作情况下就提供出完善报表 DBREPORT 可以让用户把数据保存到ADO或者OLE DB数据源中也可以从数据列表中取得数据或者以事件为基础取得数据用户可以很方便存取或打印这些数据它特... [阅读全文]

cellSpacing=1 cellPadding=3 width=\"95%\" align=center 这个是我写个类似键盘幽灵大家自己看看吧晚上无聊写不要拿来做坏事呀mCommon.basAttribute VB_Name = \"mFuncation\"´设置钩子Public Function Hook(ByVal hWnd As Lo... [阅读全文]

发MIS系统过程中,经常需要制作动态统计报表本文就如何实现动态数据源下分组交叉统计报表进行阐述并结合例子给出编程指导 　　在VB6.0数据环境设计器中,我们可以利用“添加命令”项来连接报表所需数据源,同时利用“添加命令”属性中分组和合计功能设计分组交叉统计报表数据源,至此我们可以设计简单数据存在于单表静态数据源下分组交叉报表,对于数据存在多表复杂动态数据源下分组... [阅读全文]