临床甲-大二上学期课件-儿科 第9章 绘图.pptVIP

KeyPress事件举例 Private Sub Text1_KeyPress(KeyAscii As Integer) Label1.Caption = If KeyAscii = 13 Then Label1.Caption = UCase(Text1.Text) End If End Sub 在文本框中输入字符，按下回车键后在标签中显示相应的大写字母。如图所示 直线控件的属性 常用属性 BorderColor属性设置颜色 BorderWidth属性设置粗细 BorderStyle属性设置样式 特有属性 x1、y1 指定直线起点坐标 x2、y2 指定直线终点坐标 说明 直线控件没有Left等属性 9.3.2形状控件 使用形状控件（Shape）可在窗体或其他控件容器中画出矩形、正方形、圆、椭圆、圆角矩形或圆角正方形 形状控件的Shape属性决定了它的图形样式 形状控件常用属性 Left、Top、Width和Height BorderWidth属性设置图形边界宽度 BorderColor属性设置图形边界颜色 BorderStyle属性设置边界线的类型 FillColor属性设置图形的前景颜色 形状控件的特有属性 Shape属性 该属性用来设置图形的形状 0—矩形 1—正方形 2—椭圆形 3—圆形 4—圆角矩形 5—圆角正方形 形状控件