Проблема с классом

[beat_swamp]

добрый день всем1 пытался на сайте найти какие нить примеры работы с классами1 безрезультатно1 +/
вот мой код класса cArrow (рисует стрелку):

Код: Выделить всё

Option Explicit

Public linMain As Line    ' главная линия стрелки     
Public linFirst As Line     ' перо стрелки
Public linSecond As Line ' перо стрелки
Public intLineLenght As Integer 'длина стрелки
Public sngAngle As Single       'угол между стрелкой и пером

'зануление координат линий при создании объекта
Private Sub Class_Initialize()
    linMain.x1 = 0
    linMain.y1 = 0
    linMain.x2 = 0
    linMain.y2 = 0
   
    linFirst.x1 = 0
    linFirst.y1 = 0
    linFirst.x2 = 0
    linFirst.y2 = 0
   
    linSecond.x1 = 0
    linSecond.y1 = 0
    linSecond.x2 = 0
    linSecond.y2 = 0
   
    intLineLength = 0
    sngAngle = 0 * PI
End Sub

'устанавливаем
Public Sub SetArrowParams(intX1 As Integer, intY1 As Integer, intX2 As Integer, intY2 As Integer, angle As Single, length As Integer)
    sngAngle = angle / 180 * PI         'перводим угол из градусов
    intLineLength = length
    linMain.x1 = intX1
    linMain.y1 = intY1
    linMain.x2 = intX2
    linMain.y2 = intY2
   
    linFirst.x2 = intX1
    linFirst.y2 = intY1
    GetSubLinesCoords 1, linFirst.x2, linFirst.y2
    linSecond.x2 = intX1
    linSecond.y2 = intY1
    GetSubLinesCoords 2, linSecond.x2, linSecond.y2
    SetArrowParams = 0
End Sub

'получаем координаты конца пера стрелки взависимости от ее номера bytLineNum
Public Sub GetSubLinesCoords(bytLineNum As Byte, ByRef intX2 As Integer, ByRef intY2 As Integer) As Integer
   Dim i As Integer
    Dim sngAlfa As Single 
    Dim sngBetta As Single 
   
    sngAlfa = Atn(CSng((linMain.y2 - linMain.y1) / (linMain.x2 - linMain.x1)))
    sngBetta = sngAlfa + IIf(bytLineNum = 1, sngAngle, -sngAngle)
    intX2 = CInt(linMain.x2 - Cos(sngBetta) * CSng(intLineLength))
    intY2 = CInt(linMain.y2 - Sin(sngBetta) * CSng(intLineLength))
    GetSubLinesCoords = 0
End Sub


Далее я на форме сделал кнопку1 вот код:

Код: Выделить всё

Dim myArr As cArrow

Private Sub Command1_Click()
    myArr.SetArrowParams 10, 10, 200, 200, 30.0, 30
End Sub


запускаю проект1 му кнопку1 ругается1 "run-time error 91. Object variable or With block variable not set."

подскажите пожалуйста в чем дело? правильно ли я создаю объект (обычным Dim'ом) или надо как то по другому?

[GB826]

sngAlfa = Atn(scng((linMain.y2 - linMain.y1) / (linMain.x2 - linMain.x1)))

Код: Выделить всё

dim var1  as NEW YourClass

[/syntax]

[beat_swamp]

исправил1

sngAlfa = Atn(scng((linMain.y2 - linMain.y1) / (linMain.x2 - linMain.x1)))

до этого дело даже не доходит1
ошибка возникает когда я пытаюсь обратиться к свойствам linMain, linFirst или linSecond вот1

может надо вот так объявлять член класса:

Код: Выделить всё

public linMain as VB.Line

но я пробовал1 все равно ошибка вылетает1

[Amed]

Код: Выделить всё

Private Sub Command1_Click()
Dim myArr As Object
Set myArr = New cArrow
myArr.SetArrowParams 10, 10, 200, 200, 30.0, 30
End Sub

или

Код: Выделить всё

Private Sub Command1_Click()
Dim myArr As New cArrow
myArr.SetArrowParams 10, 10, 200, 200, 30.0, 30
End Sub

[beat_swamp]

Amed, все равно та же ошибка1 в дебагере видно что она возникает при обращении к свойствам линий1

[keks-n]

beat_swamp
Вообще-то контролы в рантайме создаются посредством:

Код: Выделить всё


Контейнер(например форма).Controls.Add(Имя_класса(например VB.Line), Имя_контрола)


[Amed]

Если хочешь добавлять из класса линии на форму, пиши вот так примерно:

Код: Выделить всё

Option Explicit

Public Sub Start(frm As Form, Number As Integer)
Dim strN As String

strN = "x" & Number

frm.Controls.Add "VB.Line", strN

Dim ct As Control
For Each ct In frm.Controls
    If ct.Name = strN Then
        ct.Visible = True
        ct.X1 = Number * 100
        ct.Y1 = 0
   
        ct.X2 = 1000 + Number * 100
        ct.Y2 = 1000
       
        Exit For
    End If
Next ct
End Sub


И вызывай в форме

Код: Выделить всё

Option Explicit

Private x() As New cArrow

Private Sub Command1_Click()
ReDim Preserve x(UBound(x) + 1)
x(UBound(x) - 1).Start Me, UBound(x)
End Sub

Private Sub Form_Load()
ReDim x(0)
End Sub


Но это кривой путь. Лучше рисуй из класса линии на форме методами Line. Стопроцентно выгоднее.

UPD:
Фу, отвратительный вариант получился
Самому противно аж стало.

[beat_swamp]

Лучше рисуй из класса линии на форме методами Line. Стопроцентно выгоднее.

но мне надо будет их (линии) потом удалять1

[GB826]

но мне надо будет их (линии) потом удалять!

Точнее прекратить рисовать ;о)...

[beat_swamp]

но мне надо будет их (линии) потом удалять!

Точнее прекратить рисовать ;о)...

неее1 сначала нарисовать линии в одном месте1 потом их переместить в другое1 или удалить а потом заново отрисовать1 вот1

[Amed]

Ты не понял. Сделай процедуру DrawAllMyLines, в ней сначала очищай поле, на котором у тебя все рисуется, а затем перерисовывай все заново.