3+1 вопроса

[vrodo]

Доброе время суток
имеется 3 вопроса
1. имеет ли смысл писать свой парсер для работы с математикой или лучше использовать VBscript control (у меня сейчас какраз 2 вариант)
2. обясните мне пожалуйста как мне сохранять картинки которые программа рисует в ПикчеБоксе. Причем не на диск а в массив или нечто подобное, а потом при нажатии кнопки их и показывать по порядку в этом ПикчеБоксе (т.е. мультик получится)
3. На форме есть один элемент в виде ромбика. Как мне сделать массив из N количества этих элементов и показать их на экране

ЗЫ Вспомнил еще вопрос
4. как ускорить прорисовку точек в ПикчеБоксе (рисует из массива с координатами точек посредством for ....... next). Как можно по другому

[GSerg]

1. У меня первый
2. В imagelist.

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

   Dim arr() as Diamond, i as long
redim Diamond(1000)
for i=1 to 1000
  set diamond(i)=new diamond
  diamond(i).show
next

4. Можно через SetPixel.
   Можно получить указатель на биты данных bmp и напрямую писать в память нужные значения.

[vrodo]

4. поподробнее пожалуйста

[sanches]

1. см. аттач
4. рисуй через API.

[vrodo]

GSerg
3. Что-то ты напутал
неполучается редим сделать объекту
может еще раз для объяснишь для "тех кто в танке" ?

[gaidar]

Я вмешаюсь. Так, конечно, работать не будет. Ведь объявлен массив, и ReDIm применять надо к нему.

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

Dim arr() as Diamond, i as Long
ReDim arr(1000)
For i=1 to 1000
  Set arr(i) = New Diamond
  arr(i).Show
Next


[GSerg]

Ха ха.
Вот простегал

[vrodo]

Спасибо

[vrodo]

А вы сами тестируете когда советы даете?

Я пробовал разные объекты но ни один контрол я немогу назначить как тип
Получается только вот так Dim arr() As Object

User-defined type not defined

Set arr(i) = New [Command1,Shape1,Picture1,Image1]

кроме форм

Я уже совсем запутался ведь поидее должно получится
такой код код неработает

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

Private Sub Command1_Click()
Dim arr() As Control, i As Integer
ReDim arr(Val(Text1)) As Control
    For i = 0 To Val(Text1)
        Set arr(i) = New Picture1
        arr(i).Visible = True
        arr(i).Left = arr(i).Width * i
    Next i
End Sub


а такой сдвигает PictureBox в право

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

Private Sub Command1_Click()
Dim arr() As Control, i As Integer
ReDim arr(Val(Text1)) As Control
    For i = 0 To Val(Text1)
        Set arr(i) = Picture1
        arr(i).Visible = True
        arr(i).Left = arr(i).Width * i
    Next i
End Sub

[GSerg]

Под Diamond понимался юзерский класс. Контролы создаются через Load.

[v-adix]

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long


для быстрой прорисовки использую это (если ты сейчас не это используешь)

применение:
setpixel picture1.hdc, X, Y, RGB(Red, Green, Blue)