Question

1. 根据下图编写一个能实现具有简单编辑功能的文本编辑器窗体上有

Answer 1

问：1. 根据下图编写一个能实现具有简单编辑功能的文本编辑器窗体上有

答：以下操作基于Delphi2010启动delphi，新建一个VCL Forms Application。添加控件TMainMenu，在控件上右键选择Menu Designer，在菜单设计器中右键选择Insert添加菜单项。添加控件TMemo，设置Align属性为alClient，设置ScrollBars属性为ssBoth。添加控件TOpenDialog，TSaveDialog用于打开保存对话框添加控件TPrintDialog，TPrinterSetupDialog作为打印设置对话框

答：您好，很抱歉我们这边是接收不到图片，给您带来的不便，十分抱歉！还请您更具体描述一下您的问题，跟老师详细讲讲，这样老师才能更好的帮到您。

答：您好，很抱歉我们这边是接收不到图片，给您带来的不便，十分抱歉！还请您更具体描述一下您的问题，跟老师详细讲讲，这样老师才能更好的帮到您。

问：1. 根据下终编写一个能实现具有简单编辑功能的文本编辑器。窗体上有剪切、复制、粘贴、 清除和退出五个命令按钮，及一个文本框。要求程序运行后，文本框内无选择内容时前切和复制命令按钮不可用。(空3须写入完整代码，其余请从题后选项中选出合适的语句，将字母填入对应空格内，共 17分)<简易文本编辑器 备选答案:e 品 A、Text1.Text="" < B、 st = Text1.SelTexte C、 Text1.SelText = steD、Command1.Enabled =False清除 c E、Command2.Enabled =False F、Command1.Enabled =True结束区 G、Command2.Enabled =True< Dim st As String Private Sub Command2_Click() '复制< Private Sub Form Load() 【6】 【1】 End Sub< 【2】e Private Sub Command3_Click() '粘贴 End Sub< _【7】_< Private Sub

问：设计一个包含两个窗体 Form1 和 Form2 的多窗体应用程序。Form1 为启动窗体。要求:单击Form1，隐藏 Forml，显示 Form2:单击 Form2 时，隐藏 Form2,显示Form1。(请将完整代码填入空格内，共6分)Private Sub Form click() 'Form1代码Form1.HideForm2.ShowEnd SubPrivate Sub Form click() 'Form2 【9】【10】End Sub

问：1. 在窗体上添加一个标签控件，标签控件内字体为楷体、粗体、14 号，红色。要求:单击一次窗体，标签控件水平方向从左向右移动 500twip，当标签完全移出窗体时，再返回到初始位置(Label1.Left=-Label1.Width)。(请将正确代码填入空格，共11分口 Form1 .Form1 X 标签移动 标签移动 Private Sub Form Load()Label1.FontName="楷体"【11】Label1.FontSize=14【12】End SubPrivate Sub Form Click(O)【13】IfLabel1.Let> Form1.Width Then【14】End If End Sub

答：文本编辑器（或称文字编辑器）是用作编写普通文字的应用软件，它与文档编辑器（或称文字处理器）不同之处在于它并非用作桌面排版（例如文档格式处理）。它常用来编写程序的源代码。常见的有Linux下的vi、emacs、gedit、DOS下的edit、Windows下的记事本等。 如何使用文本编辑器：开始/运行输入edit命令进入文本编辑器进行编辑文本；也可以在cmd下输入edit进入文本编辑器。文本编辑器类似c语言界面。是一种很实用的文本编辑软件。

答：两个按钮的事件： Private Sub Cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd1.ClickTextBox1.Visible = FalseEnd Sub Private Sub Cmd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd2.ClickTextBox1.Visible = TrueEnd Sub

答：Private Sub Command1_Click()Label1.Left = Label1.Left - Label1.Width / 2Label1.Top = Label1.Top - Label1.Height / 2Label1.Width = Label1.Width * 2Label1.Height = Label1.Height * 2Label1.FontSize = Label1.FontSize * 2End Sub