Question

VB设计记事本菜单界面

【实验题8-1】设计记事本菜单界面。窗体中的文本框只有垂直滚动条，具有自动换行功能。文本框中没有选中的字符时，“剪切”和“复制”命令不可选，剪贴板中没有内容时，“粘贴”命令不可选。选中某种对齐方式后，此命令前面显示“√”。当在文本框上单击鼠标右键时弹出快捷菜单。





Answer 1

我做了一个，你看看怎样

追问

可以详细点吗

追答

不是给你全部的工程文件了吗？还要怎么详细？

Answer 2

'写了部分代码。另有少部分你自己试着弄下。这样可以更好地理解。朋友。
Dim st As String '定义一个全局变量，用以接收选定的文本
'全选
Private Sub allchoose_Click()
st = Text1
End Sub
'设置背景色为黄色
Private Sub Byelo_Click()
Text1.BackColor = vbYellow
End Sub
'复制
Private Sub copy_Click()
st = Text1.SelText
End Sub
'剪切
Private Sub cut_Click()
st = Text1.SelText
Text1.SelText = ""
End Sub
'点开编辑
Private Sub edit_Click()
If Text1.SelText = "" And st = "" Then
cut.Enabled = False
copy.Enabled = False
paste.Enabled = False
Else
cut.Enabled = True
copy.Enabled = True
paste.Enabled = True
End If
End Sub
'退出命令
Private Sub exit_Click()
End
End Sub
'加载文本，仅供测试使用
Private Sub Form_Load()
Text1.Text = "2014年6月4日星期三呀！今天你满十五个月喽。宝宝。今天，你二姨婆来家里玩，你个小东西，用手指着二姨婆，嘴里叽叽喳喳的不知道"
End Sub
'设置文本控件与窗口同大小
Private Sub Form_Resize()
Text1.Width = Me.ScaleWidth: Text1.Height = Me.ScaleHeight
End Sub
'弹出菜单，单击执行粘贴命令
Private Sub ps_Click()
Text1.SelText = st
End Sub
'文字红色
Private Sub red_Click()
Text1.ForeColor = vbRed
End Sub
rightbt.Checked = False
Text1.Alignment = 2
End Sub
'粘贴
Private Sub paste_Click()
Text1.SelText = st
End Sub
'右对齐
Private Sub rightbt_Click()
rightbt.Checked = True
leftbt.Checked = False
middlebt.Checked = False
Text1.Alignment = 1
End Sub