VB中窗体的操作
Private Sub Form_Load()
Dim i As Integer
Dim sCol()
Dim ii As Long
Dim FG As Long, nn As Long, m As Long
Dim str As String
Combo1.Text = ""
If Form1.Command84.BackColor = &H92D2FF Then
Open App.Path & "\cc.txt" For Input As #1
End If
If Form1.Command85.BackColor = &H92D2FF Then
Open App.Path & "\ccc.txt" For Input As #1
'以上是针对于2窗体MSFlexGrid1的,让MSFlexGrid1选择读取哪个文件
'窗体隐藏
Private Sub Command7_Click()
Me.Hide
Form1.Show
End Sub
'Command84和Command85是1窗体的条件按键,可变色
'进入2窗体的
Private Sub Command7_Click()
Form2.Show
End Sub