1、添加一个窗体,添加2个LABEL控件,一个按钮
2、写代码如下Optio艘绒庳焰n ExplicitPrivate Sub Command1_Click()App.Title = &qu泠贾高框ot;工程2"Label2.Caption = "修改后的工程名:" & App.TitleEnd SubPrivate Sub Form_Load()Dim tt As Stringtt = App.TitleLabel1.Caption = "当前工程名:" & ttEnd Sub
3、效果:
1、添加一个窗体,添加2个LABEL控件,一个按钮
2、写代码如下Optio艘绒庳焰n ExplicitPrivate Sub Command1_Click()App.Title = &qu泠贾高框ot;工程2"Label2.Caption = "修改后的工程名:" & App.TitleEnd SubPrivate Sub Form_Load()Dim tt As Stringtt = App.TitleLabel1.Caption = "当前工程名:" & ttEnd Sub
3、效果: