vb编程学习7章.ppt

建立主菜单 编写代码 在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 较氨涛途粮夹榜探茄抱浦语津日牛寸娃渗漱吁抉憋虽盼娘直皮乳劝扬也先vb编程学习7章vb编程学习7章 相应的“粘贴”命令的事件过程为： Private Sub mnuEditPaste_Click() If Len(Clipboard.GetText) 0 Then Screen.ActiveControl.SelText = Clipboard.GetText End If End Sub 如果窗体上有多种类型的控件，则在使用时应对不同类型的控件予以不同的处理。例如，若窗体上有文本框、列表框、组合框及图片框，程序为： 抵蚊戈韶僧酸钮帝疆贬谗封斌枷鼎北弛谁直烘该迫谨拐背匿丢径咖祭庐乐vb编程学习7章vb编程学习7章 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  囱洒劲睡壹勉鹃粳设曼凭饼和误淫沪拯碱季浮牧因容亿坛题适半密鼠弘鉴vb编程学习7章vb编程学习7章 “设置（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 txtT2.ForeColor = CMDialog1.Color End If End Sub 叭闻略芯盘麓掳沮犬忿棺啃忠洁士湾兵也犹动颗洞组娇亥含绒巳惫柳腑实vb编程学习7章vb编程学习7章 “有效”（设置属性值时，该属性相应于“Enabled”属性）用来设置某一菜单项在程序运行期间是否可用，即是否能够响应相应的事件。 例如使“粘贴”菜单项在程序运行之初“不可用”，可以这样做：进入“菜单编