Question

vb程序中单击按钮，字体变大或变小三个单位

在窗体上建立4个命令按钮Command1、Command2、Command3和Command4。
要求：
（1）命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。
（2）每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。
（3）单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。
（4）4个按钮每单击一次都在窗体上显示“欢迎使用VB”。
（5）双击窗体后可以退出。

Answer 1

Option Explicit

Private Sub Form_DblClick()
    End
End Sub

Private Sub Form_Load()
Command1.Caption = "字体变大"
Command2.Caption = "字体变小"
Command3.Caption = "加粗"
Command4.Caption = "标准"
    
End Sub

Private Sub disp()
    Cls
    Print "欢迎使用VB"
End Sub


Private Sub Command1_Click()
    FontSize = FontSize + 3
    Call disp
End Sub

Private Sub Command2_Click()
    If FontSize > 3 Then FontSize = FontSize - 3
    Call disp
End Sub

Private Sub Command3_Click()
    FontBold = True
    Call disp
End Sub

Private Sub Command4_Click()
    FontBold = False
    Call disp
End Sub

Answer 2

我可以帮你，但你之前那个同样的问题可以关闭了吧？或者你可以直接在那题上追问，何必新开一题，很不尊重别人劳动成果

追问

不好意思，这两个是当时一起弄的，不知道自己弄了两个，真的没有别的意思，别误解

追答

自己添加4个按钮和1个标签（label） 代码如下：

Private Sub Command1_Click()
Label1.Font.Size = Label1.Font.Size + 3
Print "欢迎使用VB"
End Sub

Private Sub Command2_Click()

If Label1.Font.Size <= 3 Then
MsgBox ("已经是最小号的字体了！")
Else
Label1.Font.Size = Label1.Font.Size - 3
End If
Print "欢迎使用VB"
End Sub

Private Sub Command3_Click()
Label1.Font.Bold = True
Print "欢迎使用VB"
End Sub

Private Sub Command4_Click()
Label1.Font.Bold = False
Print "欢迎使用VB"
End Sub

追问

一定要加个label吗，不加是不是就不行啊

追答

刚忘记加条代码了：
Private Sub Form_DblClick()
End
End Sub
不是不加不行，是你没说你是要让什么地方的字体变大变小，所以我加一个label好直观的看出每个按钮的作用。至于你要让别的地方的字体变化，那当然也是可以的

追问

现在的代码不是让“欢迎使用VB程序“这几个字变大变小，而是使label这个词变大变小了，后面那个代码我是知道的，谢谢啦

追答

因为你的描述中其实是不完全清楚的，如果你是要让窗体上显示的那些字变大小，不需要Label控件，直接把代码中的label1.font.xxx改成form1.font.xxx

Answer 3

vb修改字体你可以在按钮的函数里面写响应，把文本框的字体修改lable1.font.size修改一个你想要的值，你可以随便找本vb的书，看一下具体的，这个以前我做过，挺简单