newp-CSDN博客

转载编写VB打印控制程序的几点心得

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

2007-08-11 12:50:00 13163 4

原创获取cpu序列号

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

2007-08-11 12:48:00 1141 1

原创解决由于SQL查询时间长导致程序假死状态

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

2007-08-10 23:09:00 4967

原创 SQL SERVER 与ACCESS、EXCEL的数据转换

熟悉SQL SERVER 2000的数据库管理员都知道，其DTS可以进行数据的导入导出，其实，我们也可以使用Transact-SQL语句进行导入导出操作。在Transact-SQL语句中，我们主要使用OpenDataSource函数、OPENROWSET 函数，关于函数的详细说明，请参考SQL联机帮助。利用下述方法，可以十分容易地实现SQL SERVER、ACCESS、EXCEL数据转换，详细说明

2007-06-12 11:29:00 758

原创数据库连接字符串大全

http://www.connectionstrings.com/

2006-04-09 20:56:00 623

转载捕获CONN错误

If Conn.Errors.Count = 0 Then判断错误的个数 IsSucc = " 成功 "Else select case Conn.Errors.Item(0).NativeError case 2627 IsSucc = "ddddddd" 你可以根据需要，定义多个自己的错误返回值 End SelectEnd if

2006-04-09 17:31:00 654

转载如何固定表格的标题行和标题列

网上有许关于固定表格的标题行的文章，但是既要固定标题行又要固定标题列的却几乎没有。现我写下如下代码以供大家参考：Untitled Documentfunction syncscroll(obj){ y.innerHTML = obj.scrollTop; x.innerHTML = obj.scrollLeft; scroll1.children[0].style.positi

2006-04-08 23:41:00 849

转载每页都有的表头和打印分页

无标题文档@media print{INPUT {display:none}}每页都有的表头表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内容表格内

2006-04-08 23:31:00 969

原创在VB中实现向函数传递不定个数参数

新建一个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

2005-08-28 23:22:00 893

原创如何限制文本框只能输入数字键

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

2005-08-28 23:18:00 806

原创如何控制文本框中只可以输入字符，禁止输入汉字？

Text的IMEMode属性设为 3-Disable

2005-08-28 23:18:00 1100

原创如何在vb中使用手形光标

screen.mousePointer = vbHourglass

2005-08-21 20:02:00 1353

洪立川的专栏