• Roma
  • Участник
  • На форуме с 7 августа 2009г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Помогите пожалуйста...

Люди добрые, помогите ссылками или советом...
Надо сделать то что на рисунке обозначего поз.1, как это сделать, можно ли с помощью того, что изображено под поз.2
Помогите пожалуйста...

  • Sari
  • Sari
  • Участник
  • На форуме с 24 ноября 2008г.
  • Сообщений: 71
  • Спасибо: 2

Re: Помогите пожалуйста...

В ListBox можно создать несколько столбцов. Только в ListBox есть только вертикальные разделители.
Или можно воспользоваться Additional Controls -> Microsoft DataGrid Control.

  • Roma
  • Участник
  • На форуме с 7 августа 2009г.
  • Сообщений: 7
  • Спасибо: 0

Re: Помогите пожалуйста...

Sari пишет:

В ListBox можно создать несколько столбцов. Только в ListBox есть только вертикальные разделители.
Или можно воспользоваться Additional Controls -> Microsoft DataGrid Control.

а где это искать, в меню?

  • Sari
  • Sari
  • Участник
  • На форуме с 24 ноября 2008г.
  • Сообщений: 71
  • Спасибо: 2

Re: Помогите пожалуйста...

Private Sub UserForm_Click()
    Dim i As Single
    Dim MyArray(6, 3)
    ListBox1.ColumnHeads = True
    ListBox1.ColumnCount = 3
    'This list box contains 3 data columns

    'Load integer values MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
        MyArray(i, 1) = Rnd
        MyArray(i, 2) = Rnd
    Next i

    'Load ListBox1
    ListBox1.List() = MyArray
End Sub

  • На форуме с 26 февраля 2009г.
  • Сообщений: 134
  • Спасибо: 3

Re: Помогите пожалуйста...

А как быть если в Additional Controls нет элемента Microsoft DataGrid Control? Есть возможность его достать?

  • Sari
  • Sari
  • Участник
  • На форуме с 24 ноября 2008г.
  • Сообщений: 71
  • Спасибо: 2

Re: Помогите пожалуйста...

Прийдется носить ocx вместе с программой и самостоятельно его регистрировать до запуска программы.

  • Roma
  • Участник
  • На форуме с 7 августа 2009г.
  • Сообщений: 7
  • Спасибо: 0

Re: Помогите пожалуйста...

А столбцы можно сделать разной ширины?

  • Roma
  • Участник
  • На форуме с 7 августа 2009г.
  • Сообщений: 7
  • Спасибо: 0

Re: Помогите пожалуйста...

Как передать переменную из одного Private Sub в другой Sub?

  • Roma
  • Участник
  • На форуме с 7 августа 2009г.
  • Сообщений: 7
  • Спасибо: 0

Re: Помогите пожалуйста...

ПОМОГИТЕ!!!
Есть пять TextBox (TextBox1...TextBox5)
Есть массив Text(1...5)
Можно ли сделать присвоение значений массива TextBox-сам?
т.е. сделать не
TextBox1 = Text(1)
...
TextBox5 = Text(5)
а
For i=1 to 5
TextBox(i) = Text(i)
Next i
---
Можно ли сделать - TextBox=TextBox+i
---
For i=1 to 5
TextBox = Text(i)
Next i
---
Как это сделать правильно?

  • Roma
  • Участник
  • На форуме с 7 августа 2009г.
  • Сообщений: 7
  • Спасибо: 0

Re: Помогите пожалуйста...

Роман Коняев пишет:

А столбцы можно сделать разной ширины?

Можно!!!
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "25;45;45;45;45;45;45;45;45"