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 相应的“粘贴”命令的事件过程为： Private Sub mnuEditPaste_Click() If Len(Clipboard.GetText) 0 Then Screen.ActiveControl.SelText = Clipboard.GetText End If End Sub 如果窗体上有多种类型的控件，则在使用时应对不同类型的控件予以不同的处理。例如，若窗体上有文本框、列表框、组合框及图片框，程序为： 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  “设置（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 “有效”（设置属性值时，该属性相应于“Enabled”属性）用来设置某一菜单项在程序运行期间是否可用，即是否能够响应相应的事件。 例如使“粘贴”菜单项在程序运行之初“不可用”，可以这样做：进入“菜单编辑器”窗口，选中“粘贴”菜单项，单击编辑区的“有效”复选框，使其框中的“√”消失（属性值为False）。 经过这样处理后，用户界面的菜单上的该菜单项呈灰色显示（如图10.9所示中的“粘贴”），用户不能使用此菜单项。也就是说它不响应用户事件，“有效”属性的默认值为True，即菜单项可用。 这种变为灰色的菜单项不能响应单击事件。 菜单的控制  有效性控制 图10