VB
永远爱好写程序
这个作者很懒,什么都没留下…
展开
-
VB实现Com+组件配置
在Windwos2000的管理工具里有一个“组件服务”工具,可以实现对COM+组件的应用的安装、启动、删除和对组件的安装、删除。这在安装一个有COM+组件的应用系统时时非常有用的,我们可以通过程序控制一个组件添加删除,可以通过程序实现这个过程的自动化,而不必人工停止应用再安装组件!现在我们来讨论怎样用VB程序实现这个工具的这些功能。 一、COMAdmin接口简介COMAdm转载 2012-08-30 10:04:17 · 765 阅读 · 0 评论 -
VB6 从数据库中导出数据到Excel(项目中用到的)
Public Enum ExportType DiffrentData = 0 FirstData = 1 SecondData = 2End Enum Public Function BuildSheet(ByRef xlSheet As Excel.Worksheet, ByVal strSQL As String, ByVal oType As Ex原创 2012-12-20 15:45:33 · 7033 阅读 · 1 评论 -
Imaging for windows 切分图片时报内存不足,无法显示图片
Imaging for windows 切分图片时报内存不足,无法显示图片出现在部署在服务器上的时候,用远程桌面,最小化,或关闭远程桌面时出现解决方法1:把imgde放在其他控件的后面,置底项目里还吧imgde的visible设置为了false解决方法2:把宽度,高度都设置为0,visible设置为0原创 2013-04-10 15:08:22 · 2511 阅读 · 0 评论 -
vb imaging for windows 导致 textbox不能获得焦点
vb imaging for windows 导致 textbox不能获得焦点发现时把imgde.visible=false 然后 imgde.visible=true导致原创 2013-04-10 14:58:58 · 920 阅读 · 0 评论 -
VB FileSystemObject对象 详解
FileSystemObject对象被用来访问服务器上的文件系统。这个对象能够处理文件、文件夹和目录路径。用它来检索文件系统信息也是可能的。下面的代码创建了一个文本文件,并写入了一些文本: <% dim fs,fname set fs=Server.CreateObject("Scripting.FileSystemObject") set fname=fs.CreateT转载 2013-04-03 17:10:17 · 22008 阅读 · 0 评论 -
VB DateDiff函数
DateDiff 函数返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。语法DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])DateDiff 函数语法中有下列命名参数:部分 描述 interval 必要。字符串表达式,表示用来计算dat转载 2013-02-28 17:29:05 · 4215 阅读 · 3 评论 -
VB6.0如何使用正则表达式
VB6.0如何使用正则表达式分类: VB6.0基础编程 2007-10-16 11:15 3674人阅读 评论(10)收藏 举报 最近在用VB6解决一个网页解析的应用,涉及到了正则。如何在VB6中使用正则表达式,这个在MS网站上有介绍,不过介绍的不是很全面。下面结合MS网站的内容和搜索到的东西,自己汇总一下。 引用了Microsoft VBScript转载 2013-02-15 16:22:12 · 1378 阅读 · 0 评论 -
vb This array is fixed or temporarily locked 错误
------解决方案--------------------------------------------------------这样呢: ReDim Preserve m_tGroupedCollum( m_lGroupedHeaderCount-1) As tGroupCollum 从0开始,不用从1开始 ------解决方案---------------------翻译 2012-11-26 10:31:19 · 1507 阅读 · 0 评论 -
vb6 ListBox横向滚动条
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindo转载 2012-11-27 16:03:32 · 5134 阅读 · 1 评论 -
VB6 Com+部署问题
COM/COM+远程匿名访问测试成功[转]详细步骤!1、首先在VB中写一ActiveX(DLL)组件,工程名为COMTEST。编译后在另一程序中调用,确认组件工作正常。2、打开“控制面板/管理/组件服务”,在“COM+应用程序”下利用“COM+应用程序安装向导”创建一个空的COM+应用程序,名称为“COMTEST”。3、在“COMTEST”下,新建“组件”,在“组件原创 2012-11-08 15:23:10 · 3322 阅读 · 0 评论 -
VB6调用WebService、WCF
'调用webservice。需要安装SoapToolkit30.EXE,并在工程中引用Microsoft Soap Type Library v3.0Sub CallWebService() Dim m_spClient As New SoapClient30 'SoapClient30对象实例化 m_spClient.MSSoapInit "http://localhos转载 2012-11-08 13:49:06 · 3406 阅读 · 0 评论 -
VB FSO.GetSpecialFolder 参数说明
Set Fd = FSO.GetSpecialFolder(2) '0 Windows 文件夹,包含 Windows 操作系统安装的文件。 '1 System 文件夹,包含库、字体和设备驱动程序文件。 '2 Temp 文件夹,用于保存临时文件。可以在 TMP 环境变量中找到该文件夹的路径。 gStrSysPh = Fd.Path &原创 2012-10-31 14:32:03 · 4686 阅读 · 1 评论 -
VB更新时间戳字段
Option ExplicitPrivate Sub Command1_Click() Dim objcnn As ADODB.Connection Dim strTmp As String Dim objRst As New ADODB.Recordset Dim strSQL As String Set objcnn = New原创 2012-10-12 13:30:23 · 2159 阅读 · 0 评论 -
慎用字段的单引号
在SQLServer中Insert和Update语句中可以对整形字段使用单引号,也可以执行成功,但有一个地方需要注意: Dim objCnn As New ADODB.Connection Dim strSQL As String On Error GoTo ErrHandle strSQL =原创 2012-10-10 16:28:17 · 1094 阅读 · 0 评论 -
VB记录集参数
adLockReadOnly 1 缺省值,Recordset对象以只读方式启动,无法运行AddNew、Update及Delete等方法 adLockPrssimistic 2 当数据源正在更新时,系统会暂时锁住其他用户的动作,以保持数据一致性。 adLockOptimistic 3 当数据源正在更新时,系统并不会锁住其他用户的动作,其他用户可以对数据进行增、删、改的操作。 adLock原创 2012-10-11 17:21:12 · 1255 阅读 · 0 评论 -
VB InstrRev函数
返回某字符串在另一个字符串中最后出现的位置。 语法 InstrRev(string1, string2[, start[, compare]]) InstrRev 函数的语法有以下参数: 参数 string1 必选项。接受搜索的字符串表达式。 string2 必选项。被搜索的字符串表达式。 Start转载 2012-08-31 10:11:04 · 5895 阅读 · 0 评论 -
VB 设置文件属性
SetAttr 语句 为一个文件设置属性信息。 语法 SetAttr pathname, attributes SetAttr 语句的语法含有以下这些命名参数: 部分 描述 pathname 必要参数。用来指定一个文件名的字符串表达式,可能包含目录或文件夹、以及驱动器。 Attributes转载 2012-08-31 09:50:12 · 2179 阅读 · 0 评论