VB实现数字到中文金额的转换函数
Private Function NMoneyToSMoney ( NMoney As Variant ) As String
If IsNumeric ( NMoney ) = False Then
NMoneyToSMoney = "不是数字类型"
Exit Function
End If
Dim BasicDWString As String, BasicDW ( ) As String
Dim MoneyDWString As String, MoneyDW ( ) As String
Dim MoneyStr As String, ReturnStr As String, TempStr As String
BasicDWString = "分,角,圆,拾,佰,仟,万,拾,佰,仟,亿,拾,佰,仟,万亿,兆,拾,佰,仟,万,亿"
MoneyDWString = "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
BasicDW = Split ( BasicDWString, "," )
MoneyDW = Split ( MoneyDWString, "," )
MoneyStr = Format ( NMoney, "0.00" )
MoneyStr = Replace ( MoneyStr, ".", "" )
StrLen = Len ( MoneyStr )
ReturnStr = ""
For X = 0 To StrLen - 1
TempStr = Mid ( MoneyStr, StrLen - X, 1 )
ReturnStr = MoneyDW ( TempStr ) & BasicDW ( X ) & ReturnStr
Next X
&nb
相关文档：
'这里是启动过程[事件互斥就不写了]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub
'这里是一个线程类。。。随便写啥。。。
类名:BT
'这里是主窗口
Dim cBT as BT
Sub form_Load
'奇怪的问题就在这里...
Set cBT=CreateObject("工程名.BT")
'在L ......
VB实现SQL Server数据库备份/恢复
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**模 块 名：fBackupDatabase_a
’**描 述：备份数据库,返回出错信息,正常恢复,返回""
’**调 用：fBackupDatabase_a "备份文件名","数据库名"
’**参数说明� ......
这几天一直在做一个小的工程,做一个文本阅读器,现在做的已经有三分之二了,从中学习到了很多,对我们以前学习的成果有了更深刻的理解.
VB是一门面向对象的程序设计,我就从面性对象的角度对他做一次总结
把VB中所有的数据,变量,控件都看做一个对象
我们所有的操作都是对对象的操作,让对象去执行某一个功能
大家先看一个例� ......
信息监控与隐私保护永远是一对矛盾。
在对付各种信息窃取软件上。
新技术总是层出不穷。本文介绍一种古老的键盘记录器技术，确实很古老。
DOS时代人们就在用了。
但是现在它仍然很有效，在键盘过滤� ......
程序效果：
当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。
程序思路：
用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域
程序界面如下：
相关代码如下：
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
