【选作题】 参考 P34 例 2.6 ,建立一个允许剪切、复制和粘贴的简单便笺板程序。 重要属性的设置: 对象名称 属性 属性值 Text1 【1】 True '多行 Command1、Command2、Command3 【2】 1-Graphical '按提示图片 Command1、Command2、Command3 【3】 "" 为了保存剪切或复制下来的文本需要设置 【4】 变量 st 。 代码如下: Dim st$ Private Sub Command1_Click() '剪切按 st = Text1.SelText 【5】 Command3.Enabled = True End Sub Private Sub Command2_Click() '复制按 【6】 Command3.Enabled = True End Sub Private Sub Command3_Click() '粘贴按 【7】 End Sub Private Sub Command4_Click() '黑体按 【8】 = "黑体" End Sub Private Sub Command5_Click() '20磅按 【9】 = 20 End Sub Private Sub Command6_Click() '结束按 【10】 End Sub Private Sub Form_Load() Text1.Text = "建立一个允许剪切、复制和粘贴的简单便笺板程序!可增加内容: 利用MouseMove事件决定命令按的有效性,即当选中内容,“剪切”、“复制”按有效,否则无效? " Label2.Caption = "注意:想在按上显示图形,要同时设置其Style和Graphical两个属性(书P34)" End Sub '没选择文本就不能剪切和复制 Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelText <> "" Then Command1.Enabled = True Command2.Enabled = True End If End Sub