Private Sub menuNew_Click()
Dim docform As New frmchild
Static i As Integer
docform.Caption = "无标题" & i + 1
docform.Show
End Sub
Private Sub menuCopy_Click()
If frmchild.Text1.SelLength > 0 Then
Clipboard.Clear
Clipboard.SetText frmchild.Text1.SelText
End If
Private Sub menuCut_Click()
If frmchild.Text1.SelLength > 0 Then
Clipboard.Clear
Clipboard.SetText frmchild.Text1.SelText
frmchild.Text1.SelText = ""
End If
End Sub
Private Sub menuPaste_Click()
frmchild.Text1.SelText = Clipboard.GetText()
实现结果：在子菜单上边的东西可以复制。粘贴。剪切。要通过MDI窗口实现。同学都有这个毛病。都是点击复制，就会多复制一个窗口。第二个窗口才正常，可以实现。老师说是新建出了问题。但是没有告诉我们答案。
我是小组组长。需要会这个知识点。谢谢大家。
谢谢大家了。（我们是在开发记事本程序）