MyException - 我的异常网
当前位置:我的异常网» VB » 自制控件的共同属性怎么设置

自制控件的共同属性怎么设置

www.MyException.Cn  网友分享于:2013-01-11  浏览:12次
自制控件的共同属性如何设置?
自制控件的共同属性如何设置?
我下载了六个色子的图案,准备制作一个色子控件。首先在ActiveX控件窗体上载入了第一张图案(画面为1点的色子),然后在外接程序处启动了ActiveX控件接口向导,在自定义成员界面新建了num属性,在设置映射界面没作选择,在设置属性界面设置数据类型为interger,   缺省值为1。然后就不知怎么做了。  

我想请教怎样载入后五个图案并设置共同的num属性,数值分别为2-6?我制作的目的是在调用色子控件后,找到num属性,选择值为3时,色子的图案就变为第三张图案,等等。请教大家,谢谢!



------解决方案--------------------
我认为6个点数的图片应该全部放在你的控件里,然后根据num的值来决定显示哪一张图片,而不应该将图片放置在控件外部,这样不好管理

实现路:在控件中建立6个image1图片数组对应6个点数,index 取 1-6, visible=false

Public Property Get num() As integer
num = m_num
End Property

Public Property Let num(ByVal New_num As Integer)
m_num = New_num
PropertyChanged "num "

'在这里加入

if num> =1 and num <=6 then Image.picture=image1(num).picture 'image为控件要显示的图片

End Property



------解决方案--------------------
lsh6348() 不知道你怎么做的,我一开始给你写是没有测试。不过我刚自己测试一下没有问题。
ActiveX 我是做成OCX的。再在VB程式中调用。
OCX那边也就
Public Sub show1(ss As Integer)
Select Case ss
Case 1
Image1.Picture = LoadPicture( "d:\1.GIF ")
Case 2
Image1.Picture = LoadPicture( "d:\2.GIF ")
Case 3
Image1.Picture = LoadPicture( "d:\3.GIF ")
Case 4
Image1.Picture = LoadPicture( "d:\4.GIF ")
Case 5
Image1.Picture = LoadPicture( "d:\5.GIF ")
Case 6
Image1.Picture = LoadPicture( "d:\6.GIF ")

End Select

End Sub
没有任何变动

VB端
Private Sub Command1_Click()
'UserControl21.num = 1
Dim sss As Integer
sss = CInt(Text1.Text)
UserControl21.show1 sss
End Sub

UserControl21为应用后OCX控件的名称


上面stlyl(stlyl(维生素B)) 说的关于图片很有道理,不过我给你讲怎样实现而已.

祝你成功啦!要是还不行我就要怀疑 "人品问题 "咯!哈哈...

文章评论

程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
程序员应该关注的一些事儿
程序员应该关注的一些事儿
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
程序员和编码员之间的区别
程序员和编码员之间的区别
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
中美印日四国程序员比较
中美印日四国程序员比较
一个程序员的时间管理
一个程序员的时间管理
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
为什么程序员都是夜猫子
为什么程序员都是夜猫子
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
10个调试和排错的小建议
10个调试和排错的小建议
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员都该阅读的书
程序员都该阅读的书
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
 程序员的样子
程序员的样子
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
如何成为一名黑客
如何成为一名黑客
漫画:程序员的工作
漫画:程序员的工作
老程序员的下场
老程序员的下场
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
旅行,写作,编程
旅行,写作,编程
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
每天工作4小时的程序员
每天工作4小时的程序员
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
程序员必看的十大电影
程序员必看的十大电影
鲜为人知的编程真相
鲜为人知的编程真相
那些争议最大的编程观点
那些争议最大的编程观点
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
我的丈夫是个程序员
我的丈夫是个程序员
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有