Задача с ComboBox

[Xapk]

Такая задача:
Требуется создать элемент ComboBox
С таким содержание
дерево >> дерево значение 0.89
дерево >> сталь значение 0.1
сталь >> сталь значение 0.5
ну и т.д, чтобы при выборе скажем дерево >> дерево
к переменной присваиволась нужное значение.

просто я тока неделю учусь программировать в VB 6,

[alibek]

Ничего не понятно.
Изложи задачу на бумаге, убери весь мусор и перепиши сюда.

[Xapk]

так попробую перефразировать.

Мне нужно чтобы при выборе из списка скажем дерево >> дерево шло присваевания к переменной определенного числа..

-------------------------
| элемент комбобокс |
-------------------------
+дерево >> дерево
+дерево >> сталь
+сталь >> сталь
+медб >> медь

допустим выбрали из списка дерево >> дерево
жмеем кнопку "результат" она делить скажем число 100 на число которое зависит от того что мы выберим.

Ну короче както так.

Вообщем просто объясните синтаксис элемента combobox

[Хакер]

У элементов нет синтаксиса.

Лови событие Change и Click.

[Xapk]

А можно пример?
Просто я еще новичек во всем этом. и не совсем улавливаю мысль

[Хакер]

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

Public Sub Combo1_Click()
     MsgBox "Выбрали пункт " + Combo1.Text
End Sub

[bam]

Xapk, сложнова то, конечно, понять, что тебе нужно, но вот наваял такой код:

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

Option Explicit
Private Sub Combo1_Click()
   Dim Peremennaya As Double
   If Combo1.Text = "Дерево >> Дерево" Then
      Peremennaya = 0.89
   ElseIf Combo1.Text = "Дерево >> Сталь" Then
      Peremennaya = 0.1
   ElseIf Combo1.Text = "Сталь >> Сталь" Then
      Peremennaya = 0.5
   End If
   MsgBox "К переменной нужно прибавить: " & Peremennaya
End Sub
Private Sub Form_Load()
   Combo1.AddItem "Дерево >> Дерево"
   Combo1.AddItem "Дерево >> Сталь"
   Combo1.AddItem "Сталь >> Сталь"
End Sub

[/code]

[Xapk]

Public Sub Combo1_Click()
MsgBox "Выбрали пункт " + Combo1.Text
End Sub

Что за фигня? И что можно с ней сделать кроме как вывести Вы выбрали дерево >> дерево...

[bam]

Что за фигня? И что можно с ней сделать кроме как вывести Вы выбрали дерево >> дерево...

Каков вопрос, таков ответ...

[Хакер]

Xapk
Я тебе дал пример. Ты спросил, и тебе сказали ловить событие. Ты просил пример ловли события - ты его получил. Возьми этот пример и поменяй "MsgBox "Выбрали пункт " + Combo1.Text " на то, что тебе нужно.

Какого чёрта ты позволяешь себе наезды вроде "Чё за фигня?"?

[Xapk]

На http://vbnet.ru/forum конкретно отвечают и уже во многом помогли...
Луче там потусуюсь...

[Хакер]

Xapk

Give a man fish, he will have a meal for a day;
Teach a man to fish, he will have food all his life
(Китайская поговорка)

[Xapk]

Это не ко мне... мне срочно нужно дипломку доделать и у меня нету времени в раскопках мануалов

[Хакер]

просто я тока неделю учусь программировать в VB 6,

...

мне срочно нужно дипломку доделать

ы?

[Xapk]

ну а что не понятного тута.. я уже целуюу неделю делеаю дипломный проект, и мне срочно его нужно сдать

[Хакер]

Кажется дипломный проект пишут после того, как отоучатся несколько лет по специальности, а не одну неделю?

[alibek]

Это не ко мне... мне срочно нужно дипломку доделать и у меня нету времени в раскопках мануалов

Это твои проблемы.
Если не желаешь думать, а хочешь готовое решение, то ты ошибся форумом.