UC知道VB编程Command与Label及TextBox的问题
来源：百度知道 编辑：UC知道 时间：2024/09/22 04:29:23
觉得分不够，说声就是。
3个Command。粗体，斜体，下划线
Command控制Label的显示内容“当前字型：”
如果什么都不点击。TextBox内的文字效果为默认，同时Label显示
“当前字型：默认”
如果只点击粗体后。TextBox内的文字效果变为粗体，同时Label显示
“当前字型：粗体”
如果点击了粗体，斜体。TextBox内的文字效果变为粗体斜体，同时Label显示“当前字型：粗体 斜体”
如果点击了粗体，斜体，下划线。TextBox内的文字效果变为粗体斜体下划线，同时Label显示“当前字型：粗体 斜体 下划线”
如果TextBox内3种效果都存在了。
再次点击粗体时。TextBox内没有粗体效果。同时Label显示内容变为“当前字型：斜体 下划线”
如果TextBox内存在斜体和下划线。
再次点击斜体时。TextBox内没有斜体效果。同时Label显示内容变为“当前字型：下划线”
如果TextBox内存在下划线。
再次点击斜体时。TextBox内没有下划线效果。同时Label显示内容变为“当前字型：默认”
意思就是，点击按钮后。在Label和TextBox出现相应的文字及效果。
再次点击那个按钮时，Label和TextBox里的相应的文字及效果消失。
情况有多种。我只列了6种。希望高手帮我写全。感谢！
3个Command。粗体，斜体，下划线
Command控制Label的显示内容“当前字型：”
如果什么都不点击。TextBox内的文字效果为默认，同时Label显示
“当前字型：默认”
如果只点击粗体后。TextBox内的文字效果变为粗体，同时Label显示
“当前字型：粗体”
如果点击了粗体，斜体。TextBox内的文字效果变为粗体斜体，同时Label显示“当前字型：粗体 斜体”
如果点击了粗体，斜体，下划线。TextBox内的文字效果变为粗体斜体下划线，同时Label显示“当前字型：粗体 斜体 下划线”
如果TextBox内3种效果都存在了。
再次点击粗体时。TextBox内没有粗体效果。同时Label显示内容变为“当前字型：斜体 下划线”
如果TextBox内存在斜体和下划线。
再次点击斜体时。TextBox内没有斜体效果。同时Label显示内容变为“当前字型：下划线”
如果TextBox内存在下划线。
再次点击斜体时。TextBox内没有下划线效果。同时Label显示内容变为“当前字型：默认”
意思就是，点击按钮后。在Label和TextBox出现相应的文字及效果。
再次点击那个按钮时，Label和TextBox里的相应的文字及效果消失。
情况有多种。我只列了6种。希望高手帮我写全。感谢！
Private Sub Command1_Click()
Text1.FontBold = Not Text1.FontBold
setLab
End Sub
Private Sub Command2_Click()
Text1.FontItalic = Not Text1.FontItalic
setLab
End Sub
Private Sub Command3_Click()
Text1.FontUnderline = Not Text1.FontUnderline
setLab
End Sub
Private Sub setLab()
Label1.Caption = ""
If Text1.FontBold Then Label1.Caption = " 粗体 "
If Text1.FontItalic Then Label1.Caption = Label1.Caption & " 斜体 "
If Text1.FontUnderline Then Label1.Caption = Label1.Caption & " 下划线"
If Label1.Caption = "" Then Label1.Caption = Label1.Caption & "默认"
Label1.Caption = "当前字型：" & Label1.Caption
End Sub