VisualBasic程序设计及应用郑丽敏VB第10章课件教学.pptVIP

馋死 PPT研究院 POWERPOINT ACADEMY * * * 10.4 绘图属性 3.设置线型DrawStyle 属性 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状 设置值及含义 * 内收实线 6 VbInsideSolid 无线 5 VbInvisible 双点划线 4 VbDashDotDot 点划线 3 VbDashDot 点线 2 VbDot 虚线 1 VbDash （缺省值）实线 0 VbSolid 描述 设置值 常数 * 10.4 绘图属性 【例10-6】 画出各种线型的直线。 * * 10.4 绘图属性 【代码编写】 Dim i as integer Private Sub Form_Click() ScaleHeight = 8 ScaleWidth = 8 For i = 0 To 6 ‘取线形状 DrawStyle = i ‘画线 Line (2, i + 1)-(ScaleWidth * 2 / 3, i + 1) Next i 【运行结果】如右图所示 * 解答 For i = 0 To 6 CurrentX = 0 CurrentY = i + 1 If i 5 Then Print DrawStyle: + Str(i) Else Print DrawStyle: + Str(i) +