王咣生 发表于 2007-12-29 21:59:00

accont与ocx作可停靠对话框

<p>如图:</p><p>&nbsp;</p><p></p><p>这个是用accont和VB做的,源程序参见下载频道.</p><p></p>

chtd 发表于 2008-2-19 09:13:00

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

王咣生 发表于 2008-2-19 09:26:00

本帖最后由 作者 于 2008-2-19 9:33:17 编辑 <br /><br /> <p>程序里找setting.ini是在HKEY_CURRENT_USER的TDDC键值</p><p>如果setting.ini在C:\1目录下,则所以先运行</p><p>(vl-registry-write "HKEY_CURRENT_USER" "TDDC" "C:\1")</p><p></p><p></p><p>在MyOutlookBar.ctl文件中代码确定了查找setting.ini的位置:</p><p>Private Sub ctxOutlookBar1_ButtonClick(ByVal oBtn As OutlookBar.cButton)<br/>&nbsp;&nbsp;&nbsp; If oBtn.Class = ucsBtnClassItem Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim sec As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sec = oBtn.Parent.Caption<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim Key As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Key = oBtn.Caption<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '<br/><font color="#ff6600">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim path As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; path = QueryValue(HKEY_CURRENT_USER, "TDDC", "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim ini As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ini = path + "\setting.ini"</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not FileExists(ini) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "没有找到文件setting.ini!"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim cIniObj As New clsINI<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cIniObj.FileName = ini<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim val As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; val = cIniObj.GetValue(sec, Key, "***")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox val<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim mac As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; mac = val + vbCr<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dockContainer.Application.ActiveDocument.SendCommand mac<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</p>

xiaohuameng 发表于 2008-4-19 23:35:00

<p>感谢王版主，正想需要这个，请问原码有吗？下载频道？具体在哪，望赐教！</p><p>王版主本人和你是同行，很多问题想向你请教，请问你ＱＱ号是多少，能告诉我吗？</p><p>本人E-mail :xiaohuameng@163.com 谢谢！</p><p></p>

王咣生 发表于 2008-4-28 20:54:00

<p>下载地址:</p><p><a href="http://www.mjtd.com/Soft/SoftShow.asp?SoftID=122">http://www.mjtd.com/Soft/SoftShow.asp?SoftID=122</a></p><p>两个链接都要下载.</p>

huaheroys 发表于 2008-8-6 21:47:00

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

muzilongyun 发表于 2008-10-15 21:32:00

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

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

wowan1314 发表于 2012-5-1 14:12:04

收藏下。 估计有用

pmq 发表于 2015-7-15 21:32:29

无法找到该页了
页: [1]
查看完整版本: accont与ocx作可停靠对话框