ActiveX Control - VB

Узнай цену своей работы

Формулировка задачи:

Ребят,подскажите если не кодом то хоть где конкретно можно найти информацию. Необходимо: Разработать приложение «Стрелочный индикатор уровня сигнала». В чём собственно вопросы: Как сделать этот Стрелочный индикатор?Если буду создавать его как компонент ActiveX Control'a , то окнно свойств добавлять как отдельную форму?Ну и может поможете методами какими-нибудь,вообщем любой помощи буду рад! Спасибо.

Решение задачи: «ActiveX Control»

textual
Листинг программы
Option Explicit
 
Private Const pi = 3.14159265358979
 
Private Sub Form_Load()
    Dim i As Long, d As Single, x As Single, y As Single, _
        ox As Single, oy As Single, dx As Single, dy As Single, _
        a As Single, s As Single, e As Single
    
    Me.AutoRedraw = True: Me.ScaleMode = vbPixels
    Me.Move (Screen.Width - 5000) \ 2, (Screen.Height - 5000) \ 2, 5000, 5000
 
    d = pi * 1.5 / 10
    ox = Me.ScaleWidth / 2: oy = Me.ScaleHeight / 2
    dx = ox - 50: dy = oy - 50
    a = pi * 0.25
    
    Me.FillStyle = vbSolid: Me.DrawStyle = 5
    For i = 0 To 9
        Me.FillColor = QBColor(Rnd * 15)
        s = a: e = a - d
        If s > 0 Then s = s - 2 * pi
        If e > 0 Then e = e - 2 * pi
        Me.Circle (ox, oy), ox, , s, e, dy / dx
        a = a - d
    Next
    Me.DrawStyle = 0: Me.FillColor = QBColor(15)
    Me.Circle (ox, oy), dx, , , , dy / dx
    a = pi * 0.25
    For i = 0 To 10
        x = -Cos(a): y = Sin(a)
        Me.Line (x * dx + ox, y * dy + oy)-(x * (dx - 10) + ox, y * (dy - 10) + oy)
        a = a - d
    Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5