Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form_Load
Me.VISIBLE = false
DownloadFile "http://www.chinanethack.com/S [阅读全文] [PDF]
作者；小珂 转自黑基bbs原创作品版
版权归黑客基地所有 转载请注明出处
前阶段写了篇替VB喊冤感到说理没有力度泛泛空谈远没有起到喊冤效果-_-
所以呢现在把我以前VB代码优化点小小经验整理总结下希望可以给大家带来点帮助也希望大家能
把各自观点补充下~~
第偶认为要写出运行速度快在定义数据类型上要注意下
比如说SingleDouble和Currency这几种数据类型如果可以话应尽量用Integer或Long 代替说到这有位仁兄举手发言了:“那偶要是想数据能够保存小数如何能用那2个整型呢？”别急啊我下面就想说这个其实小数也可以保存在Integer类型变量中
例如中约定有 [阅读全文] [PDF]
当把C代码翻译到VB时你经常会遇到高字和低字操作通常是把两个整型值合成个长整型当在C代码中使用了无符号整型这最高位是可以被设置因此简单直接转换高字将会遇到困难由于VB不支持无符号算术符我们只好剥去这最高位在稍后再把它加回来以避免溢出和结果(WXJ_Lake 译)
开始个新工程增添个标准模块把以下代码写入模块:
Start a project then add a module. Add the following code to the module:
Public Property Get LoWord(ByRef lThis As Long [阅读全文] [PDF]
外观模式
就是将大堆功能,合并成个接口提供给客户代码.
比如个Window类,用户就不需要手工编写很多创建窗体代码. 这就是外观模式.
其实,很多模式我们在编写代码时就在使用,只不过没这么称呼而已.也提醒我,看模式书籍时,尽量不要太关注模式名称.
例如,我们可以将处理封装在个类中:
Public Class ErrorManage
Public Shared Sub RecordError( _
ByVal errorMsg As String, _
ByVal errType As ErrorType, [阅读全文] [PDF]
介绍:
本文描述了如何通过些技术手段来提高VB代码执行效率这些手段可以分为两个大部分:编码技术和编译优化技术在编码技术中介绍了如何通过使用高效数据类型、减少外部引用等编程手段来提高代码执行速度减少代码消耗系统资源在编译优化技术中介绍了如何正确地利用VB提供编译选项对在编译时最后生成可执行文件进行优化
前言
什么是个高效软件Software？个高效软件Software不仅应该比实现同样功能软件Software运行得更快还应该消耗更少系统资源这篇文章汇集了作者在使用VB进行软件Software开发时积累下来些经验通过些简单例子来向你展示如何 [阅读全文] [PDF]
Private Sub Command1_Click
WebBrowser1.Navigate "http://localhost/"
Timer1.Enabled = TrueEnd Sub
Private Sub Timer1_Timer
Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String
If Not WebBrowser1.Busy Then
Set doc = WebBrowser1.Document
i = 0
Set objhtml = do [阅读全文] [PDF]
了解对象类型
如果你想知道个对象是否是特殊类型请编写下面代码:
If TypeOf obj Is ListItem Then ...
如果想得到对象类型名字使用:
MsgBox "The item is a " & TypeName(obj)
控制长时间循环
当陷入个很长时间循环中时你就不可能点击任何个命令按钮或者按键这样对于用户来说就很不好控制或许用户不想再执行循环通过点击Cancel按钮退出呢？如何解决这个问题？答案是:使用DoEvents命令！就是说在循环开始执行DoEvents命令就 [阅读全文] [PDF]
Private Sub Command1_Click
WebBrowser1.Navigate "http://localhost/"
Timer1.Enabled = TrueEnd Sub
Private Sub Timer1_Timer
Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String
If Not WebBrowser1.Busy Then
Set doc = WebBrowser1 [阅读全文] [PDF]
什么是一个高效的软件？一个高效的软件不仅应该比实现同样功能的软件运行得更快，还应该消耗更少的系统资源。这篇文章汇集了作者在使用VB进行软件开发时积累下来的一些经验，通过一些简单的例子来向你展示如何写出高效的VB代码。其中包含了一些可能对VB程序员非常有帮助的技术。在开始之前，先让我陈清几个概念。
让代码一次成型：在我接触到的程序员中，有很多人喜欢先根据功能需求把代码写出来，然后在此基础上优化代码。最后发现为了达到优化的目的，他们不得不把代码再重新写一遍。所以我建议你在编写代码之前就需要考虑优化问题。
把握好优化的结果和需要花费的工作之间的关系：通常当完成了一段代码，你需要检查和 [阅读全文] [PDF]
：打开快捷方式以及程序
SHELL "路径"
2：打开硬盘或文件
Shell "explorer F:\", vbNormalFocus
3：打开“我的电脑”“资源管理器”……
Shell "EXPLORER.EXE /n, /e, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
4：打开网页
SHELL "explorer.exe http://www.hao123.com"
- [阅读全文] [PDF]
下面是个VB抓屏保存为文件源文件很不错有精力可以参考下
保存在标准模块
Option Explicit
Public Type BITMAPFILEHEADER
bfType(0 To 1) As Byte
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Public Type BITMAPINFO [阅读全文] [PDF]
G>介绍:
本文描述了如何通过些技术手段来提高VB代码执行效率这些手段可以分为两个大部分:编码技术和编译优化技术在编码技术中介绍了如何通过使用高效数据类型、减少外部引用等编程手段来提高代码执行速度减少代码消耗系统资源在编译优化技术中介绍了如何正确地利用VB提供编译选项对在编译时最后生成可执行文件进行优化
前言
什么是个高效软件Software？个高效软件Software不仅应该比实现同样功能软件Software运行得更快还应该消耗更少系统资源 [阅读全文] [PDF]
Private Declare Function fCreateShellLink Lib \"STKIT432.DLL\" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long Sub Command1_Click()Dim lReturn As Long\'添加到桌面lReturn = fCreateShellLink(\"..\\..\\ [阅读全文] [PDF]
现在所什么事情都是要讲效率，我们编程也要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，为什么要用更多的代码呢？现在介绍VB中一些可用一行代码完成的技巧。大家有其他好的例子，欢迎留言交流！
1、下列代码，则是对逻辑运算不清楚造成If A=true ThenC= Not BElseC= BEnd If
可以：C=A XOR B
2、如果加上下列代码：If C=true thenD=28ElseD=29 End IF
D=Iif((A XOR B),28,29)
3、布尔赋值，常被人忽略,如：If A= 13 [阅读全文] [PDF]
\'大家起来看代码使用思路方法新手朋友好好琢磨下:
\'Dim pDll As Long \'记录Dll用来最后完美释放
\'Dim Update As Update.Handle \'要例子化对象
\'Set Update = LoadObjectByName(App.Path & \"Update.dll\", \"Handle\", pDll) \' New Update.Handle
\'If Update Is Nothing Then Ex [阅读全文] [PDF]
使用API函数。先通过FindWindow得到窗口的句柄，然后对窗口发送关闭消息。
参考：[http://www.CrazyCoder.cn/]PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionPostMessageLib"user32"Alias"Post [阅读全文] [PDF]
已下是代码，程序测试通过~~~~
Private Sub Command1_Click()
WebBrowser1.Navigate \"http://localhost/\"
Timer1.Enabled = TrueEnd Sub
Private Sub Timer1_Timer()
Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String
If Not WebBrowser1.Busy Then
Set doc = W [阅读全文] [PDF]
本文描述了如何通过些技术手段来提高VB代码执行效率这些手段可以分为两个大部分:编码技术和编译优化技术在编码技术中介绍了如何通过使用高效数据类型、减少外部引用等编程手段来提高代码执行速度减少代码消耗系统资源在编译优化技术中介绍了如何正确地利用VB提供编译选项对在编译时最后生成可执行文件进行优化
前言
什么是个高效软件Software？个高效软件Software不仅应该比实现同样功能软件Software运行得更快还应该消耗更少系统资源这篇文章汇集了作 [阅读全文] [PDF]
当把c代码翻译到vb时你经常会遇到高字和低字操作通常是把两个整型值合成个长整型当在c代码中使用了无符号整型这最高位是可以被设置因此简单直接转换高字将会遇到困难由于vb不支持无符号算术符我们只好剥去这最高位在稍后再把它加回来以避免溢出和结果(wxj_lake 译)
开始个新工程增添个标准模块把以下代码写入模块:
start a project then add a module. add the following code to the module: [阅读全文] [PDF]
有时候我们编写小软件Software时候经常要使在任务列表隐藏下面我们就向大家介绍实现代码其实很简单不过很实用呵呵
Private Declare Function ReGISterServiceProcess Lib \"kernel32\" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Private Declare Function GetCurrentProce [阅读全文] [PDF]
- +_@开青岛发票13434444051程生
- 一个简单的 2层系统分析全程
- 主题和皮肤系列(3)
- 主题和皮肤系列(1)
- 主题和皮肤系列(2)
- 鼠标移上去显示层:鼠标滑过显示隐藏层(转)
- jspajax自动刷新:jsp+ajax自动刷新例子(转)
- form表单验证:用js将form表单同时提交到两个区别页面的思路方法
- php上传代码:php统计代码总行数
- 最佳网页宽度及其实现
- 联想2155:PKU 2155
- micboost什么意思:Boost 概述
- atmega16ucosii:μC/OS-II实时性能测试和分析
- cssimportant:4 种实时操作系统实时性的分析对比 --转 time too important
- 基于OHCI的USB主机 —— 总体构架
- 虚拟主机usb:基于OHCI的USB主机 —— 背景介绍
- vc用法:VC使用方法汇总
- 张孝祥《Java就业培训教程》源代码 02 部分
- 抽象类和接口:详细解析Java中抽象类和接口的区别
- 跟踪技术:JSP中的会话跟踪技术
