|
|
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Здравствуйте! Подскажите, кто знает. Есть две формы проекта VB, как передать данные-массив, значения переменных из одной формы проекта в другую. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 09:55:06 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Public Sub InputArray(x, y, arr()) внутри формы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 10:37:16 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Есть еще способ передачи значений переменных между формами - создать стандартный модуль и в нем объявить массив. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:05:40 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Внутри одной формы естественно работает, а при двух формах - нет Форма 1 Dim b As Integer Public Sub Input0(b) b = 111111 End Sub Форма 2, вызываемая из 1-й Private Sub Command1_Click() Input0 b Text1.Text = b End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:08:12 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
А имя формы написать? Код: plaintext 1. 2. 3. 4. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:14:31 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Для переменной проходит, спасибо, я для элемента массива - нет. Может, присваивать переменной значения нужного элемента массива, а потом передавать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:28:20 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Либо так, либо передавай весь массив. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:40:15 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Через стандартный модуль массив тоже не передается,.. Подскажите, что сделать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:41:17 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
А зачем вообще такие геморои? Тебе нужно одной процедурой вытащить сразу несколько значений? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 11:50:33 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Да, необходимо перетащить массив из одной формы в другую ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 12:00:01 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Проще всего так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 12:07:49 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Спасибо, вопрос снят ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 12:27:12 |
|
||
|
Передача данных из одной формы в другую на Бейсике
|
|||
|---|---|---|---|
|
#18+
Создать проект и 2 формы (Form1 и Form2), в каждую добавить кнопку (Command1) Код Form1: Private a() As Long Private Sub Command1_Click() Load Form2 Form2.Show End Sub Private Sub Form_Load() ReDim Preserve a(0 To 3) As Long a(0) = 5 a(1) = 2 a(2) = 8 End Sub Friend Property Get mVal(nNum As Long) As Long mVal = a(nNum) End Property Код Form2: Private Sub Command1_Click() MsgBox (Form1.mVal(0) & Form1.mVal(1) & Form1.mVal(2)) End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.04.2004, 12:33:01 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=32482458&tid=2169733]: |
0ms |
get settings: |
8ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
454ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 210ms |
| total: | 761ms |

| 0 / 0 |
