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. 如何显示