1、添加一个窗体,添加2个LABEL控件,一个按钮

2、写代码如下Option ExplicitPrivate Sub Command1_Click()App.Title = "工程2"Label2.Caption = "修改后的工程名:" & App.TitleEnd SubPrivate Sub Form_Load()Dim tt As Stringtt = App.TitleLabel1.Caption = "当前工程名:" & ttEnd Sub

3、效果:

1、添加一个窗体,添加2个LABEL控件,一个按钮
2、写代码如下Option ExplicitPrivate Sub Command1_Click()App.Title = "工程2"Label2.Caption = "修改后的工程名:" & App.TitleEnd SubPrivate Sub Form_Load()Dim tt As Stringtt = App.TitleLabel1.Caption = "当前工程名:" & ttEnd Sub
3、效果: