《vb编程学习7章.pptVIP

建立主菜单 编写代码 在Windows的应用程序中，几乎都有“剪切”、“复制”和“粘贴”命令。实际上,这几项操作是借助剪贴板（Clipboard）完成的。剪贴板是内存的一部分区域，可以暂时保存文本和图形。所有的Windows应用程序都能使用(共享)剪贴板中的信息。 在Visual Basic程序中，与剪贴板有关的操作是通过Clipboard对象实现的。Clipboard对象没有任何属性和事件，但是通过它的一些方法可以提供对系统剪贴板的访问，即通过剪贴板实现不同的应用程序或控件间的数据共享。 Private Sub mnuEditCopy_Click() ′使用 Screen.ActiveControl Clipboard.Clear If TypeOf Screen.ActiveControl Is TextBox Then Clipboard.SetText Screen.ActiveControl.SelText mnuEditPaste.Enabled = True End If End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 相应的“粘贴”命令的事件过程为： Private Sub mnuEditPaste_Click() If Len(Clipboard.GetText) 0 Then Screen.ActiveControl.SelText = Clipboard.GetText End If End Sub 如果窗体上有多种类型的控件，则在使用时应对不同类型的控件予以不同的处理。例如，若窗体上有文本框、列表框、组合框及图片框，程序为： Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Private Sub mnuEditCopy_Click() ′多种控件使用 Screen.ActiveControl Clipboard.Clear If TypeOf Screen.ActiveControl Is TextBox Then ′文本框 Clipboard.SetText Screen.ActiveControl.SelText ElseIf TypeOf Screen.ActiveControl Is ComboBox Then ′组合框 Clipboard.SetText Screen.ActiveControl.Text ElseIf TypeOf Screen.ActiveControl Is PictureBoxThen ′图片框 Clipboard.SetData Screen.ActiveControl.Picture ElseIf TypeOf Screen.ActiveControl Is ListBox Then ′列表框 Clipboard.SetText Screen.ActiveControl.Text End If End Sub  Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. “设置（S）”所包含的两个菜单项是控件数组元素。单击这两个菜单项中的任一项，都会触发mnuSetting_Click事件过程。该过程的代码如下： Private Sub mnuSetting_Click(Index As Integer) ′选择字体 If Index = 0 Then CMDialog1.Flags = 1 CMDialog1.ShowFont txtT1.FontSize = CMDialog1.FontSize txtT2.FontSize = CMDialog1.FontSize End If ′选择颜色 If Index = 1 Then CMDialog1.ShowColor txtT1.ForeColor = CMDialog1.Color txt