三个窗体:MDI 主窗体MDIForm1,MDI 子窗体Form1,模式打开的窗体Form2
Form1模式打开Form2 ,Form2.Show 1
Form2点击命令一次,Form1的ListView1加一条记录
Private Sub Command1_Click()
Dim Li As ListItem
Set Li = Form1.ListView1.ListItems.Add(, "A" & Form1.ListView1.ListItems.Count)
Li.Text = "班级" & Form1.ListView1.ListItems.Count
Li.SubItems(1) = "张三" & Form1.ListView1.ListItems.Count
Li.SubItems(2) = "300" & Form1.ListView1.ListItems.Count
Set Li = Nothing
End Sub
请问如何防止MDI 子窗体Form1的第二打开
正常的情况:
不正常的情况: