易截截图软件、单文件、免安装、纯绿色、仅160KB

vb记录集数据导入到excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--将DataGrid导出至Excel,ProgressBar1为进度条,intFirst为从哪一列开始打印,intLast为打印到哪一列
On Error Resume Next
    Dim I As Long
    Dim J As Integer
    Dim K As Integer
    Dim sLast As String
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    xlSheet.Name = "查询结果"
    xlApp.Visible = False '--先隐藏
    ProgressBar1.Value = 0
    Screen.MousePointer = 11
    ProgressBar1.Max = DataGrid1.ApproxCount + 3
    '--设置标题
    sLast = Chr(Asc("A") + intLast - intFirst)
    xlApp.Range("A1:" & sLast & "2").Select
    With xlApp.Selection '--合并单元格
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    ProgressBar1.Value = 1
    xlApp.Selection.Merge
    With xlApp.Selection.Font '--字体
        .FontStyle = "加粗"
        .SIZE = 24
    End With
    xlApp.Range("A1:" & sLast & "2").Select
    xlApp.ActiveCell.FormulaR1C1 = strTitle
    ProgressBar1.Value = 2
    '--设置列
    For K = 0 To intLast - intFirst '显示选中的列
     


相关文档:

用VB编写ActiveX DLL实现ASP编程

ASP是目前一种广为应用的用来快速构建动态WEB站点的编程语言,默认的内置开发语言是VBScript,由于ASP和微软Windows系列操作系统的结合非常的好,使得ASP已经成为了NT开发平台上面进行WEB开发的首选语言和环境。
他有着简单易学,方便快速开发的种种优点,但是他也有着致命的弱点,就是他是脚本语言解释执行的,速度会受到 ......

vb自动关机程序

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
  ......

VB显示透明FLASH效果

VB显示透明FLASH效果
  演示效果:
 
    代码如下:
公共声明区域
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......

VB正则表达式

如果原来没有使用过正则表达式,那么可能对这个术语和概念会不太熟悉。不过,它们并不是您想象的那么新奇。
请回想一下在硬盘上是如何查找文件的。您肯定会使用 ? 和 * 字符来帮助查找您正寻找的文件。? 字符匹配文件名中的单个字符,而 * 则匹配一个或多个字符。一个如 'data?.dat' 的模式可以找到下述文件:
data1.dat ......

VB与C#互转工具

http://www.carlosag.net/Tools/CodeTranslator/ 这个也许学计算机的哥哥姐姐们会用得到,,就转了希望多多支持哦 西西  用得到就顶哦
差点忘了哦    ,藕还有一个sql的插件很好用的呀。。。。有想要的就留言下要咯。。。。。 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号