帮忙翻译一下吧VB的程序

来源:百度知道 编辑:UC知道 时间:2024/05/25 00:26:34
Private Sub about_Click()
frmAbout.Show
End Sub

Private Sub addcinfoMenu_Click()
frmAddclassinfo.Show
frmAddclassinfo.Height = 3120
frmAddclassinfo.Width = 5925

End Sub

Private Sub addcourseMenu_Click()
frmAddcourseinfo.Show
End Sub

Private Sub addresultMenu_Click()
frmAddresult.Show
frmAddresult.Width = 6750
frmAddresult.Height = 3645
End Sub

Private Sub addsinfoMenu_Click()
frmAddsinfo.Show
frmAddsinfo.Height = 6070
frmAddsinfo.Width = 8670

End Sub

Private Sub adduserMenu_Click()
frmAdduser.Show
sbStatusBar.Panels(1).Text = "添加用户"
End Sub

Private Sub exitMenu_Click()
End
End Sub

Private Sub exitsinfoMenu_Click()
Unload frminquireinfo
End Sub

Private Sub gradecourseMenu_Click()
frmSetcoursein

**.Show 就是现在**窗体

**.Height 就是设置**窗体高度
**.Width 就是设置**窗体宽度

Private Sub **_Click() '就是点**按纽执行@@@@@@@@@@@@@
的程序

@@@@@@@@@@@@@

End Sub

这么多还没分!懒得回答了!就告诉你下最后一个方法frmModifysinfo.show是打开frmModifysinfo窗体,高为7590,宽为8295

是翻译还是解释一下?
这就是一MDI窗口的应用,没点一个键,相应的子窗口就会弹出来。

你用f8逐句运行,就能看到每句的用途了。