自定义控件的问题

Question

请问各位大虾,小弟自已做了个自定义控件.其中picture属性在属性窗口能加载图片,但在运行时用LoadPicture()函数就不能加载了,提示"属性的无效使用".自己搞了半天不知道问题出在何处????

Answer 1

可以了,一定要在前面加个set才行.但能不能做成像其他控件一样直接给picture赋值.如:picture1.picture=form1.picture

Answer 2

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("d:\a.bmp")
End Sub没问题,用不着加什么 SET

Answer 3

没看清楚,楼主是自定义控件中用的啊.象下面这样吧:
Private Sub Command1_Click()
Dim p As IPictureDisp
Set p = LoadPicture("d:\a.bmp")
Picture1.Picture = p
End Sub这个没办法了,就这样.