C++博客-张志松-随笔分类-VB/VBS

VB6 class instancing

张志松 — Sun, 12 Feb 2012 08:48:00 GMT

实例(Instancing)属性决定自己的类对于使用ActiveX组件的应用程序来说是否可见。若可见，则在任何时候可运行不止一个的实例。

　　实例属性有很多选项，我们来看一下：

　　MultiUse —— 这可能是最常用的选项。它只提供给其他应用程序一个组件的实例，这个实例可以提供多个对象。这样就节约了内存空间并允许用户共享全局变量。

　　Private —— 除该组件内的对象，类对于其他对象是不可见的。它通常用于类单独被类中的其他对象所访问。

　　GlobalMultiUse —— 这个类的各种属性和方法可以象简单的全局函数那样被调用。另外，在VB中该类的实例不需要显式创建，因为它会自动创建。各种属性和方法都可从单独的一个组件实例中调用。

　　PublicNotCreatable —— 它表示只有在创建实例的前提下，该类才是可见的。换句话说，用户不能用New关键词创建一个类对象。用户的类对象必须选被创建，然后才可使用。这有点像 DAO的记录集，用户不能创建一个新的记录集，而只能用OpenRecordset方法简单地打开它。

　　SingleUse —— 它表示每次在代码中开始的一个组件的新的实例，只能运行另一个ActiveX组件的实例。换句话说，每个实例都获得自己的"进程空间"。虽然还有一些限制，没有什么奇怪的，它和MultiUse是相对的。

　　GlobalSingleUse —— 类似于GlobalMultiUse，除了代码中创建的对象运行一个组件的新实例。

上述选项，我们很少全部都使用过。毫无疑问，MultiUse是最常见的，其次是Private和GlobalMultiUse，其他的一般很少使用。当然，我们不禁要问，在创建ActiveX DLLs时，我们能得到多少这样的选项呢？答案是明确，因为它们的工作方式是相同的。

原文：http://11lingxian.iteye.com/blog/264971

张志松 2012-02-12 16:48 发表评论

VB动态创建浏览器控件

张志松 — Tue, 07 Feb 2012 06:19:00 GMT

1.需要引用 Microsoft Internet Controls。

2.工程配置中，“删除有关未使用的 ActiveX 控件的信息” 不能勾选。

3.具体代码如下

Option Explicit

Private WithEvents MyWebBrowser As WebBrowser

Private Sub Command1_Click() '创建

Set MyWebBrowser = Me.Controls.Add("SHELL.EXPLORER.2", "MyWebBrowser", Me)

MyWebBrowser.Visible = True

MyWebBrowser.Move 0, 0, 8000, 3000

MyWebBrowser.Navigate "http://www.cppblog.com/zezese"

End Sub

Private Sub Command2_Click() '移除

Me.Controls.Remove "MyWebBrowser"

End Sub

张志松 2012-02-07 14:19 发表评论

随机数

张志松 — Tue, 07 Feb 2012 03:08:00 GMT

C语言

　　函数名:randomize

　　功能:初始化随机数发生器

　　用法:void randomize(void);

　　程序例:

　　#include

　　int main(void)

　　{

　　int i;

　　randomize();

　　printf("Ten random numbers from 0 to 99\n\n");

　　for(i=0; i<10; i++)

　　printf("%d\n", rand() % 100);

　　return 0;

　　}

　　注：可以在TC2.0中运行通过，在VC6.0不能运行。

VC中的用法

　　VC中使用srand()来初始化为随机数生成器。代码实例：

　　#include

　　#define N 10

　　main()

　　{

　　int i;

　　srand(time(0)); /*设置种子,并生成伪随机序列*/

　　for(i=0;i

　　printf("%d\n",rand()%100);/*得到[0,99]伪随机数*/

　　system("pause");

　　}

VB 中的用法

　　Randomize 语句示例

　　本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数，所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

　　Dim MyValue

　　Randomize ' 对随机数生成器做初始化的动作。

　　MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 7 之间(不包括7)的随机整数。

Delphi 中的用法

　　以下事例将随机产生0到100的数字，如果不使用Randomize函数，得到的结果将有规律性。

　　procedure TForm1.btn1Click(Sender: TObject);

　　begin

　　randomize;

　　ShowMessage(IntToStr(Random(100)));

　　end;

http://baike.baidu.com/view/1081216.htm

张志松 2012-02-07 11:08 发表评论

利用WinHttpReques进行URL编码

张志松 — Wed, 10 Aug 2011 02:30:00 GMT

Const WinHttpRequestOption_URL = 1

Const WinHttpRequestOption_URLCodePage = 2

Dim WinHttpReq

Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

WinHttpReq.Option(WinHttpRequestOption_URLCodePage) = 936 ‘国标GB2312

WinHttpReq.Open "GET", "http://www.baidu.com/s?wd=嘟嘟牛"

MsgBox WinHttpReq.Option(WinHttpRequestOption_URL)

张志松 2011-08-10 10:30 发表评论

VB调用"数据库连接属性"对话框

张志松 — Mon, 07 Mar 2011 08:26:00 GMT

引用Microsoft    OLE    DB    Service    Component    1.0    Type    Libary

    Dim objDataLinks As DataLinks
    Set objDataLinks = New DataLinks
    'Set objDataLinks = CreateObject("DataLinks")
    objDataLinks.hWnd = Me.hWnd

    Dim obj As Object
    Set obj = objDataLinks.PromptNew

    If Not obj Is Nothing Then
        Dim strConn As String
        strConn = obj
        MsgBox strConn
    End If

    Set objDataLinks = Nothing

张志松 2011-03-07 16:26 发表评论

CHM打不开，注册itss.dll

张志松 — Sun, 13 Feb 2011 10:48:00 GMT

运行里面输入 regsvr32 itss.dll 后按确定即可。

张志松 2011-02-13 18:48 发表评论

调试脚本

张志松 — Fri, 11 Feb 2011 13:24:00 GMT

1.调试脚本

CScript.exe /X xxx.vbs

WScript.exe /X xxx.vbs

运行后会弹出实时调试对话框，选择你要使用调试器后就可以进行调试了。

2.调试ASP

IIS5.1需要附加dllhost.exe到调试器。

张志松 2011-02-11 21:24 发表评论

VB中使用MSMQ

张志松 — Tue, 25 Jan 2011 05:33:00 GMT

Option Explicit

'接收消息的队列，要求模块级变量
Dim m_RevQueue As MSMQQueue

'接收事件接口
Dim WithEvents m_RevEvent As MSMQEvent

Private Sub Form_Load()

    '创建消息队列
    Dim QueueInfo As New MSMQQueueInfo
    QueueInfo.PathName = ".\Private$\MyQueue"
    QueueInfo.Label = "MyQueue"
    'QueueInfo.Delete
    QueueInfo.Create

    '设置接收事件接口
    Set m_RevEvent = New MSMQEvent
    Set m_RevQueue = QueueInfo.Open(MQACCESS.MQ_RECEIVE_ACCESS, MQSHARE.MQ_DENY_NONE) '接收权限
    m_RevQueue.EnableNotification m_RevEvent

End Sub

Private Sub cmdSend_Click()

    Dim QueueInfo As New MSMQQueueInfo
    QueueInfo.PathName = ".\Private$\MyQueue"
    QueueInfo.Label = "MyQueue"

    '打开队列，发送消息
    Dim MsgQueue As MSMQQueue
    Set MsgQueue = QueueInfo.Open(MQACCESS.MQ_SEND_ACCESS, MQSHARE.MQ_DENY_NONE) '发送权限

    If (MsgQueue.IsOpen()) Then
        Dim Msg As New MSMQMessage
        Msg.Label = "MSMQ消息"
        Msg.Body = "可以是任何变量，只要支持Idispatch接口和持续化接口！"
        Msg.Send MsgQueue
        MsgQueue.Close
     End If

End Sub

Private Sub m_RevEvent_Arrived(ByVal Queue As Object, ByVal Cursor As Long)
'消息到来
Dim theQueue As MSMQQueue
Set theQueue = Queue

Dim Msg As MSMQMessage
Set Msg = theQueue.Receive() '得到消息

theQueue.EnableNotification m_RevEvent '接收下一个消息

MsgBox Msg.Body, vbInformation, Msg.Label

End Sub

张志松 2011-01-25 13:33 发表评论

VB脚本获取外网IP

张志松 — Fri, 05 Nov 2010 13:16:00 GMT

    '用ServerXMLHTTP从ip138获取IP地址

    Dim WinHttpReq

    Set WinHttpReq = CreateObject("Msxml2.ServerXMLHTTP")

    WinHttpReq.Open "GET", "http://www.ip138.com/ips1388.asp"

    WinHttpReq.Send

    '正则表达式解析出外网IP

    Dim MyRegExp

    Set MyRegExp = CreateObject("VBScript.RegExp")

    MyRegExp.Pattern = "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?)"
    MyRegExp.IgnoreCase = True
    MyRegExp.Global = True

    Dim Matches

    Set Matches = MyRegExp.Execute(WinHttpReq.ResponseText)

    MsgBox Matches.Item(0).Value

张志松 2010-11-05 21:16 发表评论

C++博客-张志松-随笔分类-VB/VBS

VB6 class instancing

VB动态创建浏览器控件

随机数

C语言

VC中的用法

VB 中的用法

Delphi 中的用法

利用WinHttpReques进行URL编码

VB调用"数据库连接属性"对话框

CHM打不开， 注册itss.dll

调试脚本

VB中使用MSMQ

VB脚本获取外网IP

CHM打不开，注册itss.dll