精华内容
下载资源
问答
  • 四种进度条控件及VB的应用实例源码,压缩包里有4个不同动画形式的VB进度条控件源代码:1.格子式进度条,这也是Windows系统常见的一种风格;2.可以显示百分比的进度条,一般多用于程序安装或逻辑处理;3.动画式进度条...
  • 摘要:VB源码,界面编程,进度条 彩色的VB ProgressBAR进度条示例,源代码极小,可以用作软件加载的等待状态,请看运行示例图。
  • 分享一款VB进度条控件及用法示例,风格和Windows的不太一样,平面型的进度条控件,有多种颜色风格,调用方法请参考源码,比较简单的,VB初学者更应该看一看。
  • VB.NET进度条的方法代码,需要的朋友可以参考一下
  • 摘要:VB源码,界面编程,进度条,控件 一个超实用的VB彩色进度条控件及示例,一给它起个名字叫“dBar”吧,它还有四个选项可以控制进度条的外观:从左到右、双向反弹、单身反弹、脉冲,每一种都有不同的进度条样式,看...
  • VB自制进度条控件

    2021-03-22 18:00:47
    一、“添加用户控件”,命名为"ProgressBar",代码如下: Option Explicit Public Enum U_TextAlignments ...[Center Bottom] = 6 [Right Top] = 7 [Right Middle] = 8 [Right Bottom] = 9 End Enum Publi.

    在这里插入图片描述

    一、“添加用户控件”,命名为"ProgressBar",代码如下:
    Option Explicit

    Public Enum U_TextAlignments
    [Left Top] = 1
    [Left Middle] = 2
    [Left Bottom] = 3
    [Center Top] = 4
    [Center Middle] = 5
    [Center Bottom] = 6
    [Right Top] = 7
    [Right Middle] = 8
    [Right Bottom] = 9
    End Enum

    Public Enum U_TextEffects
    [Normal] = 1
    [Embossed] = 2
    [Engraved] = 3
    [OutLine] = 4
    [Shadow] = 5
    End Enum

    Public Enum U_OrientationsS
    [Horizontal] = 1
    [Vertical] = 2

    End Enum

    Public Enum U_TextStyles
    [PBValue] = 1
    [PBPercentage] = 2
    [CustomText] = 3
    [PBNoneText] = 4
    End Enum

    Private Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
    End Type

    Private Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
    End Type

    Private Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiColors As RGBQUAD
    End Type

    Private Type cRGB
    Blue As Byte
    Green As Byte
    Red As Byte
    End Type

    Enum U_Themes
    [IceOrange] = 1
    [IceYellow] = 2
    [IceGreen] = 3
    [IceCyan] = 4
    [IceBangel] = 5
    [IcePurple] = 6
    [IceRed] = 7
    [IceBlue] = 8
    [Vista] = 9
    [Custome] = 10
    End Enum
    Private Type GRADIENT_RECT
    UpperLeft As Long
    LowerRight As Long
    End Type

    Public Enum GRADIENT_DIRECT
    [Left to Right] = &H0
    [Top to Bottom] = &H1
    End Enum

    Private Type TRIVERTEX
    x As Long
    y As Long
    Red As Integer
    Green As Integer
    Blue As Integer
    Alpha As Integer
    End Type

    Private Declare Function CreateRoundRectRgn Lib “gdi32” (ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
    Private Declare Function SetWindowRgn Lib “user32” (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
    Private Declare Function RoundRect Lib “gdi32” (ByVal hDC As Long, ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
    Private Declare Function SetDIBitsToDevice Lib “gdi32” (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
    Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
    Private Declare Function GradientFillRect Lib “msimg32” Alias “GradientFill” (ByVal hDC As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_RECT, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long
    Private Declare Function SetRect Lib “user32” (lpRect As RECT, ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long

    Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    End Type

    Const GRADIENT_FILL_RECT_H As Long = &H0
    Const GRADIENT_FILL_RECT_V As Long = &H1
    Private Const BI_RGB = 0&
    Private Const DIB_RGB_COLORS = 0

    Private U_TextStyle As U_TextStyles
    Private U_Theme As U_Themes
    Private U_Orientation As U_OrientationsS
    Private U_Text As String
    Private U_TextColor As OLE_COLOR
    Private U_TextAlign As U_TextAlignments
    Private U_TextFont As Font
    Private U_TextEC As OLE_COLOR
    Private U_TextEffect As U_TextEffects
    Private U_RoundV As Long
    Private U_Min As Long
    Private U_Value As Long
    Private U_Max As Long
    Private U_Enabled As Boolean
    Private c(16) As Long
    Private U_PBSCC1 As OLE_COLOR
    Private U_PBSCC2 As OLE_COLOR

    Private Sub UserControl_Initialize()
    UserControl.AutoRedraw = True
    End Sub

    Private Sub UserControl_Resize()
    Bar_Draw
    End Sub

    Public Property Let Value(ByVal NewValue As Long)
    If NewValue > U_Max Then NewValue = U_Max
    If NewValue < U_Min Then NewValue = U_Min
    U_Value = NewValue

    PropertyChanged "Value"
    Bar_Draw
    

    End Property

    Public Property Get Value() As Long
    Value = U_Value
    End Property

    Public Property Let Max(ByVal NewValue As Long)
    If NewValue < 1 Then NewValue = 1
    If NewValue <= U_Min Then NewValue = U_Min + 1
    U_Max = NewValue
    If Value > U_Max Then Value = U_Max
    PropertyChanged “Max”
    Bar_Draw
    End Property
    Public Property Get Max() As Long
    Max = U_Max
    End Property

    Public Property Let Min(ByVal NewValue As Long)
    If NewValue >= U_Max Then NewValue = Max - 1
    If NewValue < 0 Then NewValue = 0
    U_Min = NewValue
    If Value < U_Min Then Value = U_Min

    PropertyChanged "Min"
    Bar_Draw
    

    End Property
    Public Property Get Min() As Long
    Min = U_Min
    End Property
    Public Property Get RoundedValue() As Long
    RoundedValue = U_RoundV
    End Property

    Public Property Let RoundedValue(ByVal NewValue As Long)
    U_RoundV = NewValue
    PropertyChanged “RoundedValue”
    Bar_Draw
    End Property

    Public Property Get Enabled() As Boolean
    Enabled = U_Enabled
    End Property

    Public Property Let Enabled(ByVal NewValue As Boolean)
    U_Enabled = NewValue
    PropertyChanged “Enabled”
    Bar_Draw
    End Property
    Private Sub UserControl_InitProperties()
    Max = 100
    Min = 0
    Value = 50
    RoundedValue = 5
    Enabled = True
    Theme = 1
    TextForeColor = vbBlack
    Text = “U11D ProgressBar”
    TextAlignment = [Center Middle]
    TextEffect = Shadow
    TextEffectColor = vbWhite
    TextStyle = CustomText
    Orientations = Horizontal
    Set TextFont = Ambient.Font
    End Sub
    Public Property Let Theme(ByVal NewValue As U_Themes)

    U_Theme = NewValue
    PropertyChanged "Theme"
    

    Bar_Draw
    End Property

    Public Property Get Theme() As U_Themes
    Theme = U_Theme
    End Property

    Public Property Let TextStyle(ByVal NewValue As U_TextStyles)
    U_TextStyle = NewValue
    PropertyChanged “TextStyle”
    Bar_Draw
    End Property
    Public Property Get TextStyle() As U_TextStyles
    TextStyle = U_TextStyle
    End Property

    Public Property Get Orientations() As U_OrientationsS
    Orientations = U_Orientation
    End Property

    Public Property Let Orientations(ByVal NewValue As U_OrientationsS)
    U_Orientation = NewValue
    PropertyChanged “Orientations”
    Bar_Draw
    End Property

    Public Property Get TextAlignment() As U_TextAlignments
    TextAlignment = U_TextAlign
    End Property

    Public Property Let TextAlignment(ByVal NewValue As U_TextAlignments)
    U_TextAlign = NewValue
    PropertyChanged “TextAlignment”
    Bar_Draw
    End Property

    Public Property Get Text() As String
    Text = U_Text
    End Property

    Public Property Let Text(ByVal NewValue As String)
    U_Text = NewValue
    PropertyChanged “Text”
    Bar_Draw
    End Property
    Public Property Get TextEffectColor() As OLE_COLOR
    TextEffectColor = U_TextEC
    End Property

    Public Property Let TextEffectColor(ByVal NewValue As OLE_COLOR)
    U_TextEC = NewValue
    PropertyChanged “TextEffectColor”
    Bar_Draw
    End Property

    Public Property Get TextEffect() As U_TextEffects
    TextEffect = U_TextEffect
    End Property

    Public Property Let TextEffect(ByVal NewValue As U_TextEffects)
    U_TextEffect = NewValue
    PropertyChanged “TextEffect”
    Bar_Draw
    End Property

    Public Property Get TextForeColor() As OLE_COLOR
    TextForeColor = U_TextColor
    End Property

    Public Property Let TextForeColor(ByVal NewValue As OLE_COLOR)
    U_TextColor = NewValue
    PropertyChanged “TextForeColor”
    Bar_Draw
    End Property
    Public Property Get TextFont() As Font
    Set TextFont = U_TextFont
    End Property

    Public Property Set TextFont(ByVal NewValue As Font)
    Set U_TextFont = NewValue
    Set UserControl.Font = NewValue
    PropertyChanged “TextFont”
    Bar_Draw
    End Property

    Public Property Get PBSCustomeColor1() As OLE_COLOR
    PBSCustomeColor1 = U_PBSCC1
    End Property

    Public Property Let PBSCustomeColor1(ByVal NewValue As OLE_COLOR)
    U_PBSCC1 = NewValue
    PropertyChanged “PBSCustomeColor1”
    Bar_Draw
    End Property
    Public Property Get PBSCustomeColor2() As OLE_COLOR
    PBSCustomeColor2 = U_PBSCC2
    End Property

    Public Property Let PBSCustomeColor2(ByVal NewValue As OLE_COLOR)
    U_PBSCC2 = NewValue
    PropertyChanged “PBSCustomeColor2”
    Bar_Draw
    End Property
    Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    On Error Resume Next
    With PropBag

    Max = .ReadProperty("Max", 100)
    Min = .ReadProperty("Min", 0)
    Value = .ReadProperty("Value", 50)
    RoundedValue = .ReadProperty("RoundedValue", 5)
    Enabled = .ReadProperty("Enabled", True)
    Theme = .ReadProperty("Theme", 1)
    TextStyle = .ReadProperty("TextStyle", 1)
    Orientations = .ReadProperty("Orientations", Horizontal)
    Text = .ReadProperty("Text", Ambient.DisplayName)
    TextEffectColor = .ReadProperty("TextEffectColor", RGB(200, 200, 200))
    TextEffect = .ReadProperty("TextEffect", 1)
    TextAlignment = .ReadProperty("TextAlignment", 5)
    Set TextFont = .ReadProperty("TextFont", Ambient.Font)
    TextForeColor = .ReadProperty("TextForeColor", 0)
    PBSCustomeColor2 = .ReadProperty("PBSCustomeColor2", vbBlack)
    PBSCustomeColor1 = .ReadProperty("PBSCustomeColor1", vbBlack)
    End With
    

    End Sub

    Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    With PropBag
    .WriteProperty “Orientations”, U_Orientation, Horizontal
    .WriteProperty “Max”, U_Max, 100
    .WriteProperty “Min”, U_Min, 0
    .WriteProperty “Value”, U_Value, 50
    .WriteProperty “RoundedValue”, U_RoundV, 5
    .WriteProperty “Enabled”, U_Enabled, True
    .WriteProperty “Theme”, U_Theme, 1
    .WriteProperty “TextStyle”, U_TextStyle, 1
    .WriteProperty “TextFont”, U_TextFont, Ambient.Font
    .WriteProperty “TextForeColor”, U_TextColor, vbBlack
    .WriteProperty “TextAlignment”, U_TextAlign, 5
    .WriteProperty “Text”, U_Text, “”
    .WriteProperty “TextEffectColor”, U_TextEC, RGB(200, 200, 200)
    .WriteProperty “TextEffect”, U_TextEffect, 1
    .WriteProperty “PBSCustomeColor2”, U_PBSCC2, vbBlack
    .WriteProperty “PBSCustomeColor1”, U_PBSCC1, vbBlack
    End With
    End Sub

    Private Sub Bar_Draw()
    On Error Resume Next
    Dim i, S, z, y, q As Long
    Dim U_LRECT As Long

    U_LRECT = CreateRoundRectRgn(0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight, U_RoundV, U_RoundV)
    SetWindowRgn UserControl.hwnd, U_LRECT, True

    i = U_Max: S = U_Value: z = U_Max
    y = (S * 100 / z)
    q = (y * UserControl.ScaleWidth / 100)
    

    If Orientations = Vertical Then q = (y * UserControl.ScaleHeight / 100)

    CheckTheme

    If Enabled = False Then
    Dim II As Byte
    For II = 0 To 16
    c(II) = ColourTOGray(c(II))
    Next II
    End If

    UserControl.Cls

    If U_Orientation = Horizontal Then

    GradientTwoColour UserControl.hDC, [Top to Bottom], c(0), c(2), 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight / 2
    GradientTwoColour UserControl.hDC, [Top to Bottom], c(4), c(6), 0, UserControl.ScaleHeight / 2, UserControl.ScaleWidth, UserControl.ScaleHeight

    'DrawGradientFourColour UserControl.hDC, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight / 2, c(0), c(1), c(2), c(3)
    'DrawGradientFourColour UserControl.hDC, 0, UserControl.ScaleHeight / 2, UserControl.ScaleWidth, UserControl.ScaleHeight / 2 - 1, c(4), c(5), c(6), c(7)

    If Value >= 1 Then

    GradientTwoColour UserControl.hDC, [Top to Bottom], c(8), c(10), 0, 0, q, UserControl.ScaleHeight / 2
    GradientTwoColour UserControl.hDC, [Top to Bottom], c(12), c(14), 0, UserControl.ScaleHeight / 2, q, UserControl.ScaleHeight
    'DrawGradientFourColour UserControl.hDC, 0, 0, q, UserControl.ScaleHeight / 2, c(8), c(9), c(10), c(11)
    'DrawGradientFourColour UserControl.hDC, 0, UserControl.ScaleHeight / 2, q, UserControl.ScaleHeight / 2 - 1, c(12), c(13), c(14), c(15)
    End If

    ElseIf U_Orientation = Vertical Then

    GradientTwoColour UserControl.hDC, [Left to Right], c(0), c(2), 0, 0, UserControl.ScaleWidth / 2, UserControl.ScaleHeight
    GradientTwoColour UserControl.hDC, [Left to Right], c(4), c(6), UserControl.ScaleWidth / 2, 0, UserControl.ScaleWidth, UserControl.ScaleHeight

    'DrawGradientFourColour UserControl.hDC, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight / 2, c(0), c(1), c(2), c(3)
    'DrawGradientFourColour UserControl.hDC, 0, UserControl.ScaleHeight / 2, UserControl.ScaleWidth, UserControl.ScaleHeight / 2 - 1, c(4), c(5), c(6), c(7)

    If Value >= 1 Then

    GradientTwoColour UserControl.hDC, [Left to Right], c(8), c(10), 0, 0, UserControl.ScaleWidth / 2, q
    GradientTwoColour UserControl.hDC, [Left to Right], c(12), c(14), UserControl.ScaleWidth / 2, 0, UserControl.ScaleWidth, q
    'DrawGradientFourColour UserControl.hDC, 0, 0, q, UserControl.ScaleHeight / 2, c(8), c(9), c(10), c(11)
    'DrawGradientFourColour UserControl.hDC, 0, UserControl.ScaleHeight / 2, q, UserControl.ScaleHeight / 2 - 1, c(12), c(13), c(14), c(15)
    End If
    End If

    UserControl.ForeColor = c(16)
    RoundRect UserControl.hDC, 0, 0, UserControl.ScaleWidth - 1, UserControl.ScaleHeight - 1, U_RoundV, U_RoundV

    If TextStyle = PBValue Then
    DrawCaptionText Value, U_TextAlign
    ElseIf TextStyle = PBPercentage Then
    DrawCaptionText y & “%”, U_TextAlign
    ElseIf TextStyle = CustomText Then
    DrawCaptionText U_Text, U_TextAlign
    ElseIf TextStyle = PBNoneText Then
    End If
    End Sub

    Private Sub CheckTheme()
    If Theme = 1 Then
    'BACK
    c(0) = RGB(248, 246, 242)
    c(1) = RGB(248, 246, 242)
    c(2) = RGB(233, 227, 211)
    c(3) = RGB(233, 227, 211)

    c(4) = RGB(226, 215, 182)
    c(5) = RGB(226, 215, 182)
    c(6) = RGB(239, 233, 215)
    c(7) = RGB(239, 233, 215)
    'FRONT
    c(8) = RGB(251, 244, 223)
    c(9) = RGB(251, 244, 223)
    c(10) = RGB(239, 213, 133)
    c(11) = RGB(239, 213, 133)

    c(12) = RGB(203, 166, 57)
    c(13) = RGB(203, 166, 57)
    c(14) = RGB(237, 224, 187)
    c(15) = RGB(237, 224, 187)
    'FORE COLOUR
    c(16) = RGB(204, 168, 62)
    ElseIf Theme = 2 Then
    'BACK
    c(0) = RGB(247, 248, 242)
    c(1) = RGB(247, 248, 242)
    c(2) = RGB(231, 233, 211)
    c(3) = RGB(231, 233, 211)

    c(4) = RGB(222, 226, 182)
    c(5) = RGB(222, 226, 182)
    c(6) = RGB(237, 239, 215)
    c(7) = RGB(237, 239, 215)
    'FRONT
    c(8) = RGB(249, 251, 223)
    c(9) = RGB(249, 251, 223)
    c(10) = RGB(230, 239, 133)
    c(11) = RGB(230, 239, 133)

    c(12) = RGB(190, 203, 57)
    c(13) = RGB(190, 203, 57)
    c(14) = RGB(233, 237, 187)
    c(15) = RGB(233, 237, 187)
    'FORE COLOUR
    c(16) = RGB(192, 204, 62)
    ElseIf Theme = 3 Then
    'BACK
    c(0) = RGB(242, 248, 243)
    c(1) = RGB(242, 248, 243)
    c(2) = RGB(211, 233, 213)
    c(3) = RGB(211, 233, 213)

    c(4) = RGB(182, 226, 186)
    c(5) = RGB(182, 226, 186)
    c(6) = RGB(215, 239, 217)
    c(7) = RGB(215, 239, 217)
    'FRONT
    c(8) = RGB(223, 251, 225)
    c(9) = RGB(223, 251, 225)
    c(10) = RGB(133, 239, 142)
    c(11) = RGB(133, 239, 142)

    c(12) = RGB(57, 203, 70)
    c(13) = RGB(57, 203, 70)
    c(14) = RGB(187, 237, 191)
    c(15) = RGB(187, 237, 191)
    'FORE COLOUR
    c(16) = RGB(62, 204, 74)
    ElseIf Theme = 4 Then
    'BACK
    c(0) = RGB(242, 248, 247)
    c(1) = RGB(242, 248, 247)
    c(2) = RGB(211, 233, 231)
    c(3) = RGB(211, 233, 231)

    c(4) = RGB(182, 226, 222)
    c(5) = RGB(182, 226, 222)
    c(6) = RGB(215, 239, 237)
    c(7) = RGB(215, 239, 237)
    'FRONT
    c(8) = RGB(223, 251, 249)
    c(9) = RGB(223, 251, 249)
    c(10) = RGB(133, 239, 230)
    c(11) = RGB(133, 239, 230)

    c(12) = RGB(57, 203, 190)
    c(13) = RGB(57, 203, 190)
    c(14) = RGB(187, 237, 233)
    c(15) = RGB(187, 237, 233)
    'FORE COLOUR
    c(16) = RGB(62, 204, 192)
    ElseIf Theme = 5 Then
    'BACK
    c(0) = RGB(243, 242, 248)
    c(1) = RGB(243, 242, 248)
    c(2) = RGB(213, 211, 233)
    c(3) = RGB(213, 211, 233)

    c(4) = RGB(186, 182, 226)
    c(5) = RGB(186, 182, 226)
    c(6) = RGB(217, 215, 239)
    c(7) = RGB(217, 215, 239)
    'FRONT
    c(8) = RGB(225, 223, 251)
    c(9) = RGB(225, 223, 251)
    c(10) = RGB(142, 133, 239)
    c(11) = RGB(142, 133, 239)

    c(12) = RGB(70, 57, 203)
    c(13) = RGB(70, 57, 203)
    c(14) = RGB(191, 187, 237)
    c(15) = RGB(191, 187, 237)
    'FORE COLOUR
    c(16) = RGB(74, 62, 204)
    ElseIf Theme = 6 Then
    'BACK
    c(0) = RGB(248, 242, 247)
    c(1) = RGB(248, 242, 247)
    c(2) = RGB(233, 211, 231)
    c(3) = RGB(233, 211, 231)

    c(4) = RGB(226, 182, 222)
    c(5) = RGB(226, 182, 222)
    c(6) = RGB(239, 215, 237)
    c(7) = RGB(239, 215, 237)
    'FRONT
    c(8) = RGB(251, 223, 249)
    c(9) = RGB(251, 223, 249)
    c(10) = RGB(239, 133, 230)
    c(11) = RGB(239, 133, 230)

    c(12) = RGB(203, 57, 190)
    c(13) = RGB(203, 57, 190)
    c(14) = RGB(237, 187, 233)
    c(15) = RGB(237, 187, 233)
    'FORE COLOUR
    c(16) = RGB(204, 62, 192)
    ElseIf Theme = 7 Then
    'BACK
    c(0) = RGB(248, 242, 242)
    c(1) = RGB(248, 242, 242)
    c(2) = RGB(233, 211, 211)
    c(3) = RGB(233, 211, 211)

    c(4) = RGB(226, 182, 182)
    c(5) = RGB(226, 182, 182)
    c(6) = RGB(239, 215, 215)
    c(7) = RGB(239, 215, 215)
    'FRONT
    c(8) = RGB(251, 223, 223)
    c(9) = RGB(251, 223, 223)
    c(10) = RGB(239, 133, 133)
    c(11) = RGB(239, 133, 133)

    c(12) = RGB(203, 57, 57)
    c(13) = RGB(203, 57, 57)
    c(14) = RGB(237, 187, 187)
    c(15) = RGB(237, 187, 187)
    'FORE COLOUR
    c(16) = RGB(204, 62, 62)
    ElseIf Theme = 8 Then
    'BACK
    c(0) = RGB(250, 253, 254)
    c(1) = RGB(250, 253, 254)
    c(2) = RGB(228, 243, 252)
    c(3) = RGB(228, 243, 252)

    c(4) = RGB(199, 230, 249)
    c(5) = RGB(199, 230, 249)
    c(6) = RGB(237, 247, 253)
    c(7) = RGB(237, 247, 253)
    'FRONT
    c(8) = RGB(225, 247, 255)
    c(9) = RGB(225, 247, 255)
    c(10) = RGB(67, 208, 255)
    c(11) = RGB(67, 208, 255)

    c(12) = RGB(63, 112, 233)
    c(13) = RGB(63, 112, 233)
    c(14) = RGB(63, 226, 246)
    c(15) = RGB(63, 226, 246)
    'FORE COLOUR
    c(16) = RGB(23, 139, 211)
    ElseIf Theme = 9 Then
    'BACK
    c(0) = RGB(231, 243, 232)
    c(1) = RGB(231, 243, 232)
    c(2) = RGB(225, 219, 225)
    c(3) = RGB(225, 219, 225)

    c(4) = RGB(179, 189, 179)
    c(5) = RGB(179, 189, 179)
    c(6) = RGB(226, 238, 226)
    c(7) = RGB(226, 238, 226)
    'FRONT
    c(8) = RGB(223, 251, 223)
    c(9) = RGB(223, 251, 223)
    c(10) = RGB(108, 255, 108)
    c(11) = RGB(108, 255, 108)

    c(12) = RGB(26, 228, 26)
    c(13) = RGB(26, 228, 26)
    c(14) = RGB(217, 244, 217)
    c(15) = RGB(217, 244, 217)
    'FORE COLOUR
    c(16) = RGB(188, 184, 188)
    ElseIf Theme = 10 Then

    'BACK
    c(0) = LightenColor(U_PBSCC2, 180)
    c(1) = LightenColor(U_PBSCC2, 180)
    c(2) = LightenColor(U_PBSCC2, 50)
    c(3) = LightenColor(U_PBSCC2, 50)

    c(4) = U_PBSCC2
    c(5) = U_PBSCC2
    c(6) = LightenColor(U_PBSCC2, 80)
    c(7) = LightenColor(U_PBSCC2, 80)
    'FRONT
    c(8) = LightenColor(U_PBSCC1, 180)
    c(9) = LightenColor(U_PBSCC1, 180)
    c(10) = LightenColor(U_PBSCC1, 50)
    c(11) = LightenColor(U_PBSCC1, 50)

    c(12) = U_PBSCC1
    c(13) = U_PBSCC1
    c(14) = LightenColor(U_PBSCC1, 80)
    c(15) = LightenColor(U_PBSCC1, 80)
    'FORE COLOUR
    c(16) = U_PBSCC1
    End If
    End Sub

    Private Sub DrawCaptionText(ByVal TextString As String, ByVal Alignment As U_TextAlignments)
    Dim lonStartWidth As Long, lonStartHeight As Long
    Dim PBTCN, PBTCS As Long

    If Enabled = True Then
    PBTCN = U_TextColor
    PBTCS = U_TextEC
    Else
    PBTCN = ColourTOGray(U_TextColor)
    PBTCS = ColourTOGray(U_TextEC)
    End If

    UserControl.ForeColor = PBTCN

    If Alignment = 1 Then
    lonStartWidth = 1
    lonStartHeight = 0
    ElseIf Alignment = 2 Then
    lonStartWidth = 1
    lonStartHeight = (UserControl.ScaleHeight / 2) - (UserControl.TextHeight(TextString) / 2) - 1
    ElseIf Alignment = 3 Then
    lonStartWidth = 1
    lonStartHeight = (UserControl.ScaleHeight - UserControl.TextHeight(TextString)) - 1

    ElseIf Alignment = 4 Then
    lonStartWidth = (UserControl.ScaleWidth / 2) - (UserControl.TextWidth(TextString) / 2) - 1
    lonStartHeight = 0
    ElseIf Alignment = 5 Then
    lonStartWidth = (UserControl.ScaleWidth / 2) - (UserControl.TextWidth(TextString) / 2) - 1
    lonStartHeight = (UserControl.ScaleHeight / 2) - (UserControl.TextHeight(TextString) / 2) - 1
    ElseIf Alignment = 6 Then
    lonStartWidth = (UserControl.ScaleWidth / 2) - (UserControl.TextWidth(TextString) / 2) - 1
    lonStartHeight = (UserControl.ScaleHeight - UserControl.TextHeight(TextString)) - 1

    ElseIf Alignment = 7 Then
    lonStartWidth = (UserControl.ScaleWidth - UserControl.TextWidth(TextString)) - 3
    lonStartHeight = 0
    ElseIf Alignment = 8 Then
    lonStartWidth = (UserControl.ScaleWidth - UserControl.TextWidth(TextString)) - 3
    lonStartHeight = (UserControl.ScaleHeight / 2) - (UserControl.TextHeight(TextString) / 2) - 1
    ElseIf Alignment = 9 Then
    lonStartWidth = (UserControl.ScaleWidth - UserControl.TextWidth(TextString)) - 3
    lonStartHeight = (UserControl.ScaleHeight - UserControl.TextHeight(TextString)) - 1
    End If

    If U_TextEffect = Normal Then
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
    ElseIf U_TextEffect = Engraved Then
        UserControl.ForeColor = PBTCS
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.Print TextString
        UserControl.ForeColor = RGB(128, 128, 128)
        UserControl.CurrentX = lonStartWidth - 1
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        UserControl.ForeColor = PBTCN
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        
    ElseIf U_TextEffect = Embossed Then
        UserControl.ForeColor = PBTCS
        UserControl.CurrentX = lonStartWidth - 1
        UserControl.CurrentY = lonStartHeight - 1
        UserControl.Print TextString
        UserControl.ForeColor = RGB(128, 128, 128)
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.Print TextString
        UserControl.ForeColor = PBTCN
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
    ElseIf U_TextEffect = OutLine Then
        UserControl.ForeColor = PBTCS
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        UserControl.CurrentX = lonStartWidth - 1
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        UserControl.CurrentY = lonStartHeight - 1
        UserControl.CurrentX = lonStartWidth
        UserControl.Print TextString
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.CurrentX = lonStartWidth
        UserControl.Print TextString
        UserControl.ForeColor = PBTCN
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        
    ElseIf U_TextEffect = Shadow Then
        UserControl.ForeColor = PBTCS
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.Print TextString
        UserControl.ForeColor = PBTCN
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
    End If
    

    End Sub

    Public Function DrawGradientFourColour(ObjectHDC As Long, Left As Long, Top As Long, Width As Long, Height As Long, TopLeftColour As Long, TopRightColour As Long, BottomLeftColour As Long, BottomRightColour As Long)
    Dim bi24BitInfo As BITMAPINFO
    Dim bBytes() As Byte
    Dim LeftGrads() As cRGB
    Dim RightGrads() As cRGB
    Dim MiddleGrads() As cRGB
    Dim TopLeft As cRGB
    Dim TopRight As cRGB
    Dim BottomLeft As cRGB
    Dim BottomRight As cRGB
    Dim iLoop As Long
    Dim bytesWidth As Long

    With TopLeft
        .Red = Red(TopLeftColour)
        .Green = Green(TopLeftColour)
        .Blue = Blue(TopLeftColour)
    End With
    
    With TopRight
        .Red = Red(TopRightColour)
        .Green = Green(TopRightColour)
        .Blue = Blue(TopRightColour)
    End With
    
    With BottomLeft
        .Red = Red(BottomLeftColour)
        .Green = Green(BottomLeftColour)
        .Blue = Blue(BottomLeftColour)
    End With
    
    With BottomRight
        .Red = Red(BottomRightColour)
        .Green = Green(BottomRightColour)
        .Blue = Blue(BottomRightColour)
    End With
    
    GradateColours LeftGrads, Height, TopLeft, BottomLeft
    GradateColours RightGrads, Height, TopRight, BottomRight
    
    With bi24BitInfo.bmiHeader
        .biBitCount = 24
        .biCompression = BI_RGB
        .biPlanes = 1
        .biSize = Len(bi24BitInfo.bmiHeader)
        .biWidth = Width
        .biHeight = 1
    End With
    
    ReDim bBytes(1 To bi24BitInfo.bmiHeader.biWidth * bi24BitInfo.bmiHeader.biHeight * 3) As Byte
    
    bytesWidth = (Width) * 3
    
    For iLoop = 0 To Height - 1
        GradateColours MiddleGrads, Width, LeftGrads(iLoop), RightGrads(iLoop)
        CopyMemory bBytes(1), MiddleGrads(0), bytesWidth
        SetDIBitsToDevice ObjectHDC, Left, Top + iLoop, bi24BitInfo.bmiHeader.biWidth, bi24BitInfo.bmiHeader.biHeight, 0, 0, 0, bi24BitInfo.bmiHeader.biHeight, bBytes(1), bi24BitInfo, DIB_RGB_COLORS
    Next iLoop
    

    End Function

    Private Function GradateColours(cResults() As cRGB, Length As Long, Colour1 As cRGB, Colour2 As cRGB)
    Dim fromR As Integer
    Dim toR As Integer
    Dim fromG As Integer
    Dim toG As Integer
    Dim fromB As Integer
    Dim toB As Integer
    Dim stepR As Single
    Dim stepG As Single
    Dim stepB As Single
    Dim iLoop As Long

    ReDim cResults(0 To Length)
    
    fromR = Colour1.Red
    fromG = Colour1.Green
    fromB = Colour1.Blue
    
    toR = Colour2.Red
    toG = Colour2.Green
    toB = Colour2.Blue
    
    stepR = Divide(toR - fromR, Length)
    stepG = Divide(toG - fromG, Length)
    stepB = Divide(toB - fromB, Length)
    
    For iLoop = 0 To Length
        cResults(iLoop).Red = fromR + (stepR * iLoop)
        cResults(iLoop).Green = fromG + (stepG * iLoop)
        cResults(iLoop).Blue = fromB + (stepB * iLoop)
    Next iLoop
    

    End Function

    Private Function Blue(Colour As Long) As Long
    Blue = (Colour And &HFF0000) / &H10000
    End Function
    Private Function Green(Colour As Long) As Long
    Green = (Colour And &HFF00&) / &H100
    End Function

    Private Function Red(Colour As Long) As Long
    Red = (Colour And &HFF&)
    End Function

    Private Function Divide(Numerator, Denominator) As Single
    If Numerator = 0 Or Denominator = 0 Then
    Divide = 0
    Else
    Divide = Numerator / Denominator
    End If
    End Function
    Public Sub GradientTwoColour(ByVal hDC As Long, ByVal Direction As GRADIENT_DIRECT, ByVal StartColor As Long, ByVal EndColor As Long, Left As Long, Top As Long, Width As Long, Height As Long)
    Dim udtVert(1) As TRIVERTEX, udtGRect As GRADIENT_RECT
    Dim UDTRECT As RECT
    'hDCObj.ScaleMode = vbPixels
    'hDCObj.AutoRedraw = True
    SetRect UDTRECT, Left, Top, Width, Height
    With udtVert(0)
    .x = UDTRECT.Left
    .y = UDTRECT.Top
    .Red = LongToSignedShort(CLng((StartColor And &HFF&) * 256))
    .Green = LongToSignedShort(CLng(((StartColor And &HFF00&) \ &H100&) * 256))
    .Blue = LongToSignedShort(CLng(((StartColor And &HFF0000) \ &H10000) * 256))
    .Alpha = 0&
    End With
    With udtVert(1)
    .x = UDTRECT.Right
    .y = UDTRECT.Bottom
    .Red = LongToSignedShort(CLng((EndColor And &HFF&) * 256))
    .Green = LongToSignedShort(CLng(((EndColor And &HFF00&) \ &H100&) * 256))
    .Blue = LongToSignedShort(CLng(((EndColor And &HFF0000) \ &H10000) * 256))
    .Alpha = 0&
    End With
    udtGRect.UpperLeft = 0
    udtGRect.LowerRight = 1
    GradientFillRect hDC, udtVert(0), 2, udtGRect, 1, Direction
    End Sub
    Private Function LongToSignedShort(ByVal Unsigned As Long) As Integer
    If Unsigned < 32768 Then
    LongToSignedShort = CInt(Unsigned)
    Else
    LongToSignedShort = CInt(Unsigned - &H10000)
    End If
    End Function
    Private Function ColourTOGray(ByVal uColor As Long) As Long
    Dim Red As Long, Blue As Long, Green As Long
    Dim gray As Long
    Red = uColor Mod 256
    Green = (uColor Mod 65536) / 256
    Blue = uColor / 65536
    gray = (Red + Green + Blue) / 3
    ColourTOGray = RGB(gray, gray, gray)
    End Function
    Private Function LightenColor(ByVal uColour As ColorConstants, Optional ByVal OffSet As Long = 1) As Long
    Dim intR As Integer, intG As Integer, intB As Integer
    intR = Abs((uColour Mod 256) + OffSet)
    intG = Abs((((uColour And &HFF00) / 256&) Mod 256&) + OffSet)
    intB = Abs(((uColour And &HFF0000) / 65536) + OffSet)
    LightenColor = RGB(intR, intG, intB)
    End Function
    '-------------------------------------------------------------------------------------------------------
    二、Form测试,代码如下:
    Option Explicit
    Dim i As Integer, B As Boolean

    Private Sub Command1_Click()
    ProgressBar1.Value = 0
    B = True
    Do
    DoEvents
    ProgressBar1.Value = i
    i = i + 1
    If i >= 10000 Or B = False Then Exit Do
    Loop
    End Sub

    Private Sub Form_Load()
    ProgressBar1.Max = 10000
    ProgressBar1.Min = 0
    ProgressBar1.Value = 0
    End Sub

    Private Sub Form_Unload(Cancel As Integer)
    B = False
    End Sub

    展开全文
  • 枫枫VB下载演示,带进度条VB6源码,简单的一个下载演示,带进度条的!
  • VB6进度条下载

    2012-04-08 20:31:19
    VB6进度条下载,用inet控件实现读取并下载!
  • VB.net 进度条使用

    2021-02-10 10:33:49
    ProgressBar 控件又称进度条控件,它是一个应用很广的控件,可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度,如果这样的过程中没有视觉提示,用户可能会认为应用程序不响应,通过在应用程序中使用 ...

    ProgressBar 控件又称进度条控件,它是一个应用很广的控件,可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度,如果这样的过程中没有视觉提示,用户可能会认为应用程序不响应,通过在应用程序中使用 ProgressBar,可以告诉用户应用程序正在执行任务且仍在响应。

    在vb.net工具箱中 ProgressBar 控件图标如下图一所示:

    在这里插入图片描述

    ProgressBar 控件常用属性有:Maximum、Minimum、Step、Value;常用的方法有:PerformStep、Increment。
    Maximum、Minimum 属性:指ProgressBar 控件可变化的最大和最小值。
    Step 属性:ProgressBar 控件调用 PerformStep 方法时候增长的步长。
    Value 属性:ProgressBar 控件当前的位置值。
    PerformStep 方法:按照 Step 属性的数量增加进度栏的当前位置。
    Increment 方法:按指定的数量增加进度栏的当前位置。

    下面我们就用示例来演示它的属性和方法。

    1、未知界限
    设置Style属性为Marquee,进度块是自动推进的,不过不能反映实际进度,也就是提醒一下用户:程序在正常运行中,而不是死机了。

    2、已知界限
    在“循环增加1”的按钮Click事件中添加如下代码:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim i As Integer = 0
    
            ProgressBar1.Value = 0
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = 100
    
            For i = 1 To 100
                ProgressBar1.Value += 1
                System.Threading.Thread.Sleep(100)
            Next
        End Sub
    

    在“按步长增加”按钮Click事件中添加如下代码:

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            For r = 0 To 100
                If ProgressBar1.Value < 100 Then
                    ProgressBar1.Value = ProgressBar1.Value + 1
                Else
                    MsgBox("进度完成", MsgBoxStyle.Information, "提示")
                    Exit For '退出循环
                End If
            Next
    
        End Sub
    

    在“按输入值增加”按钮Click事件中添加如下代码:

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            ProgressBar1.Minimum = 0
            ProgressBar1.Maximum = 100
    
            Dim i As Integer = CInt(InputBox("输入要增加的量", , "15"))
    
            ProgressBar1.Increment(i)
        End Sub
    

    按F5运行,就可以演示 ProgressBar 控件增加值的vb.net教程三种方法,注意使用PerformStep、Increment这两种方法的时候并不会因为Value的值超过Maximum 而引发错误。
    按时间出发

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ProgressBar1.Value = 0
    '每隔1000毫秒触发一次
    Timer1.Interval = 1000
    Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value = ProgressBar1.Value + 1
        Else
            Timer1.Enabled = False
        End If
    End Sub
    
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Timer1.Enabled = True
    End Sub
    

    作者:不务正业程序熊
    链接:https://www.jianshu.com/p/3bd48e248734
    来源:简书
    著作权归作者所有。商业转载请联系作者获得授权,非商业转载请注明出处。

    展开全文
  • 这是自己做得一个平滑进度条。 可以设置显示的文字,进度条的颜色。其他与普通进度条一致。 还有一点无伤大雅的bug。 转载请保留控件最上方文字提示。
  • VB 中添加进度条

    千次阅读 2017-03-07 09:35:01
    加载时如果没有进度条会给人舒服的感觉,以下是进度条的代码,在加载函数前StartProgressBar(),执行完之后EndProgressBar()#Region "进度条" '''==================进度条Begin==============================...

    加载时如果没有进度条会给人舒服的感觉,以下是进度条的代码,在加载函数前StartProgressBar(),执行完之后EndProgressBar()

    #Region "进度条"
        '''==================进度条Begin========================================================================
        Private ProgressForSwitchFormT1 As ProgressForSwitchForm
        Private ThreadT2 As Thread
    
        Private Sub ShowProgressForSwitchForm(ByVal ProgressFormT1 As ProgressForSwitchForm)
            Application.Run(ProgressFormT1)
        End Sub
    
        Private Sub EndProgressForm(ByVal ProgressFormT1 As ProgressForSwitchForm)
            Try
                ProgressFormT1.Close()
            Catch ex As Exception
            End Try
        End Sub
    
        ' 开始进度条
        Public Sub StartProgressBar()
            ProgressForSwitchFormT1 = New ProgressForSwitchForm()
    
    
            ThreadT2 = New Threading.Thread(AddressOf ShowProgressForSwitchForm)
            ThreadT2.Start(ProgressForSwitchFormT1)
        End Sub
    
        Friend Delegate Sub EndProgressForSwitchFormDelegate(ByVal ProgressFormT1 As ProgressForSwitchForm)
    
        ' 结束进度条
        Public Sub EndProgressBar()
            Dim EndProgressForSwitchFormDelegateT1 As New EndProgressForSwitchFormDelegate(AddressOf EndProgressForm)
            ProgressForSwitchFormT1.Invoke(EndProgressForSwitchFormDelegateT1, ProgressForSwitchFormT1)
        End Sub
        '''==================进度条End========================================================================
    #End Region
    
    展开全文
  • VB动画进度条

    2021-05-07 06:05:16
    摘要:VB源码,界面编程,进度条 VB动画进度条,我觉得挺不错的VisualBasic进度条实例,可设置从左到右、双向反弹、单向反弹、脉冲等方式的进度条样式,简单实用,动画的效果也挺不错,欢迎大家下载参考。
  • VB6.0使用API拷贝文件显示进度条,api拷贝文件并出现进度条,同时还有删除、替换文件的功能,具体实现的功能:  将当前目录中的FileTG.frm文件复制到当前目录下1.frm  将当前目录下的1.frm文件改名位2.frm  将...
  • 100 End With Me.Controls.Add(StatusBar) End Sub 组件类:vb.net教程ProgressStatus.vb Public Class ProgressStatus : Inherits StatusBar Public progressBar As New progressBar Private _progressBar As ...
      Private strDate = New System.Windows.Forms.StatusBarPanel
      Private StrCount = New System.Windows.Forms.StatusBarPanel
      Private info = New System.Windows.Forms.StatusBarPanel
      Private progress = New System.Windows.Forms.StatusBarPanel
      Private StatusBar As New ProgressStatus ''状态条中加入进度条
      Private   Sub InitializeStatusBar()
    
          info.Text = "Ready"
          info.Width = 100
          StrCount.AutoSize =       System.Windows.Forms.StatusBarPanelAutoSize.Contents
          StrCount.Alignment = HorizontalAlignment.Center
          StrCount.Text = "完成 0 条记录"
          progress.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
          strDate.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
          strDate.Text = System.DateTime.Now
          strDate.Alignment = HorizontalAlignment.Right
    
          With StatusBar
              .Panels.Add(info)
              .Panels.Add(progress)
              .Panels.Add(StrCount)
              .Panels.Add(strDate)
              .ShowPanels = True
              .setProgressBar = 1
              .progressBar.Minimum = 0
              .progressBar.Maximum = 100
          End With
    
          Me.Controls.Add(StatusBar)
      End Sub
    

    组件类:vb.net教程ProgressStatus.vb

    Public Class ProgressStatus : Inherits StatusBar   Public progressBar As New progressBar Private _progressBar As Integer = -1
            Sub New()
                   progressBar.Hide()
    
                   Me.Controls.Add(progressBar)
         
           End Sub
    
      Public Property setProgressBar() As Integer
          Get
              Return _progressBar
          End Get
          Set(ByVal Value As Integer)
              _progressBar = Value
              Me.Panels(_progressBar).Style =       StatusBarPanelStyle.OwnerDraw
          End Set
      End Property
    
      Private Sub Reposition(ByVal sender As Object, ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) Handles MyBase.DrawItem
          progressBar.Location = New Point(sbdevent.Bounds.X, sbdevent.Bounds.Y)
          progressBar.Size = New Size(sbdevent.Bounds.Width, sbdevent.Bounds.Height)
          progressBar.Show()
      End Sub
    
      End Class
    
    展开全文
  • 一键解决VB6(WIN7 X64)对象库未注册问题,特别是在win7 x64下无法引用mscomctl.ocx的问题,其他控件也可以解决.一定要先解压出来,重点一定要先解压出来!
  • VB状态栏显示进度条(嵌入状态栏面板)例子源码,利用 SetParent 和 SendMessage 这两个API函数。
  • 类似 ccrpprg 进度条控件 vb.net 版(自己做的)提供原码,不满意自己完善
  • 内容索引:VB源码,界面编程,进度条,控件 极精美的一款VB水晶进度条控件源代码,上边是测试截图,看上去是不是很漂亮,想要的赶紧下载哦!它还有很多特效,比如淡入淡出、滚动方向填充、仿VISTA等,另外它还有多种...
  • VB进度条的文件复制

    热门讨论 2010-06-07 16:00:04
    VB进度条的文件复制 VB进度条的文件复制
  • 内容索引:VB源码,网络相关,进度条 VB下载进度条获取文件下载进度实例,在下载方面使用了控件,主要是想表现进度条方面,这个小程序向用户展示了如何将进度条绑定到下载文件进程中去,并适时获取下载进度显示出来 。
  • 内容索引:VB源码,界面编程,进度条 一个可以显示详细载入进度的VB进度条,模仿安装程序的进度度,显示剩余时间、已用时间开始时间等。很容易就可以加入你的VB工程中。
  • 如题 1、我在网上找到一个demo,但是没有源代码 ![图片说明](https://img-ask.csdn.net/upload/201905/05/1557024202_393382.jpg) 我想把效果变成如下 ![图片说明]...
  • VB进度条实现

    2019-06-01 01:45:21
    进度条实现 博文链接:https://yaojialing.iteye.com/blog/1107337
  • VB演示进度条

    2011-11-30 23:41:57
    VB 中利用label+时钟控件演示制作进度条,需要原代码的加QQ
  • vb.net制作的漂亮进度条

    热门讨论 2010-02-23 15:48:00
    vb.net制作的非常漂亮的进度条控件,其中2个文件夹,一个是demo的源码,一个是控件的源码
  • 内容索引:VB源码,图形处理,进度条 一个类似Windows2003系统启动时的色彩进度条控件源代码,不仅限于作启动画面,其实你在编写项目软件的时候都可以用到,像主程序与子程序有时候需要连接网络而让用户等待较长的时候...
  • 主程序代码: Option Explicit Dim i As Double Private Sub Command1_Click() i = 0 Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() i = i + 0.05 ProcessBar1.Percent = i ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,305
精华内容 1,322
关键字:

vb6进度条