在 Visual Basic 6 中 PictureBox 上绘制条形仪表

最新推荐文章于 2024-08-05 10:53:32 发布

原创最新推荐文章于 2024-08-05 10:53:32 发布 · 376 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

【VB6】专栏收录该内容

3 篇文章

订阅专栏

本文详细介绍了如何在Visual Basic 6中使用PictureBox实现条形仪表的绘制，通过实例展示了如何设置颜色和绘制过程，适合图形控件开发者参考。

标题	在 PictureBox 上绘制条形仪表
描述	此示例说明如何在 Visual Basic 6 中的 PictureBox 上绘制条形仪表。
关键词	仪表，工具条，图片框
类别	图形、控件、ActiveX 控件、ActiveX

Option Explicit
'Our Bar(s)...
Private MyBar1   As New AMeter
Private MyBar2   As New AMeter

Private Function ChangeColor(ByVal lngColor As Long) As Long

    CDL.CancelError = False
    'On Error GoTo ccError
    With CDL
        .Flags = cdlCCFullOpen Or cdlCCRGBInit
        .Color = lngColor
        .ShowColor
        ChangeColor = .Color
    End With
    'ccError:

End Function

Private Sub Command1_Click()

    Timer1.Enabled = Not Timer1.Enabled
    Draw 0

End Sub

'The actual darw occurs in the class module...
Private Sub Draw(ByVal intVal As Integer)

    MyBar1.Draw intVal
    'This gives Top2Down look...
    MyBar2.Draw (100 - intVal)
    Label1.Caption = intVal & "%"

End Sub

Private Sub Form_Load()

    'Default Normal(Down2Top) Bar...
    MyBar1.Surface = Picture2
    'Default Top2Down Bar...
    'Note just swaping the colors and
    '(100-Val) gives us Top2Down look...
    With MyBar2
        .Surface = Picture1
        .BarBackColor = MyBar1.BarForeColor
        .BarForeColor = MyBar1.BarBackColor
    End With
    Label1.ForeColor = MyBar1.BarForeColor
    'Ok, it's show time...
    Command1.Value = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Timer1.Enabled = False

End Sub

Private Sub mnuBackColor_Click()

    MyBar1.BarBackColor = ChangeColor(MyBar1.BarBackColor)
    MyBar2.BarForeColor = MyBar1.BarBackColor

End Sub

Private Sub mnuBarColor_Click()

    With MyBar1
        .BarForeColor = ChangeColor(.BarForeColor)
        MyBar2.BarBackColor = .BarForeColor
        Label1.ForeColor = .BarForeColor
    End With 'MyBar1

End Sub

Private Sub Timer1_Timer()

'Each time a new value (1->100)...

    Randomize
    Draw Int((100 * Rnd) + 1)

End Sub

该项目包括一个在 PictureBox 上绘制仪表的类。