VB最为人垢病的是它的面向对象特性。实际上VB是一种基于对象的开发工具。在VB中 建立的类是支持继承的。下面是范例： 首先建立一个新工程，然后添加一个新的类模块(Class Module)，类名称设定为BaseClass。 然后在BaseClass中加入以下代码： Public Sub BaseSub() 虚拟特性，BaseSub在子类中实现 End Sub 然后添加两个类模块，类名称分别设定为

在XP操作系统下，在VB的webbrowser控件中的按钮等是没有XP风格的。下面的代码可以使webbrowser控件中的页面显示XP风格：Private m_hMod As LongPrivate m_hMod2 As LongPrivate Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCom

从网上找的多数不支持中文的编码解码，做了一下修改，支持中文的解码，编码还没有完成。Public key(1 To 3) As LongPrivate Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"Public Sub GenKey()    Dim d As Long, phi As

概要在 Microsoft Windows 95、Windows 98 和 Windows Millennium Edition (Me) 系统上，可以灵活地自定义页面大小。但在运行 Windows NT 和 Windows 2000 的系统上，必须先将所有页面大小定义为页形 (form) 才能使用。本文介绍如何在 Windows NT 和 Windows 2000 上打印自定义页面大小，并包含一

Option Explicit// define constantsPrivate Const IP_SUCCESS As Long = 0Private Const SOCKET_ERROR As Long = -1Private Const MAX_WSADescription As Long = 256Private Const MAX_WSASYSStatus As Long = 128

  Private Type STARTUPINFO      cb As Long      lpReserved As String      lpDesktop As String      lpTitle As String      dwX As Long      dwY As Long      dwXSize As Long      dwYSize As Long      dw

Imports SystemImports System.DiagnosticsPublic Class MacAddress    Public Function GetMac(ByVal IP As String) As String        Dim str1 As String = String.Empty        Try            Dim str2 As Str

1、在窗体中添加一个PictureBox控件2、将控件的OLEDropMode设置为13、在OLEDragDrop事件中通过Data.Files(1)就可以获得IE中拖放过来的图片在IE临时文件夹中的全路径名。将这个文件拷贝到你需要的地方就可以了。

通过WorkSheet的UsedRange属性可以获得WorkSheet上以使用的区域。也可以通过Range对象SpecialCells方法获得与指定类型匹配的所有单元格。 

Option ExplicitPrivate Type UUID    Data1 As Long    Data2 As Integer    Data3 As Integer    Data4(0 To 7) As ByteEnd TypePrivate Declare Sub ZeroMemory()Sub ZeroMemory Lib "kernel32.dll" Alias

了解POP3POP3简介    POP3是Post Office Protocol - Version 3的简称，这个协议是目前绝大多数电子邮件程序使用的收邮件程序，通过该协议，电子邮件客户端程序可以登录到电子邮件服务器上接受电子邮件。POP3协议是一种脱机模型的协议，当客户端查询并下载电子邮件后，客户端就与服务器端断开连接，用户在客户端可以随意的删除、修改邮件的内容。POP3的通信方式    初

Public Const WM_USER = &H400Public Const EM_SETTARGETDEVICE = (WM_USER + 72)Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As LongPublic Declare Function SendMessage Lib "user32" Alia

假设放置Webbrowser组件的是Form1，那么在这个webbrowser的NewWindow2事件中加入以下代码：   Dim frmWB As Form1   Set frmWB = New Form1   frmWB.WebBrowser1.RegisterAsBrowser = TRUE   Set ppDisp = frmWB.WebBrowser1.Object   frmWB.V

在VB中动态添加可响应消息的控件 在VB编程中，经常要根据不同的情况在运行时向窗口中添加或者删除控件，而各个控件还要响应各种事件。在一般的情况下是首先在设计时将控件加入到窗口中，在它们的各个事件中写入代码，然后将它们的Visible属性设置为False。在运行时再使控件显示出来，但是这样既不方便同时也因为在设计时在窗口中加入太多的控件而使得程序的运行速度变慢。下面我向大家介绍

对编写脚本熟悉的读者都知道页面中可以添加脚本响应元素的事件，例如超链接的OnClick事件，图片的OnMouseMove事件，我们也可以使VB程序响应这些事件。下面是一个VB响应页面中按钮的Click事件的代码： 首先建立一个新工程，在Form1中加入一个Webbrowser控件，然后在Form1中加入以下代码： Option Explicit Public Sub Some_Procedure(

1、页面滚动：Private Sub Command2_Click()    WebBrowser1.Document.parentwindow.scrollby 0, 30End SubPrivate Sub Form_Load()     WebBrowser1.Navigate "http://www.applevb.com"End Sub 点击Command2就可以使当前页面向下滚动30像

1、如何使网页不出现滚动条：Private Sub mnuScroll1_Click()注意：必须在网页完全显示之后才可以运行    WebBrowser1.Document.body.Scroll = "no" 不显示滚动条的办法End SubPrivate Sub mnuScroll2_Click()注意：必须在网页完全显示之后才可以运行    WebBrowser1.Document.

1、获得浏览器信息：Private Sub Command1_Click()    WebBrowser1.Navigate "http://www.applevb.com"End SubPrivate Sub Command2_Click()    Dim oWindow    Dim oNav        Set oWindow = WebBrowser1.Document.parentWi

向Webbrowser中写入HTML内容的几种方法首先在Form_Load中加入WebBrowser1.Navigate "about:blank"确保Webbrowser1可用 方法1：    Dim s As String    Dim stream As IStream           s = ""    s = s + ""    s = s + ""    s = s + " hel

VB填充IE上的输入框并提交 假设登录页面的HTML代码如下： testPage            用户：                                 密码：                         很简单的页面，在上面有一个登录的Form，一个用户名输入框LoginName，一个密码输入框LoginPassword和一个提交按钮clickme 然后用I

TaskBar上针对每个程式都会有一个Item於其上，按该Item便会Activate该对应的程式，其实TaskBar上的这些程式Item是用Tab Control做的，所以如果我们能得到TaskBar上的Tab Control(SysTab)的hWnd，我们便可以随意删除其上的Item了。1. 一个应用程式启动时, 除了送出 WM_ACTIVE 叫醒自己本身的主要视窗外, 它还会通知   Sys

Install a new printer on the system:http://www.devx.com/vb2themax/Tip/19284Private Type PRINTER_INFO_2 pServerName As String pPrinterName As String pShareName As String pPortName A

我在用VB在做一个东西,现需要一个函数能实现如下功能:将指定URL处的文件下载到指定的文件夹里,并能保持原来的类型不变.参数有三:一个是URL,指定文件的下载地址,一个是本地保存路径,是个文件夹,比如说"D:/TMP",一个是文件类型,比如PDF,DOC可以通过Microsoft Internet Transfer Control来实现下载：strURL = "http://www.GreatSi

今天在优快云上看到一个问题，就是如何实现简单的四则运算，例如a+b-c*(a+e)。然后将参数值代入到算式中进行计算。通过ScriptControl可以完成这个功能。首先创建一个工程，在工程中加入一个新的类，类名称为Class1，然后在类中加入以下定义 ：Public k1 As IntegerPublic a As IntegerPublic b As IntegerPublic c