随笔分类 - VB
摘要:一、解决方法一 1.将对应版本的MSCOMCTL.OCX文件复制到“ X:Windowssystem32 ” (X代表您系统所在目录盘符,如:C:Windowssystem32)目录下。 2.在开始菜单中找到“运行(R)” 或者按快捷键 Win+R 。 3.在“运行(R)” 中输入 “ regsvr
阅读全文
摘要:Private Sub Form_Load ( ) Text1.Tag = 0 Text1_LostFocusEnd SubPrivate Sub Text1_GotFocus ( ) Text1.Text = Text1.Tag Text1.SelStart = 0 Text1.SelLength
阅读全文
摘要:方法一:Error方法 就是采用通用的错误捕获功能 On Error Goto 行号 '遇到错误,转到行号处处理 On Error Resume Next '忽略错误,继续执行 On Error Goto 0 '强制取消错误捕获功能 Function IsNotEmpty(ByVal sArray
阅读全文
摘要:'模块中:Option ExplicitPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewL
阅读全文
摘要:TChart是一个功能强大的绘制各种数据图表的控件,使用它可以很方便的绘制出各种数据图表。下面就来详细介绍它的使用。 常用属性: AxisVisible:Bool型用于显示或隐藏图表上的四个坐标轴以及显示区域的曲线框 BufferDisplay:Bool型默认为Ture.可以提高图像的显示速度消除闪
阅读全文
摘要:ADO用了这么久,每次用向导创建ADO的数据库连接字符串时总会有产生一个Persist Security Info属性,平时没太注意,因为设置为True或False时对数据库连接没有任何影响。不过心理还是不爽,今天有时间查询了一下资料,总算搞清楚了它的作用。 Persist Security Inf
阅读全文
摘要:1. 各种进制转换函数 一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,因而也成为计算机的常用表示方法.
阅读全文
摘要:将ACCESS 的数据库中的表的文件 导出了EXCEL格式 '''' '将ACCESS数据库中的某个表的信息 导出为EXCEL 文件格式 'srcfName ACCESS 数据库文件路径 'desfName excel 文件路径 Public Function ExporToExcel(sqlstr
阅读全文
摘要:刚好用到文件 目录这一块,查了很多资料,各种代码都有,也到处拷贝了很多代码测试,感觉很多太过于复杂,好多都用到API 函数,自己整理了一份,浅显易懂。 留着以后备用 '根据全路径的文件名 获取 文件名(不带后缀),文件名(带后缀),当前路径名,全路径文件下的路径 Public Function Ge
阅读全文
摘要:For i = 0 To m_lvw.ColumnHeaders.Count SendMessage m_lvw.hWnd,LVM_SETCOLUMNWIDTH,i,LVSCW_AUTOSIZE_USEHEADER Next i 在标准模块里要写如下声明和常量: 'API声明 Declare Fun
阅读全文
摘要:VB6.0 开发环境好像不支持鼠标滚轮,书上教了一种方法可以支持鼠标滚轮,现在分享给大家: 1、下载http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe
阅读全文
摘要:config.ini文件 [System]Ttype=FalseTMode=0TErrMode=1SaveTemp=0TControl=0Password=saLoadMax=1000 LoadMin=-1000 Dim loadMax As Double dim LoadMin as double
阅读全文
摘要:VB 一行代码太长需要换行
阅读全文
摘要:可以直接用函数来实现: 1、用CInt()函数的范围在-32,768 至 32,767,对于小数部分四舍五入 。 2、用Int()函数和Fix()函数都会删除参数的小数部份而返回剩下的整数, 不同之处在于,如果参数为负数 则Int()函数返回小于或等于参数的第一个负整数, 而Fix()函数则会返回大
阅读全文
摘要:1. 'API判断数组为空或没有初始化 Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long Private Sub Command1_Click()Dim tmp()
阅读全文
摘要:一、WinSock简介 Socket(套接字)最初是由加利福尼亚大学Berkeley(伯克利)分校为UNIX操作系统开发的网络通信接口,随着UNIX的广泛使用,Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初,由Sun Microsystems,JSB,FTP softwar
阅读全文
摘要:dim a() as long dim b() as bytecopymemory b(0),byval "1234",4 copymemory byval varptr(a(0)),1234,4在 VB 中处于安全考虑,不能直接访问内存,但你可以使用 CopyMemory(RtlMoveMemor
阅读全文
摘要:PictureBox对象可以说是任何对象的原始型态,它可以加载图片、显示文字、画图外,它还能与Frame对象一样,在自己本身里头加载其它的对象而自成一个小群组,用PictureBox可以仿真出任何对象的外观,PictureBox是VB基本控件里变化最多,功能最多,也是令人最想去征服它的一个物件。●P...
阅读全文