Public Const VK_TAB = H9 Public Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = VBKeyReturn Then KeyAscii = 0...

2008-02-23 06:53:49

Public Function ZDX(X As Currency) As String Dim lnP As Integer Dim Prc As String Dim Tmp As String Dim NoB As Currency Dim Dx As String Dim Xx As String Dim Zhen As Boolean Dim Str(10) As String Dim China As String China = "分角元拾佰仟万拾佰仟亿"...

2008-02-23 06:53:47

---- EXCEL97是MICROSOFT公司出版的电子表格程序，它的处理数据的功能十分强大，但再好的软件都有它的一定的局限性，为了解决EXCEL97的局限性EXCEL97/2000内置了一个宏程序编辑器(如下图)，以解决更多的人的更多需要。 ---- 在日常工作中，我们经常使用到绘图程序，如用...

2008-02-23 06:53:47

在微软的电子表格软件EXCEL中，附有一个功能很强的编程语言-Visual Basic for Applications（本文中简称为VBA）。这实际上是微软的Visual Basic的化身，微软从Visual Basic中删去了表格设计器（Forms Designer）后，将它附属于EXCEL，并用对话表取代了表格设计器。另外...

2008-02-23 06:53:45

我们在玩《仙剑奇侠传》时，要是不能保存数据，那么非得挑灯夜战三昼夜才能玩完，可见数据存储之重 要性。爱好编程的CFAN是不会放过数据文件的，下面跟着我驰骋吧！我们先吃一个哈密瓜，开门即来编一传统的比较有代表性的程序，不可不看的哟！ 程序分为一个表单cfanVB.f...

2008-02-23 06:53:46

----所需物件： PictureBox 一个。 ----程式码（一）：tile.bas Declare Function BitBlt Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%, _ ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, _ ByVal dwRop) As Integer ----程式码（二）：...

2008-02-23 06:53:44

Win95 的动画鼠标为应用程序增色不少，而 VB 则只提供一般的鼠标图标支持。要用 VB 显示动画鼠标形状，你可以使用以下方法： 函数声明： Public Const GCL_HCURSOR = -12 Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Declare Function DestroyCu...

2008-02-23 06:53:43

“平铺贴图”是Windows壁纸一种经常使用的形式。只要在Windows桌面设置程序中，选择一个Windows自带的图案，或者选择一个自己制作的位图文件并选定“平铺”选项，系统就会将你选择的图案或位图有规则地从左到右、从上到下铺满整个屏幕。其实，通过调用API函数BitBlt，...

2008-02-23 06:53:42

如果我们需要编写一个录入程序，向某个SQL Server数据表（SJB）中录入数据，而这个数据表中包含有多个字段，假设有30个字段，需通过Insert INTO语句完成。 Insert INTO SJB Value（A0，A1，A2，...，A29） 这里A0、A1...A29为字段的录入值，其中，若字段类型为字符型，...

2008-02-23 06:53:41

---- ---- VB主要处理的是MDB格式的数据库，但就在这方面，它就偏偏出了差错，先看看下例： Dim db As Database Dim rs As Recordset Set db = OpenDatabase(App.Path "zzr.mdb") Set rs = db.OpenRecordset("test") Debug.Print rs.RecordCount ---- ---- 此例假设在...

2008-02-23 06:53:41