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...

阅读全文>>

VB爱心屏保
发表于 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 ...

阅读全文>>

TOP