第8章 图形控件和图形方法

<visual Basic 6.0 程序设计>张建 主编 P173
六、程序设计题
1、编程，在图片框中画一个以两点为对角的巨星（图片框以像素为刻度单位、两点坐标用inputbox函数输入）

Private Sub Command1_Click()
X1 = InputBox("请输入第一个点的x1的值", "请输入第一个点的x1的值")
Y1 = InputBox("请输入第一个点的y1的值", "请输入第一个点的y1的值")
X2 = InputBox("请输入第二个点的x2的值", "请输入第二个点的x2的值")
Y2 = InputBox("请输入第二个点的y2的值", "请输入第二个点的y2的值")
Picture1.Line (X1, Y1)-(X2, Y2), vbRed, Bf
End Sub

2、编程，以毫米为刻度单位、以窗体中心点为坐标原点，以窗体的高与宽中最小值的1/3为半径画一个圆（轮廓线为黄色、线粗2mm，蓝色填充）

Private Sub Form_Click()
Dim pi As Double, x As Double, y As Double
pi = 3.1415926535
Form1.FillStyle. = 0
Form1.FillColor = vbBlue
'以窗体的高与宽中最小值的1/3为半径
If ScaleWidth < ScaleHeight Then
    radius = ScaleWidth \ 3
Else
     radius = ScaleHeight \ 3
End If
'以窗体中心点为坐标原点
x = ScaleWidth \ 2: y = ScaleHeight \ 2
Form1.FillStyle. = 0
'线粗2mm
Form1.DrawWidth = 2
Circle (x, y), radius, vbYellow
End Sub

3、编程，以缇为窗体刻度的处置、窗体中心店为坐标原点，在列表框中选取刻度的其他单位的同时画一个半径为50mm的圆，观察圆的大小的变化
Private Sub Combo1_Click()
Form1.Cls
Form1.ScaleMode = Combo1.List(Combo1.ListIndex)
Print Form1.ScaleMode
Dim x As Double, y As Double
' 以窗体中心点为坐标原点
x = Form1.ScaleWidth \ 2
y = Form1.ScaleHeight \ 2
Form1.FillStyle. = 0
Form1.FillColor = vbBlue
'线粗2mm
Form1.DrawWidth = 2
Form1.Circle (x, y), 50
End Sub

Private Sub Form_Load()
For i% = 1 To 7: Combo1.AddItem Str(i%): Next i%
End Sub

注：全部的代码和界面设计见附件

ex8.6_01.rar(1.58 KB)

ex8.6_02.rar(1.38 KB)

ex8.6_03.rar(1.45 KB)