Dim file As String Dim a3 As String Private Sub
caidan2_Click Unload Me End Sub Private Sub
Command1_Click Unload Me End Sub Private Sub
Command2_Click CommonDialog1.ShowOpen file =
CommonDialog1.FileName '获得文件路径和名称 Call chang '调用过程 End
Sub Private Sub chang Open file For Input As 1 '打开文件 For
i = 0 To 3 Line Input #1 ai '读取文件的内容 Next Close
1 caidan1.Caption = a0 '更新菜单的显示 caidan2.Caption =
a1 Label1.Caption = a2 '更新Label的显示 Command1.Caption =
a1 '更新command的显示 Command2.Caption = a3 End
Sub 注:此程序在VB6+Win2000下调试通过。
没有相关教程