vb课件vb第4章幻灯片.pptVIP

* 【例4-3】在窗体上建立一个文本框，将输入到文本框中的小写字母转换为大写。 Private Sub Text1_KeyPress (KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char)) End Sub * 【例4-4】在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值 Text1 Text2 Command1 * Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text Space(5) Char _ Space(10) Str(Asc(Char)) vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Chr(13) Chr(10) * 4.4 图形数据输入输出控件 4.4.1 图片框(PictureBox) 1. 作用 : 显示图像 2. 如何显示图像: 设置Picture属性 ? 在属性窗口中设置 ? 对象名.Picture=LoadPicture(图形文件名) 3. 如何清除图像 ? 在属性窗口中删除Picture属性内容 ? 对象名.Picture=LoadPicture() (也清除文字) 4. 打印与清除文字 打印:对象名.Print …… 清除:对象名.Cls 5. 特点 自动调整控件大小以适应图像: AutoSize=True 不能延伸图形以适应控件的大小。 * 4.4.2 图像框(Image) 1. 作用:显示图像 2. 如何显示图像: 设置Picture属性 ? 在属性窗口中设置 ? 对象名.Picture=LoadPicture(图形文件名) 3. 如何清除图片 ? 在属性窗口中删除Picture属性内容 ? 对象名.Picture=LoadPicture() 4. 特点: 可以自动调整控件大小以适应图像: 设 Stretch=False 可以延伸图形以适应控件的大小: 设 Stretch=True * 4.4.3 直线和形状 1. 作用: 直线和形状通常为窗体提供可见的背景。 2. 属性： 直线和形状都具有Name和Visible属性。还具有Hight、Left、Top、Width等标准属性。 (1)BorderColor:返回/设置对象的边框颜色。 (2)BoderStyle:返回/设置对象的边框样式。 (3)BoderWidth:返回/设置对象的边框宽度。 (4)BackStyle:指出Shape的背景样式是透明的还是不透明的。0—透明。1—不透明。 (5)FillColor:返回/设置填充形状所使用的颜色。 (6)FillStyle:返回/设置Shape的填充样式。 (7)Shape:返回/设置一个值，指出控件外观。 * 4.5 字形 1.字形的属性： FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性 2.字形的属性的设置 格式: 控件名.Font属性名 属性名: Name、Size、Bold、Italic、 Underline、Strikethrough 例: Form1.FontSize = 14 Command1.FontItalic = True FontName=宋体 FontBold=True * 本章小结: 输入 赋值语句 文本框 IntputBox函数 图片框、图象框、直线与形状、字形 Print语句 输出 标签 文本框 MsgBox函数 * 第4章 数据的输入和输出 本章要点: ? 数据输入 ? 数据输出 * 4.1 文本数据输出 4.1.1 Print方法 Print方法可以在窗体上显示文本字符串和表达式的值，并可以在其他图形对象和打印机上输出信息。 格式: [对象名.]Print[表达式表][{;|,}] 对象名: 窗体 如