| Вопрос: Двойной массив элемента управления | Добавлено: 10.08.06 18:44 |
Автор вопроса:  -АлександР- | Web-сайт: sham.clan.su
|
| Ответы | Всего ответов: 58 |
|
Номер ответа: 31 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #31 | Добавлено: 11.08.06 02:07 |
Ну похоже это именно на реализацию записи 0,5 байт  Вместо того, чтобы объяснить топстартеру что он не прав в корне...
|
||
|
Номер ответа: 32 Автор ответа: Cheetor! Maximize! Вопросов: 1 Ответов: 40 |
Web-сайт: Профиль | | #32 | Добавлено: 11.08.06 02:49 |
|
HACKER, виноват, думал все сами догадаются. Можно конечно сделать по другому, например сделать процедуру или функцию с вот таким заголовком:
Private Function ProcessButton(btnButton As CommandButton, i As Long, j As Long) As Long
Ну а там ещё каки нить параметры и запихать мои функции перевода. Но это всё фигня, согласен. Но если ты всё таки знаешь как сделать эти пол байта на нулевом кольце с двухмерным массивом кнопок, то почему бы тебе (тут должно быть уселяющее выражение, возможно с матом) не объяснить НАМ?! (ну или хотябы автору и мне) |
||
|
Номер ответа: 33 Автор ответа: avdey ICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #33 | Добавлено: 11.08.06 08:51 |
|
Выспались, успокоились... Продолжайте дискуссию...
2HACKER ReDim mas(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
11 измерений... Это как??????????? __________ \ \ |\ \ | \_________\ | | | |_| | \ | | \| | |_________| Энто 3х мерный объект, а как 11 мерный??? Мозг вообще способен его представить??? |
||
|
Номер ответа: 34 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #34 | Добавлено: 11.08.06 08:52 |
| Млин, все поехало (надо было в код загонять), короче куб это был... | ||
|
Номер ответа: 35 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #35 | Добавлено: 11.08.06 13:35 |
|
Контролы можно и без апи создавать. Я сам такое делал для меток.
http://basicproduction.nm.ru/LblCstm.zip - Да, действительно можно. Не знал. Спасибо за информацию. |
||
|
Номер ответа: 36 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #36 | Добавлено: 11.08.06 15:07 |
| А причём Хакер? И не надо матом меня не поделу... просто двухмерный массив объектов действительно звучит как пол байта, или я не прав? | ||
|
Номер ответа: 37 Автор ответа: Сheetor! Maximize!!!ICQ: I am transformed Вопросов: 4 Ответов: 43 |
Web-сайт: Профиль | | #37 | Добавлено: 11.08.06 15:11 |
|
Делать надо имхо исключительно через связб обычного массива с массивом объектов а то так и будет полбайтовое решени.
P.S. Well, that's just prime |
||
|
Номер ответа: 38 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #38 | Добавлено: 11.08.06 15:25 |
|
11 измерений... Это как???????????
Ну есть 2 к примеру - на плоскости X and Y... есть 3 (трёхмерное пространство) - на поскости X, Y, Z Логично что измирений может быть > 3 ? А вот кто толково представит мне двухмерный массив контролов??? |
||
|
Номер ответа: 39 Автор ответа: avdeyICQ: 219571279 Вопросов: 34 Ответов: 486 |
Профиль | | #39 | Добавлено: 11.08.06 17:26 |
|
А вот кто толково представит мне двухмерный массив контролов???
Ну например X это Индекс контрола в массиве, а Y это тип контрола (кнопка, текстбокс, листбокс)...))))))))))))))) |
||
|
Номер ответа: 40 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #40 | Добавлено: 11.08.06 19:47 |
| For Each это называется, причём не только в вб... а вот двухмерный массив контролов только в в вашем понимании, причём неправельном понимании... | ||
|
Номер ответа: 41 Автор ответа: Сheetor! Maximize!!!ICQ: I am transformed Вопросов: 4 Ответов: 43 |
Web-сайт: Профиль | | #41 | Добавлено: 11.08.06 20:51 |
|
Да блин! Не бывает двухмерных массивов контролов! Можно только создать "эмуляцию". как? см.выше
Ay... em... t-r-a-n-s-f-o-m-d! |
||
|
Номер ответа: 42 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #42 | Добавлено: 11.08.06 21:18 |
|
- Профессор, не могу представить себе 4-мерное пространство.
- Ну это же очень просто, представь n-мерное и положи n=4 Обычно n-мерное пространство представляют в виде упорядоченной совокупности его n координат. |
||
|
Номер ответа: 43 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #43 | Добавлено: 12.08.06 00:22 |
|
Контролы можно и без апи создавать. Я сам такое делал для меток.
http://basicproduction.nm.ru/LblCstm.zip Клевая штука! Мне понравилось. Только при помощи АПИ, но обрабатывать события прийдется тоже при помощи АПИ
Но только ради интереса, а как можно это делать с помощью API? Web-сайт: www.en.wikipedia.org/wiki/Beast_Wars Добавлено: 10.08.06 23:52 мои коды как всегда длинны и кривы но работают: ' !!! Field 8x8 !!! Option Explicit Dim ix As Long, ig As Long Function TwoToOne(X As Long, Y As Long) As Long TwoToOne = (Y - 1) * 8 + X End Function Sub OneToTwo(Index As Long) If Index Mod 8 = 0 Then ig = Index \ 8 ix = 8 Else ig = Index \ 8 + 1 ix = Index Mod 8 End If End Sub Private Sub Form_Load() MsgBox "index=" & TwoToOne(1, 2) '=9 OneToTwo (9) MsgBox "x=" & ix '=1 MsgBox "y=" & ig '=2 End Sub ...хотя и не всегда Не понял, а причем и зачем здесь mod и \? Они ведь просто вычисляют "целочисленое деление" и остаток от него... Я думаю в моём случае это не тянет. Ечли нельзя создать двойной массив объектов, то обходным путём мне нужно что-то вроде ... Dim asTwiceArea(Line1.Count, 3) As Integer
Но это не тянет, т .к line1.count должен быть константой |
||
|
Номер ответа: 44 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #44 | Добавлено: 12.08.06 00:28 |
| Дело в том, что у меня три picture на форме, и каждый отображает свой линию с трёх сторон: сперди, слева, сверху. Но это одна и та же линия в 3d, и мне её нужно как-то объединить три линии на трех пикчер's. Для этого я придумал двухм. массив. А т.к. эта линия будет не одна на 3D, то и нужно ввести размер как line1.count/ ну типа того... | ||
|
Номер ответа: 45 Автор ответа: -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #45 | Добавлено: 12.08.06 15:51 |
|
Впрочем я выкрутился так: Option Explicit
Dim i As Integer Public Function Lines(pictureNumber As Byte, nLine As Integer) As Line For i = pictureNumber - 1 To nLine Step 3 Line1.Item(i) = nLine Next i End Function Неплохо, а? |
||