Notice
Recent Posts
Recent Comments
- Today
- Total
내 머릿속 데이터베이스
그래프 그리는 함수 본문
언젠가 선배가 다이어트 관련 프로그램을 제작할 때 옆에서 그래프 함수를 만들어줬었던 기억이 있다.
뭐 효율, 그런거 안따지고 만들었고 좋지 않은 소스일테지만 우연히 다시 발견하여 올린다.
뭐 효율, 그런거 안따지고 만들었고 좋지 않은 소스일테지만 우연히 다시 발견하여 올린다.
Function BioGraph(Target As Shape, ByVal Value As Integer, _
Optional COLOR As Long = vbRed, _
Optional MAX As Integer = 2000, _
Optional BASIC As Integer = 3000)
'Target : 그래프가 될 Shape 객체
'Value : 그래프의 값 (%)
'COLOR : 그래프의 색상
'MAX : 그래프의 최대 너비 (px)
'BASIC : 그래프의 기준점인 가운데 좌표 (px)
Target.FillStyle = 0
Target.FillColor = COLOR
If Value = 0 Then
Target.Visible = False
Exit Function
End If
Target.Visible = True
If (Value > 0) Then
Target.Width = MAX * (Value / 100)
Target.Left = BASIC + 60
ElseIf (Value < 0) Then
Target.Width = MAX * (Value * -1 / 100)
Target.Left = BASIC - 60 - Target.Width
End If
End Function
Comments