我做了一个控件,里面包含一个image控件,初始图片是自己做好的pic1.gif
控件代码很简单,如下:
Dim strPath As String
Public Property Get picture() As String
picture = strPath
End PropertyPublic Property Let picture(ByVal vNewValue As String)
strPath = vNewValue
Image1.picture = LoadPicture(strPath)
PropertyChanged (picture)
End Property控件编译了,我在程序里面引用,修改了属性:picture改成了其他图片的路径
然后编译我的应用程序,启动编译的应用程序,发现控件的image1的图片没变,不知道为什么?
现在我有个问题:我希望将控件引用后,直接在编辑程序时修改控件的属性,达到修改控件的图片的目的,并且这个图片能在我把程序编译后继续保留在控件中,而不必在应用程序或者文件夹中带图片。请问该怎么做?
这个问题也就是:我希望直接在引用控件后修改它的属性,而让控件保留属性。
就象VB的image控件,修改了picture属性后,图片就保留了在image属性里面了,不用在程序运行中修改或者加载就能显示出来,我自己做的控件能完成这个任务吗?望高手指点!非常感谢
谢谢!
控件代码很简单,如下:
Dim strPath As String
Public Property Get picture() As String
picture = strPath
End PropertyPublic Property Let picture(ByVal vNewValue As String)
strPath = vNewValue
Image1.picture = LoadPicture(strPath)
PropertyChanged (picture)
End Property控件编译了,我在程序里面引用,修改了属性:picture改成了其他图片的路径
然后编译我的应用程序,启动编译的应用程序,发现控件的image1的图片没变,不知道为什么?
现在我有个问题:我希望将控件引用后,直接在编辑程序时修改控件的属性,达到修改控件的图片的目的,并且这个图片能在我把程序编译后继续保留在控件中,而不必在应用程序或者文件夹中带图片。请问该怎么做?
这个问题也就是:我希望直接在引用控件后修改它的属性,而让控件保留属性。
就象VB的image控件,修改了picture属性后,图片就保留了在image属性里面了,不用在程序运行中修改或者加载就能显示出来,我自己做的控件能完成这个任务吗?望高手指点!非常感谢
谢谢!
解决方案 »
- 如何定义PictureBOX的绘图区域?
- 各位高手,如何消除用Binary方式读取文本多出来的由很多空格组成的段落?
- VB的combo.text 是只读属性,我想把他赋空字符串怎么办?
- 如何将*.bmp,*.tif等图象的文件转换成PDF格式的文件(用代码实现).
- 怎样vb打开和读取二进制文件
- 实时曲线显示问题
- 升到两颗星,散分,今天16:30结贴。
- ???如何用api函数得到菜单的名字name???
- 请教INET问题,大家请来看看,50分奉上了~~
- 用msflexgrid自制了一个表格控件当定义MouseIcon时遇到了麻烦
- 请问vb有换皮肤的第三方控件,或vb现在带有这方面的控件吗?
- 急,可不可以用可视方法编辑TREEVIEW
象下面的例子一样调用图片
Image1.picture = LoadResPicture("PICINFORMATION", 0), 1, 1