内容发布更新时间 : 2024/12/26 17:47:30星期一 下面是文章的全部内容请认真阅读。

Visual Basic 程序设计报告

学号 :11 姓名: 左学 班级：0110907 实验时间：第8周星期一7 -8节

实验编号 实验目的和要求 实验内容 VB0003 实验名称 Visual Basic 编程基础 通过制作文本变换的程序熟悉标签控件的操作。 标签控件及文本变换 （一）实验步骤： 1．设计程序的界面 >>命令按钮：command1~ command6 caption为【改变文字外观】【改变颜色】【文字变换】【滚动文字】【设置口令文本框】【退出E】 >>文本框 :text1~text4, >>标 签 :一个 2．属性设置： 3．代码编写： Private Sub Command1_Click() Text1.FontName = \隶书\Text1.FontSize = 26 Text1.FontBold = True Text2.FontName = \黑体\Text2.FontSize = 30 Text2.FontItalic = True Text2.FontStrikethru = True Text3.FontName = \楷体_GB2312\Text3.FontSize = 20 Text3.FontUnderline = True Text4.Text = \化\Text4.FontBold = True Label1.Caption = \文 字 变 换\Form1.Caption = \文字变换\Text1.PasswordChar = \End Sub Private Sub Command3_Click() wz = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = Text4.Text Text4.Text = wz End Sub 4．运行结果截图 Private Sub Command2_Click() Text1.BackColor = &HFF Text2.BackColor = vbGreen Text3.BackColor = RGB(0, 0, 255) Text4.BackColor = QBColor(14) Text1.ForeColor = &HFFFFFF Text2.ForeColor = vbBlue Text3.ForeColor = RGB(255, 255, 0) Text4.ForeColor = QBColor(2) End Sub Private Sub Command4_Click() Text1.Text = \滚动文字演示ABCD\Text2.Text = \滚动文字演示ABCD\Text3.Text = \滚动文字演示ABCD\Text4.Text = \滚动文字演示ABCD\End Sub Private Sub Command5_Click() Text1.PasswordChar = \End Sub Private Sub Command6_Click() End End Sub （二）心得体会

1学习了一些标签的的属性设置，如backstyle,borderstyle,alignment,wordwarp.

2．对文本框的属性有了更深入的了解，如maxlength，multiline，selstart，seltext，passwordchar，scrollbars。

3．对字体的设置有了充分的认识。如对文本的字体设置： Text1.FontName = \隶书\Text1.FontSize = 26 Text1.FontBold = True

4．修改程序后可以添加背景图片：

Private Sub Command7_Click()

picfilename = App.Path & \添加窗体图片1\Form1.Picture = LoadPicture(picfilename) End Sub

5．对很实用的设置口令文本属性会运用了： Text1.PasswordChar = \

6．对visual basic 设计程序有了进一步的认识。