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 [阅读全文] [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 LongEnd Type
Public Type BITMAPINFOHEADER \'40 bytes biSize As Long biWidth As Long biHeig [阅读全文] [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 then
B=Tr [阅读全文] [PDF]
使用API函数。先通过FindWindow得到窗口的句柄,然后对窗口发送关闭消息。
参考:[http://www.CrazyCoder.cn/]PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionPostMessageLib"user32"Alias"PostMes [阅读全文] [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 [阅读全文] [PDF]
本文描述了如何通过一些技术手段来提高VB代码的执行效率。这些手段可以分为两个大的部分:编码技术和编译优化技术。在编码技术中介绍了如何通过使用高效的数据类型、减少外部引用等编程手段来提高代码执行速度,减少代码消耗的系统资源。在编译优化技术中介绍了如何正确地利用VB提供的编译选项对在编译时最后生成的可执行文件进行优化。 前言 什么是一个高效的软件?一个高效的软件不仅应该比实现同样功能的软件运行得更快,还应该消耗更少的系统资源。这篇文章汇集了作者在使用VB进行软件开发时积累下来的一些经验,通过一些简单的例子来向你展示如何写出高效的VB代码。其中包含了一些可 [阅读全文] [PDF]
当把c代码翻译到vb时,你经常会遇到高字和低字的操作,通常是把两个整型值合成一个长整型。当在c代码中使用了无符号整型,这最高一位是可以被设置的,因此简单的直接转换高字将会遇到困难。由于vb不支持无符号算术符,我们只好剥去这最高一位,在稍后再把它加回来,以避免溢出和错误的结果。(wxj_lake 译) 开始一个新工程,增添一个标准模块。把以下代码写入模块: start a new project then add a module. add the following code to the module: public property get lowor [阅读全文] [PDF]
有时候我们编写小软件的时候经常要使程序在任务列表隐藏,下面我们就向大家介绍实现代码,其实很简单,不过很实用,呵呵。
Private Declare Function ReGISterServiceProcess Lib \"kernel32\" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As LongPrivate Declare Function GetCurrentProcessId Lib \"kernel32\" () As Long\'请你试试 Ctrl+Alt+Del 是不是 [阅读全文] [PDF]
1 共10条 分1页
- 单片机数码管:51单片机数码管显示的好帮手---MAX...
- 点阵显示屏:智能点阵显示屏HCMS-29xx/39xx及其应用
- 单片机教程:单片机编程入门七
- 汇编语言指令集:IBM-PC汇编语言指令集
- 数据传送指令:MCS-51数据传送指令
- 0083智能工社:浅谈足球游戏的人工智能
- 提拔将领:即时战略游戏将领指挥AI方案设想
- directinput:DirectInput 鼠标编程入门
- 实现爆炸后的振动效果
- 飞机射击类小游戏:有关飞机射击类游戏的设计原理
- 音效最好的播放器:游戏音乐和音效的播放
- 游戏调试:利用双计算机调试游戏程序
- 多任务处理:游戏中的多任务处理
- 电脑游戏中的人工智能制作
- 系统升级:角色扮演游戏的升级系统研究
- rpg游戏制作:深入RPG游戏制作—图形篇
- directdraw:通向DirectDraw的捷径
- 3d场景:如何在3D场景中加入Fog
- 游戏搜索:论游戏中的搜索问题(初级篇)
- directx如何使用:使用DirectX优化声音特性