软件源码 - 小歆のBlog

Chishin Blog 千里之堤毁于蚁穴 —— 小歆

VB代码优化的六条军规

发表于 2013-9-20 | | 软件源码

在优化程序代码大小的诸多技术中，大多包括从代码中删除不必要的元素。在编译应用程序时，Visual Basic自动删除某些元素。而标识符名称、注释、空行的长度或数量是无须限制的，当应用程序作为一个.EXE文件运行时，以上这些元素都不会影响应用程序所占内存的大小。其他元素，如变量、窗体和过程，确实要占据内存的一部分空间。最好将它们精简以使效率更高。下面介绍6种方法可用于缩小应用程序所需内存和减少代码大小，希望能对初学者有所帮助。 1、减少加载窗体、控件数目和用标签代替文本框每一个加载的窗体，...

用VB快速读取TextBox第N行的数据

发表于 2013-9-20 | | 软件源码

TextBox 是以 vbCr+vbLf 为分行符号，如果我们要逐一读取 TextBox 每一行，无非是寻找 vbCr+vbLf 的所在位置，然后取出每一行的字串，不过这个方法不快，而且如果我们要读取第 N 行数据，还是要从第 1、2、…N-1 行逐一读起，实在麻烦。还好 Windows API 提供有读取 TextBox 第 N 行的功能，细节如下： 1、API 的声明： Public Const EM_GETLINE = &HC4 Public Const EM_...

VB中LostFocus、GotFocus事件的改进

发表于 2013-9-20 | | 软件源码

---- VB中有一个LostFocus事件和一个GotFocus事件，看名字似乎是当当前窗口失去焦点或得到焦点时触发的事件。但在实际应用时却发现当这个窗口和Windows中其他窗口进行切换时并没有触发这两个事件。现在解析一下这两个事件。 ---- Form_LostFocus、Form_GotFocus是指的是一个MDI主父窗体调用了多个子窗体，当这些子窗体之间切换时，就触发这两个事件；当一个窗体中的多个文本框，鼠标点击另一个文本框时，也会触发这两个此事件，文本框在 Windows内部实际上也是一个窗口。 ---- Windows内部是通过消息来触发事件的...

【详解】VB6.0下用MSComm控件实现串口通信

发表于 2013-6-24 | | 软件源码

VB6.0 下用 MSComm 控件实现串口通信 MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能下载地址：http://disk.xxgzs.org/?/file/view-ROJSYGV.html

VB编程语言参考手册

发表于 2013-4-6 | | 软件源码

VB编程语言参考手册资源目录：小歆网盘：VB编程语言参考手册.rar

[乱码力作]VBS基础教程

发表于 2013-1-13 | | 软件源码

教程目录 1.VBS与VB的故事 2.MsgBox的秘密 3.InputBox的技巧 4.自定义函数(一) 5.自定义函数(二) 6.WScript.Shell对象（一） 7.WScript.Shell对象（二)注册表操作 8.Shell对象(三)快捷方式之QQ欺骗 9.Shell对象(四)虑拟按键QQ刷屏 10.FSO对象:文件读写与不死脚本附件下载 ht...

VB改变图片大小的函数

发表于 2012-11-28 | | 软件源码

Public Function ResizePicture(ByVal sourceImage As Bitmap, _ ByVal newSize As Size) As Bitmap '调整图片大小(图片源，新尺寸) Dim Result_image As New Bitmap(sourceImage, newSize.Width, newSize.Height) Dim Gr As Graphics Gr = Graphics.FromImage(Result_image) ...

[C语言]用9行代码干掉Windows XP,2000

发表于 2012-11-18 | | 软件源码

微软一直声称Windows XP多么多么稳定可靠，但日前一位名为Masaru Tsuchiyama（留在程序下方，所以应该是他的昵称）外国编程爱好者刊出了一小段C语言代码。这一只有9行的小程序如果在Windows XP/2000下运行，则可导致系统完全崩溃，并重新启动。但此程序对其他版本的Windows没有任何影响。这一产生无限循环输出的小程序的代码如下：　　#include 　　int main( void ) 　　{ 　　for(;;){ 　　printf( "hung up/t/t/b/b/b/b/b/b" ); 　　print("hung up/t/...

vb中Msgbox函数的用法

发表于 2012-10-13 | | 软件源码

VB中的Msgbox函数，可实现弹出窗口作用：在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。语法： MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 参数说明： MsgBox 函数的语法具有以下几个命名参数： Prompt-------必需的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符 (Chr...

VB字符串函数大全

发表于 2012-7-11 | | 软件源码

Abs(number) 返回绝对值。 Array(arglist) 创建一个数组。 Asc(string) 返回字符串第一个字符的ANSI码。 Atn(number) 返回反正弦值。 CBool (expression) 转换成Boolean数据类型变量。 CByte (expression) 转换成Byte数据类型变量。 CCur (expression) 转换成Currency数据类型变量。 CDate (expression) 转换成Date数据类型变量。 CDbl (expr...

VB自删除模块源码

发表于 2012-7-2 | | 软件源码

运行后能够删除自己。提示：不要在VB的IDE下运行，否则会删除VB6.exe。一定要编译后运行。下载地址：VB自删除源码.rar 部分源码： Private Type tCONTEXT ContextFlags As Long space1(1 To 140) As Byte SegFs As Long space2(1 To 568) As Byte End Type 'Local Descriptor Table bytes Private Type tLDT_BYTES BaseMid As Byte Flags1...

Base64加密解密VB源码

发表于 2012-7-2 | | 软件源码

base64加密模块用法：Base64Encode(‘加密字符') Option Explicit Public Function Base64Encode(InStr1 As String) As String Dim mInByte(3) As Byte, mOutByte(4) As Byte Dim myByte As Byte Dim I As Integer, LenArray As Integer, j As Integer Dim myBArray() As Byte Dim OutStr1 As String ...

MD5加密算法VB源码

发表于 2012-6-12 | | 软件源码

今天在在网页的源代码中找到了MD5加密算法的代码，呵呵，搬过来VB用了～～直接调用就可以了 Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0 Then LShift = lValu...

发表于 2012-6-2 | | 软件源码

'运行后可以后到一个由圆画成的爱心,送给好孩呵呵 '分辨率=1024*768 '要生成文件的后缀名为scr '窗体样式要改为Me.BorderStyle = 0 Dim X1, Y1, X2, Y2 As Integer Dim I As Integer Dim J As Boolean Dim K As Integer Dim WithEvents Label1 As Label '声明一个label Dim WithEvents Timer1 As Timer '声明一个timer Private Sub Form_Activate() ...

VB键盘代码真值表

发表于 2012-6-2 | | 软件源码

VB键盘代码常量值 (0x为16进制，其他为10进制) 键盘说明 vbKeyLButton 0x1 鼠标左键 vbKeyRButton 0x2 ...

1 2 3

TOP