VB设计文字模拟.docVIP

附加代码 XXXX大学 《VB程序设计基础》课程 综合设计实践教学课题报告 课题名称文字处理综合模拟_____________ 学 号：__201010XXXXX _______ 姓 名：___XXXX___ ___ 学 院：__XXXX学院______ 专业班级：__XXX工程102___________ 指导教师：__XX___ 昆明理工大学计算中心 2011 年 6 月 3日 一、设计题目 文字处理综合模拟 二、设计思路 我设计的程序由两个窗体构成。使用菜单对窗体进行打开和关闭，对文本进行编辑。运用了大量的text和时间、HScroll控件，使程序更加的具有系统性完美。 在窗体1中我应用了时间控控件和2个Command按钮、一个label控件。 窗体2中有两个frame控件，四个comand按钮,两个combo控件，四个Check控件，若干个label控件，一个时间控件，三个HScroll控件。 使用了Select…case,if…else(elseif)…then…end if,call函数，随机函数来实现。 三、界面设计 1．窗体1 窗体1的控件属性表： 控件名 属性名 属性值 备注 Form1 caption 欢迎进入文字处理综合模拟！ 由代码快完成该显示方式 Command2 caption Close 系统终止 Command1 caption Enter 进入下一个窗体 2．窗体2 窗体2的控件属性表： 控件名 属性名 属性 备注 Label1-6 caption “对应的提示” 各操作的提示 Frame1 caption 字形 标题 Frame2 caption 颜色 标题 Command1-4 caption “对应的提示” 提示 Timer1 interval 1000 用于label2 显示时间 HScroll1-3 Min-Max,Value 0-255,1 用于调整字体的颜色 Text2-3 Text “显示个色素的值” 可以根据想要的配色方案输入改变字体颜色 Text1 Text “编辑的内容” 用于想要编辑的文件 Combo1-2 list 字体大小数值，自行列表 Check1-4 caption 选择改变在字形所对应的操作属性值与否 四、程序清单 1.窗体1代码 Private Sub Command1_Click() ‘实现跳转到form2窗体 form2.Show 欢迎.Hide End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Print Print Spc(8), 欢迎进入文字处理综合模拟！‘利用space()函数来控制文字 Print Spc(39); ————朱文霞 End Sub 2.窗体2的代码 Dim i As Integer, p As Integer, t As Integer 用于控制text1中字体的显示形式效果 字体加粗 Private Sub Check1_Click() If Check1.Value Then Text1.FontBold = True Else Text1.FontBold = False End Sub 字体倾斜 Private Sub Check2_Click() If Check2.Value Then Text1.FontItalic = True Else Text1.FontItalic = False End Sub 下划线 Private Sub Check3_Click() If Check3.Value Then Text1.FontUnderline = True Else Text1.FontUnderline = False End Sub 删除线 Private Sub Check4_Click() If Check4.Value Then Text1.FontStrikethru = True Else Text1.FontStriketh