Question

VB中Toolbar控件关联着ImageList控件,ImageList属性页中插入图片和删除图片

VB中Toolbar控件关联着ImageList控件,ImageList属性页中插入图片和删除图片总是跳出对话框：“当将另一个控件连接到它时，不得修改ImageList”——我想请教怎样解决这个问题？

Answer 1

先取消Toolbar对ImageList控件的关联，添加删除图片后重新关联。

追问

要怎样取消Toolbar对ImageList控件的关联呢？

追答

toolbar控件点击右键-属性-通用-图像列表选择，下面的禁用图像列表、热图图像列表如果连接到同一个imagelist控件也同样处理。

追问

谢谢高手！还有两个问题想要请教你可以吗？（1）怎样解决VB打开时的名称冲突？（2）如何设置VB窗体背景的图片正好填满窗体，不论窗体怎么调整大小，都始终正好填满窗体？

追答

1、两个窗体同名？新建一个过程，添加窗体，选择冲突的窗体，改名后保存窗体（注意不是保存工程）。或者直接用记事本打开frm文件，找到Attribute VB_Name 那一行，修改后面的名字，保存。
2、背景能随窗体大小变化需要用一个PictureBox做缓存（AutoResize=True,BorderStyle=0-None,AutoRedraw=True,Visible=False），假设名称为：picBackBuf。

Form_Load里载入图片（也可以设计时设置PictureBox的picture属性，省略下面这句）：
picBackBuf.picture=LoadPicture("图片路径")
在Form_Resize里调用：
Me.PaintPicture picBackBuf.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, picBackBuf.Width, picBackBuf.Height, vbSrcCopy
注意，需要判断窗体缩小到0的情况，不然PaintPicture 那一句会报错。

追问

大侠~你说的在Form_Resize里调用：
Me.PaintPicture picBackBuf.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, picBackBuf.Width, picBackBuf.Height, vbSrcCopy
注意，需要判断窗体缩小到0的情况，不然PaintPicture 那一句会报错。
我没找到呢？

追答

唉，还是完整的给你吧，把下面的代码复制到你要显示背景的窗体：

Private Sub Form_Resize()
If Me.ScaleHeight > 100 And Me.ScaleWidth > 200 Then
Me.PaintPicture picBackBuf.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, picBackBuf.Width, picBackBuf.Height, vbSrcCopy
End If
End Sub

Resize是窗体的事件过程，当窗体尺寸发生变化时触发。编辑界面左上角选择Form，右上角找到Resize，单击，VB会自动添加一个空白的事件过程。

追问

大侠对不起~可能是函数定义不一样，我不会修改代码。所以运行出现错误。。

追答

什么错误？

追问

运行时说未定义变量

追答

我已经说了“需要一个PictureBox”做缓冲，就是说：在你的窗体添加一个PictureBox控件，名字改成
picBackBuf，属性设置：AutoResize=True,BorderStyle=0-None,AutoRedraw=True,Visible=False

再有问题另开个