VB中如何判断picture控件内是否有文字内容？

来源：百度知道 编辑：UC知道 时间：2024/05/01 16:39:52
我做了一个画图小程序，就是在picture控件上画图，但我想在关闭窗口时，程序检查picture内有内容就MSGBOX提示我是否需要保存，如没内容就直接关闭，因为是画的图形所以用Picture和Image属性都不能实现，请各位大侠帮帮忙，最好给段代码，谢谢！

我想还有另外一种方法可以实现，仅供参考

定义一个全局变量saveflg=false

在你对picture做任何操作都对saveflg=true，如果中途有保存的动作对saveflg=false
如果对picture清空saveflg=false

在退出程序时，对saveflg变量判断它的值就行了
if saveflg then
保存代码
end if

只是做个建议仅供参考。

通过检查pictureBox的颜色点来确定有无图形。

假设你的pictureBox背景颜色为 vbBlack

那么你就通过循环遍历picturebox的背景色，如果找到了有非 vbBlack 的颜色存在，说明有图形，需要提示用户保存！

以下只是一个简单的例子：
needsave=false '这个变量用来表明是否需要保存
for mY=1 to picture1.scaleHeight-1
for mX=1 to picture1.scaleWidth-1
if picture1.point(mx,my)<>vbBlack then
'找到非背景色
needsave=true
goto aa
end if
next
next
aa:
if needsave=true then
msgbox ....... '提示用户保存并作相应处理
end if