accont与ocx作可停靠对话框

王咣生

如图:

 

这个是用accont和VB做的,源程序参见下载频道.

chtd

斑竹，为何提示没有找到setting.ini？帮忙！！！！

王咣生

程序里找setting.ini是在HKEY_CURRENT_USER的TDDC键值

如果setting.ini在C:\1目录下,则所以先运行

(vl-registry-write "HKEY_CURRENT_USER" "TDDC" "C:\1")

在MyOutlookBar.ctl文件中代码确定了查找setting.ini的位置:

Private Sub ctxOutlookBar1_ButtonClick(ByVal oBtn As OutlookBar.cButton)
    If oBtn.Class = ucsBtnClassItem Then
        Dim sec As String
        sec = oBtn.Parent.Caption
       
        Dim Key As String
        Key = oBtn.Caption
        '
        Dim path As String
        path = QueryValue(HKEY_CURRENT_USER, "TDDC", "")
       
        Dim ini As String
        ini = path + "\setting.ini"
       
        If Not FileExists(ini) Then
            MsgBox "没有找到文件setting.ini!"
            Exit Sub
        End If
       
        Dim cIniObj As New clsINI
        cIniObj.FileName = ini
       
        Dim val As String
        val = cIniObj.GetValue(sec, Key, "***")
       
'        MsgBox val
        Dim mac As String
        mac = val + vbCr
        dockContainer.Application.ActiveDocument.SendCommand mac
    End If
End Sub

xiaohuameng

感谢王版主，正想需要这个，请问原码有吗？下载频道？具体在哪，望赐教！

王版主本人和你是同行，很多问题想向你请教，请问你ＱＱ号是多少，能告诉我吗？

本人E-mail :xiaohuameng@163.com 谢谢！

王咣生

下载地址:

http://www.mjtd.com/Soft/SoftShow.asp?SoftID=122

两个链接都要下载.

huaheroys

太棒了，可是CAD如何调用呢？请回复，感激！

muzilongyun

huaheroys发表于2008-8-6 21:47:00太棒了，可是CAD如何调用呢？请回复，感激！

同问，Account16.arx在CAD里加载后如何使用？

wowan1314

收藏下。 估计有用

pmq

无法找到该页了