VB中使标签斜体和非斜体切换的程序如何编写

Private Sub Command1_Click()
Label1.Font.Italic = Not Label1.Font.Italic
End Sub

追问

哦，我知道啦，谢谢

为啥我打完之后只能转换为斜体，然后就转不回来了啊？？

追答

你确定是完全复制我的代码吗？如果不是，请提供你的代码

追问

是啊，我是复制你的啊

不过，我把not改为false了

追答

那当然就错了

追问

为啥

等号后面不是只能打true过false吗

而且我打not系统报错了

追答

Not Label1.Font.Italic的运算结果就是True或False，

Label1.Font.Italic = Not Label1.Font.Italic 的意思就是如果Label1.Font.Italic是True则变为False，Not 是进行逻辑取反运算，即把Not后面的True翻转为False，如果是False则反转为Ture，这样的话Label1中的文字就会在斜体和非斜体中切换了。

如果你还是不理解，那么我就换一个你能理解的代码，效果一样，只是比较长一些：

Private Sub Command1_Click()
If Label1.Font.Italic Then   '如果Label1的字体是斜体
    Label1.Font.Italic = False   '则改为非斜体
Else  '否则
    Label1.Font.Italic = True   '就改为斜体
End If
End Sub

追问

好的，这个懂了

谢谢

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vjfxej23xxv3f3v3r37.html