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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д