洪立川的专栏

screen.mousePointer = vbHourglass

   Private Sub Text1_KeyPress(KeyAscii As Integer)       If Not (IsNumeric(Chr(KeyAscii)) Or KeyAscii = 8) Then KeyAscii = 0   End Sub

Text的IMEMode属性设为 3-Disable

新建一个EXE工程，加入一个Listbox1和Command1，代码如下：Option ExplicitPublic Sub TransferPA(LST As ListBox, ParamArray Items())    Dim i    With LST         .Clear       For Each i In Items         .AddItem i       Nex

Visual Basic（VB）给用户提供了可视化编程环境，因其简单易学、功能强大而得到了广泛的应用。VB提供了两种实现打印的方法。一般在对打印质量要求不高的场合，或者是编程项目的早期开发过程中，可以直接使用VB窗体的Printform方法实现打印。用这种方法实现打印具有编程简单、易用并且功能强大的优点，它只需要通过一行代码，几乎能打印所有内容。实现的方法就是：首先将要打印的内容在屏幕上显示出来,

1 首先要引用 MDAC 2.5 以上版本。使用 VB 6.0 以上平台。2 声明变量如 Dim WithEvents rs As ADODB.Recordset3 必须使用客户游标。4 打开记录集时必须指定 adAsyncFetch Dim WithEvents rs As ADODB.RecordsetSet rs = New ADODB.RecordsetWith rs     .C

我们在写共享软件的时候一般都会使用用户计算机的CPU号和硬盘号来做机器码,下面的代码就是获取使用者CPU号的代码...引用Microsoft WMI Scripting V1.2 LibraryPrivate Sub GetProcessorID()Dim a As SWbemServicesDim b As SWbemObjectSetDim c As SWbemObjectDim d As S