- 博客(142)
- 资源 (1)
- 收藏
- 关注
原创 关于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 1622
原创 关于类中的事件
类中定义事件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 1177
原创 关于通用对话框!!!
CommonDialog1.flags=&H2 如果保存对话框,会给用户提示文件已存在如果判断用户是否点击取消,有两个方法。一个是启用取消引发错误!二是 commondialog1.filename=”” 每次用之后清空过滤器filter=”ExCel文件|*.xls”
2004-11-06 19:12:00 1052
原创 存储过程返回记录集
我建立了一个存储过程: create procedure test() as begin declare @a table ( id int, name varchar(10) )
2004-11-05 19:49:00 1373
原创 窗体内所有控件。比例缩放的类
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 2322
原创 根据汉字声母,要在表中找相关记录,怎么实现?比如输入"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
原创 无边框窗体最大化,但是不档住任务栏
个窗体,一个模块:窗体上两个按钮,窗体的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
原创 控制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 1608 1
原创 很老的一篇文章了: 我的软件经历[原创] [精华]
我在程序员的时候,我一开始追逐这个API怎么用,数据库SQL怎么写更优化,Dcom技术的细节 然后我发现我写出来的产品为了符合客户需求必须要大量修改,但是我的代码却粘在了一起 第一个感觉就是一个函数太长,一看就头痛,而且一个函数干了好多事。这些事本来可以一段一段的,每段写上注释,然后有意义命名,自己管理错误和内存,然后把这些函数连在一起 然后我作了这些: 1小函数 2写上注释 3有意义命名 4自己
2004-10-29 19:45:00 872
原创 代码写要规范!!!!
用TAB来控制缩进功能相同的一段代码 /* 注解和Sql的一样 */尽量脱离界面和相关性用小函数来实现函数参数必须说明 参数: 参数名 : 说明每个函数功能必须有说明注释要简短有效!!!先规范做好这六点
2004-10-29 19:43:00 1073
原创 下载文件例子!!!!
class-------------------------------------------------------------Option ExplicitImplements IBindStatusCallback获得字符串的函数Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As
2004-10-29 19:30:00 1261
原创 关于Visual Basic 6.0类开发(上)
对程序员和编程爱好者来说,VB中类的技术是学习中的一个难点,在大型软件的开发过程中,模块(Moudle)、控件(Active ocx)、链接库(Active dll)和类(Class moudle)构成了系统化、高效化的软件工程,而类的技术是控件和链接库技术的基础,因此掌握类的理论和编程方法是非常有意义的。(一)类的基本定义和应用概述; 类是包含了方法、属性、数据成员的高级代码模块,它既在模块的
2004-10-24 14:46:00 921
原创 关于Visual Basic 6.0类开发(下)
在Visual Basic 6.0类的技术与应用(上)(以下简称上文)中,我们讨论了类的理论、类的创建和类的方法的编程实践,实际上,类之所以能够在软件工程中广泛应用,最主要的一点是它可以非常方便的封装许多编程需要的属性,这不仅使程序员在一定程度上克服控件(ocx)和链接库(dll)设计和调试中的复杂性,而且能够提高程序代码的简洁和高效性――本文将讨论完整的类的编程,包括方法、属性和基本事件。 (
2004-10-24 14:46:00 749
原创 VB千里行-操作Word与Excel
本文将告诉你如何使用VB代码连接Office应用程序,并简要接触一下在文件中输入数据的方法。实际上,在VB中用代码与Word和Excel进行会话并控制它们,是可行的。但是请注意,首先需要在机器上安装office应用程序,才能在VB代码中存取它们的对象。 下面就是一些例子,告诉你如何与这些程序会话,并控制它们。 Option ExplicitDim xlsApp As Ex
2004-10-24 14:45:00 1087
原创 VB==容错处理策略(全)
本文将详细地讨论在Visual Basic中处理错误发生的On Error命令家族,它们的任务就是安装错误代理并解决错误的发生,并解释错误代码的含义。阅读完本文后,你将能编写基本的错误代理程序,有效地防止以外错误。作者:甘冀平2000-11-03function recommend(){ OpenWindow = window.open(ema
2004-10-24 14:44:00 1089
原创 调用IE的收藏夹
调用IE的收藏夹(系统需要IE4以上版本) Internet Explorer 库--shdocvw.dll包含了许多可以操纵IE收藏夹的API。其中的两个API是调用IE的“添加到收藏夹”和“整理收藏夹”对话框。下面的示例程序就是如何使用这两个对话框。“添加到收藏夹”的Dialog很像Windows的通用对话框中的SaveAs Dialog,它自身没有任何机能(不能创建或保存一个
2004-10-24 14:36:00 850
原创 界面开发之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
原创 处理鼠标移出事件
Windows提供的鼠标移出消息有时候很有用,但是VB6中没有把这个事件封装给我们。但是我们仍然可以使用子类化技术实现他,下面的代码就是一个简单的例子来处理Windows的WM_MOUSELEAVE消息的,我演示的是鼠标移出一个Button时的情形。1.加入一个模块,专门用来处理子类函数:Option Explicit
2004-10-24 14:32:00 1033
原创 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
原创 实现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
原创 如何修改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
原创 如何制作平面式的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 794
原创 在VB.NET中应用Agent技术
在OFFICE帮助文件,金山毒霸,瑞星杀毒软件中有一个助手的功能,用来给用户提出帮助信息或建设。在Visual Basic .Net中使用Microsoft Agent Control 2.0组件能轻松实现这一功能。一、添加Agent组件启动Visual Studio .NET2003,新建一个Visual Basic .Net应该程序。在Visual Basic .Net中右击工具箱,选
2004-10-24 14:08:00 876
原创 用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
原创 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
原创 一个利用随机数加密字串的算法
首先这个算法没什么特殊之处,只是怕以后找不到,所以放到了这上面 每个字节加密后有6种结果(占两个字节,如果需要大于6种的话,就要多用1个字节,即占3 个字节),也就是说如果字串占n个字节的话,可能产生的结果为6的n次方个,这个算法破解的强度不大,大家可以完善一下:窗体上一个按钮,两个listboxOption ExplicitPrivate Sub Command1_Cl
2004-10-24 13:39:00 1479
原创 转:关于定时关闭询问对话框的一点体会
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 782
原创 用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 3351 1
原创 今天在CSDN发表了一水贴."自己离一个称职的程序员差得太远了"
有一位朋友讲.我把"程序远"都打错了.何谈程序员.我想我做事,一直都不是很细心.决定以后在用笔写文章或在网上发表文章,都要完后读三次.确保少出现错别字!还有就是.以后写字都要写工整!
2004-10-24 13:04:00 750
原创 如何拖动没有边框的窗体?
Public Class Form1 Inherits System.Windows.Forms.Form Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles M
2004-10-24 13:04:00 937
原创 10月23日:关于在FlexCell从SQL2000里加载记录,并实现层次化显示
要求:在一个记录集中.加载到FlexCell 比如有三条记录 a b c 其中b和c的记录相同 要在一列中显示为 a bc类 bc思路: for 读出记录rs1 if rs1=rs2 then
2004-10-24 12:55:00 1236
原创 VB.NET中得到计算机硬件信息
得到显示器分辨率 Dim X As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.WidthDim Y As Short = System.Windows.Forms.Screen.PrimaryScreen.Bounds.HeightMsgBox("您的显示器分辨率是:" & X & " X " & Y)得到特殊文件
2004-10-24 12:24:00 1261
原创 关于FlexCell控件的SelectionMode属性(选择模式)的说明
SelectionMode=cellSelectionByRow 只能选择行也可以选择整表,不能选择列,但是不能自由选择SelectionMode=cellSelectionFree 自由选择,可以选择行和列SelectionMode=cellSelectionByColumn 和 cellSelectionByRow相反,只能选择列SelectionMode=cellSelectionNone
2004-10-21 19:56:00 4041
原创 让文本框只能输入指定格式的类
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
原创 返回数组中的最大值
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
原创 限制文本框为数字
If KeyAscii = 8 Then Exit SubIf Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
2004-10-16 19:18:00 775
原创 星期一处理GFS_S窗口是的单价,金额,数量,只能输入数字,并用小数点显示Format函数!
还有清空有问题分项合计时,发果金额大于总的,提示不允许加入 并让"加入不可用" “删除“后可用还有就是当,提示信息为空时,把焦定设置到上面在GRID1中如果没有选择行,则删除,修改,不可用,符合逻辑关系
2004-10-16 19:09:00 782
原创 关于Format函数使用经验,记下来
在日期Text控件中,显示金额时,都是100000 不便于判断是否对错,可以使用Fromat函数格式化显示text1.text=fromat(text1.text,###,##0.00) 显示为100,000 .00 可以把真实的值存在.tag中
2004-10-16 18:56:00 1174
原创 VB面向对象编程的一个简单的演示程序
这个例子,也可以看作是使用类模块的入门级的演示。 新建一个工程,在form1中添加3个文本框。我们希望对这三个文本框中输入的字符进行限制,第一个只允许输入数字,第二个只允许输入字母,第三个只允许输入大写字母。 一般的做法,可以在这三个文本框的keypress事件过程中分别写检查代码。好一点的方案,是把检查代码写成一个共用的过程,让这三个文本框的keypress事件去各自进行调用。 现在,我们
2004-10-15 20:14:00 1158
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人