如何在无窗体的类模块中引用ACTIVEX控件!!!!!

cjlong 2000-04-05 09:28:00
1。我建立了一无窗体的EXE工程。
2。加入了一类模块。在部件中引用winsock,在声明中 dim aaa as winsock
在 sub main(){ aaa.方法} 显示aaa没有定义或with语句使用错误。
请教!!!!
谢谢!!!
...全文
135 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Un1 2000-04-24
  • 打赏
  • 举报
回复
各位,控件是不可以New出来的,正确的方法是:

在ActiveX EXE中增加一个窗体Form1,放上控件Winsock1, 设置BorderStyle为None,HasDC 为False。


在类中声明:
Private f As Form1
Private WithEvents Winsock1 As Winsock

在类初始化时:
Set f = New Form1
Load f
Set Winsock1 = f.Winsock1


类终结时:
Set Winsock1 = Nothing

Unload f
Set f = Nothing


在类中写处理代码:
Private Winsock1_Connect()
...
End Sub
reallysoft 2000-04-23
  • 打赏
  • 举报
回复
'*********************
'form1.visible=false
'********************

Dim aaa as Object

set aaa= new form1.winsock1
subzero 2000-04-05
  • 打赏
  • 举报
回复
不能这样引用
从控件栏中删除WINSOCK控件
打开工程菜单中的引用子菜单
点浏览按钮
选文件类型为*。OCX
选择SYSTEM目录下的MSWINSCK。OCX
名字不一定一样
然后就行了

定义:

Dim WithEvents sck As MSWinsockLib.Winsock

SUB CLASS_INITIALIZE()
SET SCK=NEW MSWINSOCKLIB.WINSOCK
END SUB

就可以用了
sck.connect
sck.close
.....
摘要 ActiveBar 2.0提供了完整的Microsoft Office 和Visual Studio 工具栏,菜单和一个小型容易操作的ActiveX控件可停靠的模拟窗口。ActiveBar 2.0去除了系统菜单和工具栏的局限性,为您的应用程序提供了完整的运行时自定义和个性化环境功能。 技术特性 唯一的一个交互式WYSIWYG(所见即所得 )设计器,可以直接在您的窗体上运行。 提供菜单,上下文菜单,工具栏,选项卡工具栏,快捷键,可分离工具箱和状态栏;同时也提供了可停靠窗体,以及将ActiveX控件宿主于工具栏。 提供了状态栏,可以支持各种各样的面板型(数据型、时间型、Ins, CAPS, 数值型, 和 SCRL),也可以支持宿主ActiveX控件。 支持保存和加载布局功能,以在运行时使用,或创建共享工具库。 包括各种大小图标的支持。 包括按比例调整尺寸的控件容器 包括常规工具的工具库 应用场景 适用于工具栏模块 运用优势 § ;;; ;;;完全运行时控件,用来激活或撤消停靠,浮动,调整大小。 § ;;; ;;; 支持按钮,下拉按钮,复选框,文本框,标签,分隔符,ActiveX控件和可停靠窗体。 § ;;; 支持内置MDI子窗体目录和开放的窗体任务栏。 § ;;; ;;; ;;;支持不同工具状态的图标自动解析:点击,激活,撤销。 § ;;; ;;; ;;;可以控制对齐方式,标题位置和工具的图标。 § ;;; ;;; 支持自动的快捷键操作和每个工具的多种快捷键。 § ;;; ;;; ;;; ;;;可以在运行时进行快捷键自定义。 § ;;; ;;; ;;; ;;;可以将菜单和工具栏布局保存或添加到文件或字节数组,您可以把图层保存在数据库或注册表。 § ;;; ;;; ;;;可以创建具有特别上下文的MDI子菜单。 § ;;; ;;; ;;;提供展开菜单和滑动菜单动画。 § ;;; ;;; ;;;提供快捷键梯度和图片背景。 § ;;; ;;; ;;;在弹出菜单有唯一的标题分离器,可以很清楚的聚集菜单项。 § ;;; ;;; ;;;在弹出菜单和上下文菜单提供旗帜图片。 § ;;; ;;; ;;;具有Office2000个性化菜单,快速自定义和突出工具。 § ;;; ;;; 具有完全公开的对象模型,可以创建菜单,工具栏以及在运行时以代码形式创建可停靠界面。 开发环境 支持平台:Windows 95, 98 或以上, Windows NT 4.0 或以上。 支持平台 ";;; Microsoft Visual Studio 6.0 Microsoft Visual Studio 97 Microsoft Visual Basic 6.0 Microsoft Visual Basic 5.0 Microsoft Visual Basic 4.0 Microsoft Visual C++ 5.0 Microsoft Internet Explorer 4.0 Microsoft Internet Explorer 3.0 Netscape Navigator Borland(R) C++ Borland(R) Delphi[TM] 3.0 Borland(R) Delphi[TM] 2.0";;; 标准报价 2,550 元人民币 * 以上报价仅供参考,具体以厂商正式报价为准。 电话 021-58549800 Email: tools@sh.grapecity.com http://www.grapecity.com/china
一、VB控件集,控件集内含ListView、漂亮按钮、下拉列表、TAB窗体选项卡、树形菜单控件窗体滑动菜单、分组菜单,可折叠展开的菜单等。以前就更新过,现在修正了不少控件的小错误,更接近完善了,相信这些控件对于从事vb6编程的朋友来说,是相当实用的。 二、1, clistbar.zip 超级的列表框,你一定不会失望(137KB) 2, axtree.zip 用惯了treeview控件的朋友可以试一试这款axtree控件,它增添了更多的控制(129KB) 3,richedit 利用RichText实现的编辑器,提供了修改字体,打印,查询等功能(4KB) 4,exptrocx.zip 实现explorer风格的树型目录的activex控件(1191KB) 5,txtsrch 在Text实现快速增量查询(5KB) 6,exproplist.zip 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 7,combosrc.zip 在 COMBO 的增量查询(2KB) 8,escombo.zip 为COomBo控件加强版,有近似关键字搜索功能(27KB) 9,sblist20.zip 它允许你用各自颜色(162KB) 10,wordwrap.zip 在 TextBox 自动换行(2KB) 11,chklst.zip Check Box 和 List的结合体(101KB) 12,aresbuttonpro.zip aresbutton是一个显示图形按钮的activex控件, 主页地址http://const.ricor.ru/~art/aresbutton(320KB) 13,kenjLV1.zip ListView的API效果演示(11KB) 14,cbuttonr.zip 扩充的按钮控件(24KB) 15,csplitba.zip 在窗体里随意建立分隔条(11KB) 16,gbarocx.zip 进度条(171KB) 17,ccrpprg.zip 一个进度条的控件,可以有多种形态供你选择(142KB) 18,chklsb25.zip 它提供了似 word 和 excel 的内含检查框 ( checkbox)的列表框(listbox)。在这个控制,每一个条目的字体、颜色、使能状态和选状态都可以被单独设置。这个控制也支持3d外观、图片条目和定制的检查框符号(167KB) 19,as97ppup.zip 一种可以弹出的按钮,具有多种形态和功能(32KB) 20,slidrc.zip 形状似于收音机音量控制的滚动条(296KB) 21,TracBar.zip 滚动条模块,与 VB 的滚动条比较, 该模块支持动态生成, 支持触发消息(7KB) 22,srchlist.zip 在 list 控件里进行增量查询(3KB) 23,devfltbt.zip 可爱的按钮(141KB) 24,treedrag.zip TreeView 节点拖动、增加、删除等功能演示(8KB) 25,dirview.zip 装入整个 C 盘目录到 TreeView(5KB) 26,msghook.exe 专门用来截取Windows消息的控件(114KB) 27,led.ZIP 象电子表一样显示数字的控件(17KB) 28,splitbardemo.ZIP 无须任何代码,即可随意拖动该控件,有水平和垂直两种样式。支持 MouseOver 事件(拖动结束)(11KB) 29,hotkeydemo.ZIP 该控件可以为你的应用程序添加一个系统级的热键,通过HotkeyPressed事件来处理热键的按下后的工作。(15KB) 30,pwdboxdemo.ZIP 每当用键盘输入一个字符时,将显示出随机个数的密码字符(31KB) 31,c5.zip 防火墙控件(39KB) 32,c6.zip 列出Windows运行的所有程序,并终止其运行的控件(18KB) 33,taskbar.zip 一个日期控件(有源代码)(6KB) 34,encrypt.zip 加密/解密字符串的控件(46KB) 35,activelock.zip

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧