还是渐变问题,100分，

2010-10-17 11:59:35 187 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

echarts仪表盘渐变问题问题： echarts仪表盘下半圆隐约存在原因：目前设置的axisLine.lineStyle.color，不是只是分段颜色设置，为了渐变衔接的效果，有一部分点是叠加了两层颜色设置。先全长度铺了一层绿色，从左往右透明度降低；再从0.8的位置到结束，铺了一层黄色，从左往右透明度升高。大致的axisLine.lineStyle.color数组设置如下： axisLine.lineStyle.c... 阅读详情

想把一个PICTURE的颜色渐变，左上角颜色淡，右下角深。矩形。

...全文

【AIOPS实战】Dify+Zabbix：构建智能告警分析助手的核心架构与实现本文详细介绍了如何利用Dify平台与Zabbix-MCP接口构建智能告警分析助手，实现自然语言查询告警、智能分析和报告生成。该系统通过AIOPS技术显著提升运维效率，支持中英文混合查询、自动根因分析，并内置多种优化方案确保稳定可靠。阅读详情

zx095x

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

bcrun 2010-10-21

打赏
举报

[Quote=引用 8 楼 asftrhgjhkjlkttttttt 的回复:]
自己下吧,不过只能下载6次
[/Quote]

你真逗,传csdn上不就得了:)

贝隆 2010-10-18

打赏
举报



Option Explicit

Rem 常量声明区域

Public Const PI = 3.14159265354         '圆周率常量

Public Const SPI_GETWORKAREA As Long = 48&

Public Const GRADIENT_FILL_TRIANGLE As Long = &H2&

'public Const GRADIENT_FILL_RECT_H   As Long = &H0&

Public Const GRADIENT_FILL_RECT_V   As Long = &H1&

Public Const LWA_ALPHA     As Long = &H2

Public Const GWL_EXSTYLE   As Long = (-20)

Public Const WS_EX_LAYERED As Long = &H80000

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

Rem 变量声明区域

Public m_iOSver          As Byte         '/* OS 1=Win98/ME; 2=Win2000/XP

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

Rem 结构类型声明区域

Public Type Rect

    Left   As Long

    top    As Long

    right  As Long

    bottom As Long

End Type

Public Type GRADIENT_TRIANGLE

    Vertex1 As Long

    Vertex2 As Long

    Vertex3 As Long

End Type

Public Type GRADIENT_RECT

    UpperLeft  As Long  '/* UNSIGNED Long

    LowerRight As Long  '/* UNSIGNED Long

End Type

Public Type TRIVERTEX

    x     As Long

    y     As Long

    Red   As Integer '/* Ushort value

    Green As Integer '/* Ushort value

    Blue  As Integer '/* Ushort value

    Alpha As Integer '/* Ushort value

End Type

'/* Operating system version information

Public Type OSVERSIONINFO

    OSVSize       As Long

    dwVerMajor    As Long

    dwVerMinor    As Long

    dwBuildNumber As Long

    PlatformID    As Long

    szCSDVersion  As String * 128

End Type

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

Rem API函数声明区域

Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

'/* Set window in the Z order

Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long

'/* GradientFill API - Requires Windows 2000 or later; Requires Windows 98 or later

Public Declare Function GradientFillTriangle Lib "msimg32" Alias "GradientFill" (ByVal hdc As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_TRIANGLE, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long

Public 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

'/* Transparancy API's - Requires Windows 2000 or later; Win9x/ME is not supported

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

'/* Used to draw the form's rounded border

Public Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal Left As Long, ByVal top As Long, ByVal right As Long, ByVal bottom As Long, ByVal EllipseWidth As Long, ByVal EllipseHeight As Long) As Long

'/* Used to make the rounded corners of the form transparent

Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal RectX1 As Long, ByVal RectY1 As Long, ByVal RectX2 As Long, ByVal RectY2 As Long, ByVal EllipseWidth As Long, ByVal EllipseHeight As Long) As Long

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

'过程功能：

'参数说明：

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

Public Sub GradientFill(ByVal iBackcolor As Long, ByRef objP As PictureBox)

    Dim TriVert(3) As TRIVERTEX

    Dim gTRi(1)    As GRADIENT_TRIANGLE

    objP.AutoRedraw = True

    objP.ScaleMode = vbPixels '/* Required but done in Sub DisplayMessage



    '/* Top Left Trangle

    TriVert(0).x = 0&

    TriVert(0).y = 0&

    Call GradientFillColor(TriVert(0), RGB(255, 255, 0))



    '/* Top Right Trangle

    TriVert(1).x = objP.ScaleWidth

    TriVert(1).y = 0&

    Call GradientFillColor(TriVert(1), RGB(255, 255, 0))



    '/* Bottom Right Trangle

    TriVert(2).x = objP.ScaleWidth

    TriVert(2).y = objP.ScaleHeight

    Call GradientFillColor(TriVert(2), iBackcolor)



    '/* Bottom Left Trangle

    TriVert(3).x = 0&

    TriVert(3).y = objP.ScaleHeight

    Call GradientFillColor(TriVert(3), RGB(255, 255, 0))



    gTRi(0).Vertex1 = 0&

    gTRi(0).Vertex2 = 1&

    gTRi(0).Vertex3 = 2&



    gTRi(1).Vertex1 = 0&

    gTRi(1).Vertex2 = 2&

    gTRi(1).Vertex3 = 3&

    Call GradientFillTriangle(objP.hdc, TriVert(0), 4&, gTRi(0), 2&, GRADIENT_FILL_TRIANGLE)

End Sub

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

'过程功能：构建点的填充色

'参数说明：tTV，给点赋值：RGB

'        ：iColor：顶点颜色

'        ：最深颜色

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％

Public Sub GradientFillColor(ByRef tTV As TRIVERTEX, ByVal iColor As Long)

    Dim iRed   As Long

    Dim iGreen As Long

    Dim iBlue  As Long

    '/* Separate color into RGB

    iRed = (iColor And &HFF&) * &H100&

    iGreen = (iColor And &HFF00&)

    iBlue = (iColor And &HFF0000) \ &H100&

    '/* Make Red color a UShort

    If (iRed And &H8000&) = &H8000& Then

       tTV.Red = (iRed And &H7F00&)

       tTV.Red = tTV.Red Or &H8000

    Else

       tTV.Red = iRed

    End If

    '/* Make Green color a UShort

    If (iGreen And &H8000&) = &H8000& Then

       tTV.Green = (iGreen And &H7F00&)

       tTV.Green = tTV.Green Or &H8000

    Else

       tTV.Green = iGreen

    End If

    '/* Make Blue color a UShort

    If (iBlue And &H8000&) = &H8000& Then

       tTV.Blue = (iBlue And &H7F00&)

       tTV.Blue = tTV.Blue Or &H8000

    Else

       tTV.Blue = iBlue

    End If

End Sub

孤独剑_LPZ 2010-10-17

打赏
举报

[Quote=引用 6 楼 zx095x 的回复:]
怎么改？

引用 5 楼 asftrhgjhkjlkttttttt 的回复:
给你一段示例,改一下吧

Dim Color As Long
Dim i As Long, W As Long, H As Long
W = Picture1.ScaleWidth
H = Picture1.ScaleHeight
For i = 0 To H
Color = RGB(255 * ……
[/Quote]

不是几句话能说清楚的,我有一个示例,实现任意角度渐变,自己下吧,不过只能下载6次
http://62.dc.ftn.qq.com/ftn_handler/2ac8ab6de41b0410941f2a47fade7ef8755ed3b39a159e21c5dd6da7388b1c0bda5e8e729e1773e57fcc615d8e225a27f39f09feb24b1d8799b1ff8a01460675/任意角度颜色渐变.rar?k=2c33336394efcd9e4c0d53791e38004e550401025a0d5452485607010015065206041e5b5d0e004c5d0406565d0907025c575251382c32a9abe1d1deff8efab0b0fa98de9d89d64f1752416305&fr=00&&txf_fid=30c834bf410d5dae370ecce15684e0c7fa38ac42
提取码 e33c882a

贝隆 2010-10-17

打赏
举报

呵呵，兄弟，你又发问了啊？
怎么又要矩形了？

zx095x 2010-10-17

打赏
举报

怎么改？

[Quote=引用 5 楼 asftrhgjhkjlkttttttt 的回复:]
给你一段示例,改一下吧

Dim Color As Long
Dim i As Long, W As Long, H As Long
W = Picture1.ScaleWidth
H = Picture1.ScaleHeight
For i = 0 To H
Color = RGB(255 * i / H, 255 * i / H, 255)
Picture1.Line ……
[/Quote]

孤独剑_LPZ 2010-10-17

打赏
举报

给你一段示例,改一下吧

Dim Color As Long
Dim i As Long, W As Long, H As Long
W = Picture1.ScaleWidth
H = Picture1.ScaleHeight
For i = 0 To H
Color = RGB(255 * i / H, 255 * i / H, 255)
Picture1.Line (0, i)-(W, i), Color
Next

zx095x 2010-10-17

打赏
举报

没看好，什么乱七八糟的。

[Quote=引用 3 楼 xiaokui008 的回复:]
看好了，模块中代码
Sub Gradient(TheObject As Object, Redval&, Greenval&, Blueval&, TopToBottom As Boolean)
Dim Step%, Reps%, FillTop%, FillLeft%, FillRight%, FillBottom%, HColor$

Step =……
[/Quote]

bhinas 2010-10-17

打赏
举报

看好了，模块中代码
Sub Gradient(TheObject As Object, Redval&, Greenval&, Blueval&, TopToBottom As Boolean)
Dim Step%, Reps%, FillTop%, FillLeft%, FillRight%, FillBottom%, HColor$

Step = (TheObject.Height / 63)
If TopToBottom = True Then FillTop = 0 Else FillTop = TheObject.Height - Step
FillLeft = 0
FillRight = TheObject.Width
FillBottom = FillTop + Step

For Reps = 1 To 63

TheObject.Line (FillLeft, FillTop)-(FillRight, FillBottom), RGB(Redval, Greenval, Blueval), BF
Redval = Redval - 4
Greenval = Greenval - 4
Blueval = Blueval - 4
If Redval <= 0 Then Redval = 0
If Greenval <= 0 Then Greenval = 0
If Blueval <= 0 Then Blueval = 0
If TopToBottom = True Then FillTop = FillBottom Else FillTop = FillTop - Step
FillBottom = FillTop + Step
Next
End Sub
窗体中代码
Private Sub Form_Resize()
Gradient Me, Slider1.Value, Slider2.Value, Slider3.Value, Check1.Value

End Sub

Private Sub Picture3_Paint()
Gradient Picture3, 0, 0, 255, 1
Gradient Picture4, 0, 0, 255, 1
End Sub

Private Sub Slider1_Scroll()
Label1.Caption = "Red = " + CStr(Slider1.Value)
Gradient Picture1, Slider1.Value, 0, 0, Check1.Value
Gradient Picture4, Slider1.Value, Slider2.Value, Slider3.Value, Check1.Value
End Sub

Private Sub Slider2_Scroll()
Label2.Caption = "Green = " + CStr(Slider2.Value)
Gradient Picture2, 0, Slider2.Value, 0, Check1.Value
Gradient Picture4, Slider1.Value, Slider2.Value, Slider3.Value, Check1.Value

End Sub

Private Sub Slider3_Scroll()
Label3.Caption = "Blue = " + CStr(Slider3.Value)
Gradient Picture3, 0, 0, Slider3.Value, Check1.Value
Gradient Picture4, Slider1.Value, Slider2.Value, Slider3.Value, Check1.Value

End Sub
控件自己摆设

zx095x 2010-10-17

打赏
举报

没有，那不是斜的

[Quote=引用 1 楼 bcrun 的回复:]
你上个帖子里好像就有答案吧
[/Quote]

bcrun 2010-10-17

打赏
举报

你上个帖子里好像就有答案吧

还是渐变问题,100分，

相关推荐