VB6.0
lang_csdn
这个作者很懒,什么都没留下…
展开
-
一个类实现窗口分隔条功能.
以下为一个类代码 Option Explicit Private myForm As Form 应用窗体 Private picP As Object 做为分隔条的控件 Private objBox1 As Object 分隔条左边控件 Private objBox2 As O原创 2005-01-06 21:19:00 · 1216 阅读 · 0 评论 -
ListBox中的字符串超长显示的解决方法
Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const LB_ITEMFROMPOIN原创 2004-10-24 14:25:00 · 1849 阅读 · 0 评论 -
实现listview控件report视图下任何列头的双向排序
本文向大家展示了listview控件在report视图下任何列头的双向排序技巧,源代码如下Option ExplicitPrivate Sub Form_Load()Dim i As IntegerDim itemx As ListItemListView1.View = lvwReportWith ListView1.ColumnHeaders.Add , , "编号", 60原创 2004-10-24 14:16:00 · 864 阅读 · 0 评论 -
如何制作平面式的listview列头
Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias原创 2004-10-24 14:12:00 · 796 阅读 · 0 评论 -
VB中给listview的item添加多行气泡式Tooltip
一个类模块,命名为:CTooltip,代码如下:Option ExplicitPrivate Declare Sub InitCommonControls Lib "comctl32.dll" ()Windows API FunctionsPrivate Declare Function CreateWindowEx Lib "user32" Alias "CreateWindow原创 2004-10-24 13:44:00 · 1059 阅读 · 0 评论 -
关于Visual Basic 6.0类开发(上)
对程序员和编程爱好者来说,VB中类的技术是学习中的一个难点,在大型软件的开发过程中,模块(Moudle)、控件(Active ocx)、链接库(Active dll)和类(Class moudle)构成了系统化、高效化的软件工程,而类的技术是控件和链接库技术的基础,因此掌握类的理论和编程方法是非常有意义的。(一)类的基本定义和应用概述; 类是包含了方法、属性、数据成员的高级代码模块,它既在模块的原创 2004-10-24 14:46:00 · 924 阅读 · 0 评论 -
转:关于定时关闭询问对话框的一点体会
Option ExplicitConst MB_DEFBUTTON1 = &H0&Const MB_DEFBUTTON2 = &H100&Const MB_DEFBUTTON3 = &H200&Const MB_ICONASTERISK = &H40&Const MB_ICONEXCLAMATION = &H30&Const MB_ICONHAND = &H10&Const MB_ICONIN原创 2004-10-24 13:38:00 · 784 阅读 · 0 评论 -
关于Visual Basic 6.0类开发(下)
在Visual Basic 6.0类的技术与应用(上)(以下简称上文)中,我们讨论了类的理论、类的创建和类的方法的编程实践,实际上,类之所以能够在软件工程中广泛应用,最主要的一点是它可以非常方便的封装许多编程需要的属性,这不仅使程序员在一定程度上克服控件(ocx)和链接库(dll)设计和调试中的复杂性,而且能够提高程序代码的简洁和高效性――本文将讨论完整的类的编程,包括方法、属性和基本事件。 (原创 2004-10-24 14:46:00 · 750 阅读 · 0 评论 -
VB==容错处理策略(全)
本文将详细地讨论在Visual Basic中处理错误发生的On Error命令家族,它们的任务就是安装错误代理并解决错误的发生,并解释错误代码的含义。阅读完本文后,你将能编写基本的错误代理程序,有效地防止以外错误。作者:甘冀平2000-11-03function recommend(){ OpenWindow = window.open(ema原创 2004-10-24 14:44:00 · 1090 阅读 · 0 评论 -
调用IE的收藏夹
调用IE的收藏夹(系统需要IE4以上版本) Internet Explorer 库--shdocvw.dll包含了许多可以操纵IE收藏夹的API。其中的两个API是调用IE的“添加到收藏夹”和“整理收藏夹”对话框。下面的示例程序就是如何使用这两个对话框。“添加到收藏夹”的Dialog很像Windows的通用对话框中的SaveAs Dialog,它自身没有任何机能(不能创建或保存一个原创 2004-10-24 14:36:00 · 851 阅读 · 0 评论 -
界面开发之Flat3DButton
自己是否想过重画控件,现在用强大的VB来实现吧。下例就是简单的利用VB中的CommandButton改变成Flat3DButton风格。其实就是利用VB的SubClass去处理父窗口的WM_DRAWITEM消息。1. 建立一个标准EXE工程,加入Command1和Command2,将Command1的Style属性设为Graphical。2. 加入模块,取名SubClass_Flat3原创 2004-10-24 14:34:00 · 777 阅读 · 0 评论 -
VB千里行-操作Word与Excel
本文将告诉你如何使用VB代码连接Office应用程序,并简要接触一下在文件中输入数据的方法。实际上,在VB中用代码与Word和Excel进行会话并控制它们,是可行的。但是请注意,首先需要在机器上安装office应用程序,才能在VB代码中存取它们的对象。 下面就是一些例子,告诉你如何与这些程序会话,并控制它们。 Option ExplicitDim xlsApp As Ex原创 2004-10-24 14:45:00 · 1087 阅读 · 0 评论 -
关于Activex EXe
类代码Option ExplicitDim WithEvents objFrm As Form1Public Event FileFount(ByVal FileName As String)Public Event FileNotFount(ByVal N As Long)Private Sub Class_Initialize() //组建初始化 Set objFrm = For原创 2004-11-07 15:41:00 · 1624 阅读 · 0 评论 -
关于类中的事件
类中定义事件putlic event Tclick()在类过程中触发类的事件raiseevent tclick在窗中使用事件dim withevents c as class1 //通知VB对象可以接受一个事件private sub command_click1() set c= new class1end subprivate sub c_Tclick() //可以使用类的原创 2004-11-07 13:40:00 · 1178 阅读 · 0 评论 -
关于通用对话框!!!
CommonDialog1.flags=&H2 如果保存对话框,会给用户提示文件已存在如果判断用户是否点击取消,有两个方法。一个是启用取消引发错误!二是 commondialog1.filename=”” 每次用之后清空过滤器filter=”ExCel文件|*.xls”原创 2004-11-06 19:12:00 · 1052 阅读 · 0 评论 -
无边框窗体最大化,但是不档住任务栏
个窗体,一个模块:窗体上两个按钮,窗体的BorderStyle属性为0,窗体代码如下:Option ExplicitPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function GetWindowR原创 2004-10-31 15:51:00 · 1837 阅读 · 0 评论 -
控制MDI窗口的,最大化.最小化按钮!
Private Declare Function GetSystemMenu Lib "USER32" (ByVal hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function GetMenuItemCount Lib "USER32" (ByVal hMenu As Long) As LongPrivate Decla原创 2004-10-31 15:40:00 · 1610 阅读 · 1 评论 -
下载文件例子!!!!
class-------------------------------------------------------------Option ExplicitImplements IBindStatusCallback获得字符串的函数Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As原创 2004-10-29 19:30:00 · 1261 阅读 · 0 评论 -
根据汉字声母,要在表中找相关记录,怎么实现?比如输入"zgyh",就能找到所有“中国银行”的记录。
根据汉字声母,要在表中找相关记录,怎么实现?比如输入"zgyh",就能找到所有“中国银行”的记录。if exists (select * from dbo.sysobjects where id = object_id(N[dbo].[f_GetPy]) and xtype in (NFN, NIF, NTF)) drop function [dbo].[f_GetPy]GO-原创 2004-11-01 19:56:00 · 1574 阅读 · 0 评论 -
窗体内所有控件。比例缩放的类
Option ExplicitPrivate nFormHeight As IntegerPrivate nFormWidth As IntegerPrivate nNumOfControls As IntegerPrivate nTop() As IntegerPrivate nLeft() As IntegerPrivate nH原创 2004-11-04 20:13:00 · 1574 阅读 · 1 评论 -
在VB中执行存储过程!
Sub cmd()Dim iCmd As ADODB.CommandDim iRe&Set iCmd = New ADODB.CommandWith iCmd .ActiveConnection = iConc 数据库连接字符串 .CommandType = adCmdStoredProc .CommandText = "存储过程名" .Parameters.Re原创 2004-11-03 20:23:00 · 2323 阅读 · 0 评论 -
用DLL实现把数据库的记录导出到EXCEL中(VB)
新建一个ActiveX DLL工程工程名为DbToExcel工程-->引用,引用Microsoft ActiveX Data Objects 2.6 Library Microsoft Excel 9.0 Objects Library Option ExplicitPrivate Mcnnquery As ADODB.Connection 定义ADO连接对象Privat原创 2004-10-24 14:07:00 · 1183 阅读 · 0 评论 -
用VB将剪切板中的图片保存为JPG文件
Option Explicit窗体上一个按钮,一个imgedit控件Private Sub Command1_Click() If (ImgEdit1.IsClipboardDataAvailable And ImgEdit1.ImageDisplayed) Then 从剪贴板粘贴图象,其参数为Imgedit的显示区域的起始坐标 ImgEdit1.Clipboa原创 2004-10-24 13:31:00 · 3353 阅读 · 1 评论 -
网友收藏的一些关于VB处理的函数
一个调用外部程序,并等待该程序结束后返回控制劝的子程序:Sub ShellWait(cCommandLine As String)Dim hShell As LongDim hProc As LongDim lExit As LonghShell = Shell(cCommandLine, vbNormalFocus)hProc = OpenProcess(PROCESS_QUERY_INFORM原创 2004-10-12 15:40:00 · 974 阅读 · 0 评论 -
Combo下拉列表框自动展开和关闭!
当获得焦点的时候,combo自动下拉Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const CB_SHOWDROP原创 2004-10-13 20:13:00 · 2864 阅读 · 1 评论 -
整理机器时发现,偶在以前参与的一些贴子!特此放上来!
TreeView中如何选中一个父节点同时选中所有的子节点和孙节点。。。----------------------------------------------------------------------------Author:lihonggen0Date:2003-1-20功能:选择Treeview节点下所有节点--------------------------------原创 2004-10-12 16:32:00 · 2137 阅读 · 0 评论 -
让文本框只能输入指定格式的类
Option Explicit私有变量Private WithEvents TxtBox As TextBoxPrivate blnKey As BooleanPrivate intSelStart As IntegerPublic成员Public IsDecimal As txtStylePublic Enum txtStyle Format_Zero = 0 格式 1000原创 2004-10-17 21:18:00 · 979 阅读 · 0 评论 -
收藏CSDN发的贴子中有的一些代码
模块声明Option ExplicitPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const CB_RESETCONTE原创 2004-10-12 16:02:00 · 1579 阅读 · 0 评论 -
ACCESS跨库查询
问题说明:有时需要在两个或三个数据库的表中,通过相关关键字,查询获取所需记录集,用一般的SQL查询语句是实现不了的,可通过ACCESS的跨库查询功能实现。解决方法:例如“装材类型”和“装材”两张表是在不同的数据库中的,具体查询方法,如下:@"Select * from 装材类型 as a INNER JOIN [;database原创 2004-10-10 15:45:00 · 2066 阅读 · 0 评论 -
if then end if语句
if a=b then 加上注解A和B的判断意义elseend if 加上注解A和B的判断意义这样便于理解,是看到公司的代码是这样的写的觉得这个方式比较好!原创 2004-10-04 18:24:00 · 6408 阅读 · 0 评论 -
process类的简单应用
process类的简单应用做过私服服务器的人都知道有个《心意服务器管理器》,其中有个功能就是在这个管理器中启动多个程序,或者可以关闭已启动的多个程序,那么这个功能是怎么实现的呢?当然可以用API函数来做,但是最先近的方法可能就是.NET了,而其中的方法就是PROCESS类,应用这个类,很复杂的问题一下就简单了。(1)启动应用程序的代码: Dim proc0 As New P原创 2004-10-05 21:00:00 · 952 阅读 · 0 评论 -
VB API函数大全
Show the "Save File" Common Dialog显示“保存文件”对话框 Show the "Browse Folder" Common Dialog显示“浏览文件夹”对话框 Suspend a Computer挂起计算机 Test if an appl原创 2004-09-17 16:16:00 · 5497 阅读 · 0 评论 -
VB面向对象编程的一个简单的演示程序
这个例子,也可以看作是使用类模块的入门级的演示。 新建一个工程,在form1中添加3个文本框。我们希望对这三个文本框中输入的字符进行限制,第一个只允许输入数字,第二个只允许输入字母,第三个只允许输入大写字母。 一般的做法,可以在这三个文本框的keypress事件过程中分别写检查代码。好一点的方案,是把检查代码写成一个共用的过程,让这三个文本框的keypress事件去各自进行调用。 现在,我们原创 2004-10-15 20:14:00 · 1158 阅读 · 0 评论 -
TreeView中如何选中一个父节点同时选中所有的子节点和孙节点。。。
----------------------------------------------------------------------------Author:lihonggen0Date:2003-1-20功能:选择Treeview节点下所有节点--------------------------------------------------------------------原创 2004-10-11 18:12:00 · 3480 阅读 · 0 评论 -
处理鼠标移出事件
Windows提供的鼠标移出消息有时候很有用,但是VB6中没有把这个事件封装给我们。但是我们仍然可以使用子类化技术实现他,下面的代码就是一个简单的例子来处理Windows的WM_MOUSELEAVE消息的,我演示的是鼠标移出一个Button时的情形。1.加入一个模块,专门用来处理子类函数:Option Explicit原创 2004-10-24 14:32:00 · 1033 阅读 · 0 评论 -
如何修改treeview的背景色
在通常情况下,treeview的背景色是不可以修改的,我们可以通过API实现,源码如下Option ExplicitPrivate Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, l原创 2004-10-24 14:14:00 · 1468 阅读 · 0 评论 -
一个利用随机数加密字串的算法
首先这个算法没什么特殊之处,只是怕以后找不到,所以放到了这上面 每个字节加密后有6种结果(占两个字节,如果需要大于6种的话,就要多用1个字节,即占3 个字节),也就是说如果字串占n个字节的话,可能产生的结果为6的n次方个,这个算法破解的强度不大,大家可以完善一下:窗体上一个按钮,两个listboxOption ExplicitPrivate Sub Command1_Cl原创 2004-10-24 13:39:00 · 1479 阅读 · 0 评论 -
关于FlexCell控件的SelectionMode属性(选择模式)的说明
SelectionMode=cellSelectionByRow 只能选择行也可以选择整表,不能选择列,但是不能自由选择SelectionMode=cellSelectionFree 自由选择,可以选择行和列SelectionMode=cellSelectionByColumn 和 cellSelectionByRow相反,只能选择列SelectionMode=cellSelectionNone原创 2004-10-21 19:56:00 · 4041 阅读 · 0 评论 -
返回数组中的最大值
Dim lngMaxIndex As LongDim i As LonglngMaxIndex = LBound(A)For i = LBound(A) + 1 To UBound(A) If A(i) > A(lngMaxIndex) Then lngMaxIndex = i End IfNext iA(lngMaxIndex)就是最大值原创 2004-10-16 20:03:00 · 1700 阅读 · 0 评论 -
限制文本框为数字
If KeyAscii = 8 Then Exit SubIf Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0原创 2004-10-16 19:18:00 · 776 阅读 · 0 评论