Question

求大神翻译这段VB语句

If Image1.Picture = LoadPicture(App.Path & "\0.jpg") And Label3.Caption = "丁宁" Then
Label2.Caption = Label2.Caption + 20
Else
Label2.Caption = Label2.Caption - 10
End If

Answer 1

MsgBox  LoadPicture(ThisWorkbook.Path & "\1.jpg")

通过这个语句我们可以看到，弹出的消息框显示的是一串不定的负数值。

而Image1.Picture仅仅只是一个属性。

属性 = -223422342  得到的结果肯定是False

 

即便  Label3.Caption = "丁宁" 是 True

但是 False And True = False

所以你的代码永远只会执行Else后面的语句。因为

Image1.Picture = LoadPicture(App.Path & "\0.jpg") 恒为False

 

我们实际上不如隐藏一个Label4，

然后：

s = "0.jpg"
Image1.Picture = LoadPicture(App.Path & "\" & s)
Label4.Caption = s
if Label4.caption =s and Label3.Caption = "丁宁" Then
    ......
else
    ......
end if

追问

那怎么才可以变成true？
我要image1显示0.jpg和Label3.Caption = "丁宁" 时
Label2.Caption = Label2.Caption + 20

追答

Image1想通过图片控件，来读取图片名称的这种做法是行不通的。

你可以这样来设置，我们在装载图片的时候，给Image1的ToolTipText属性赋值为图片名称：

Image1.Picture = LoadPicture(App.Path & "\0.jpg" )
Image1.ToolTipText = "0.jpg"

 

那么，我们在后面就这么来写条件语句：

If Image1.ToolTipText = "0.jpg" And Label3.Caption = "丁宁" Then
Label2.Caption = Label2.Caption + 20
Else
Label2.Caption = Label2.Caption - 10
End If

追问

好吧！谢谢了！

追答

如果您有什么其他疑问，欢迎您随时询问！1346Q7914Q

Answer 2

这个太简单了，找书看看吧。容易的无法用语言表达。

追问

我运行来运行去都只有else这个情况

追答

说明前面的假设条件没有满足

追问

这样按了确定也是运行else（我的控件名没弄错）