| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > Combobox и case в VB.Net. Нужна помощь.

Combobox и case в VB.Net. Нужна помощь.

Ответ
Поиск в этой теме
Непрочитано 20.10.2009, 17:51 #1
Combobox и case в VB.Net. Нужна помощь.
Bart
 
Регистрация: 23.07.2009
Сообщений: 35

Переделываю программу с VBA на VB.net. В VBA все работало.
Проблема вот в чем: это менюшка (Form), инициализация формы делается, комбобоксы заполняются, но выборка в комбобоксах (Select Case ComboBox1.SelectedIndex) не работает. Программа сразу переходит к исполнению (Private Sub CommandButton1_Click). Т.е. комбобоксы срабатывают еще на уровне инициализации формы, а не после того, как форма загрузилась. Что не так? Как мне сделать, чтобы выполнялась выборка в комбобоксах, а то так работают значения по умолчанию, которые я задаю при инициализации?

Код:
[Выделить все]
Public Class UserForm1
    Inherits System.Windows.Forms.Form
       Private Sub ComboBox1_TextChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ComboBox1.TextChanged

        Select Case ComboBox1.SelectedIndex

            Case 0

               .....

            Case 1

               ...

        End Select
-------
Private Sub CommandButton1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CommandButton1.Click

......'тут весь код программмы(писать не стал)

End Sub
------- 
Private Sub UserForm1_Load()

         ComboBox1.Items.Add("a") 'ListIndex = 0
        ComboBox1.Items.Add("b") 'ListIndex = 1

         ComboBox1.SelectedIndex = 0
        
    End Sub
End Class
-------
Public Sub New()
        MyBase.New()
        
        InitializeComponent()

        UserForm1_Load()

End Sub
#youtube_inline_div { position: absolute; display: none; border: 1px solid #999; background: #ececec; padding: 1px; text-align: center; z-index:99}
Просмотров: 5646
 
Непрочитано 20.10.2009, 21:15
#2
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Попробуй использовать для этого другое событие:

Код:
[Выделить все]
Private Sub ComboBox1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.SelectedIndex

            Case 0

               .....

            Case 1

               ...

        End Select
Или можно так

Код:
[Выделить все]
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.AddRange(New Object() {"Alpha", "Bravo", "Charlie"})
        ComboBox1.SelectedIndex = -1
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex >= 0 Then
            MessageBox.Show(String.Format("Selected: {0}", ComboBox1.SelectedItem.ToString()), "Item Selected", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
~'J'~

Последний раз редактировалось Олег (jr.), 20.10.2009 в 22:00.
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 21.10.2009, 09:54
#3
Bart


 
Регистрация: 23.07.2009
Сообщений: 35


Спасибо.
_SelectedIndexChanged сработал как надо. А ведь пробовал что-то подобное вчера, но как-то не вышло или не додумал. Пол дня вчера на это убил, в основном на поиски информации и листание книжек.

#youtube_inline_div { position: absolute; display: none; border: 1px solid #999; background: #ececec; padding: 1px; text-align: center; z-index:99}
Bart вне форума  
 
Непрочитано 21.10.2009, 15:38
#4
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Цитата:
Сообщение от Bart Посмотреть сообщение
Спасибо.
_SelectedIndexChanged сработал как надо. А ведь пробовал что-то подобное вчера, но как-то не вышло или не додумал. Пол дня вчера на это убил, в основном на поиски информации и листание книжек.

#youtube_inline_div { position: absolute; display: none; border: 1px solid #999; background: #ececec; padding: 1px; text-align: center; z-index:99}

Рад помочь
Успехов

~'J'~
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 29.10.2009, 11:55
#5
Bart


 
Регистрация: 23.07.2009
Сообщений: 35


Задам еще один вопрос, который к автокаду не очень относится, но все же.
Все тот же VB.Net.
Идея следующая: имеется таблица excel с данными для построения (спецификация изделия, состав компонентов-кол и т.д.), нужно взять эту таблицу, сравнить с базой access (например), где находится список всех возможных элементов и путей к файлам и названиям блоков для отрисовки, сделать выборку, присвоить переменные, а дальше уже идет отрисовка в акаде?
Как это сделать? Где копать? У меня вот только теория как это должно делаться, а примеров конкретного кода нет.

Иными словами: у нас есть исходные данные в excel и необходимо по этим исходным данным сделать отрисовку. Т.е. нажал кнопку и программа все нарисовала. Я решил, что описанный мною метод как раз то, что нужно. Но возможны варианты.

#youtube_inline_div { position: absolute; display: none; border: 1px solid #999; background: #ececec; padding: 1px; text-align: center; z-index:99}
Bart вне форума  
 
Непрочитано 29.10.2009, 12:32
#6
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


А что тут копать-то, создаешь формат, делаешь БД и простую програмку которая через odbc например или читает БД и по нему рисует что нужно - поищи я для кого-то что-то похожее уже рисовал там была задача оформить для веб, но суть такая-же - есть блоки, делаеться sql запрос и по установленному формату эти блоки расставляються (там по моему координаты и угол поворота были). Тут вся работа в грамотном составлении спецификации, а код можно готовыми кусками "нарвать", хоть самому написать (не очень много-то и получиться).
з.ы. прадва код на лиспе был.
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Непрочитано 29.10.2009, 23:41
#7
чеснок


 
Регистрация: 26.10.2009
Сообщений: 55


Цитата:
Сообщение от Bart Посмотреть сообщение
Задам еще один вопрос, который к автокаду не очень относится, но все же.
Все тот же VB.Net.
Идея следующая: имеется таблица excel с данными для построения (спецификация изделия, состав компонентов-кол и т.д.), нужно взять эту таблицу, сравнить с базой access (например), где находится список всех возможных элементов и путей к файлам и названиям блоков для отрисовки, сделать выборку, присвоить переменные, а дальше уже идет отрисовка в акаде?
Как это сделать? Где копать? У меня вот только теория как это должно делаться, а примеров конкретного кода нет.
Ни слабый вопросец. Как пальцем в небо тыкать.

Маленько могу ответить, как ламер ламеру )

Доступ то к экселу понятен? мне не очень правда, но щас придумаю:
- подключаешь ссылку на компоненты
- и работаешь с ними

Access:
1. Создание базы, проще всего в самом Accesse
2. Доступ к базе. проще всего ADO.NET
- открываешь соединение к файлу базы
- и работаешь с ним

По полученным и обработанным данным выполняешь построения в Автокаде.
чеснок вне форума  
 
Автор темы   Непрочитано 30.10.2009, 10:40
#8
Bart


 
Регистрация: 23.07.2009
Сообщений: 35


На самом деле вообще не очень понятно как все это реализовывать. Я так и не придумал до конца.
Суть такова, что есть данные в экселе (тип и количество элементов) и вот по этим данным надо сделать комплект чертежей автоматом.
Вот как правильно это реализовать я пока не знаю. Коллеги говорят, что методом перебора элементов. Типа, нашли один элемент, значит делаем так, а если не нашли, то делаем иначе. И вот так перебирать кучу элементов.
Конечно так работать будет, но мне что-то не нравится.

#youtube_inline_div { position: absolute; display: none; border: 1px solid #999; background: #ececec; padding: 1px; text-align: center; z-index:99}
Bart вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > .NET > Combobox и case в VB.Net. Нужна помощь.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна ваша помощь в GeoniCS castboy ПО от CSoft 12 07.08.2012 11:29
Устойчивость мет. балки Net Конструкции зданий и сооружений 104 26.09.2011 20:14
Нужна помощь с расчетами площадок(детская,спортивная,хозяйств.,стоянка для хранения автотранспорта)) Ягода Поиск литературы, чертежей, моделей и прочих материалов 0 08.05.2008 19:37
Mesh изменение параметров m и n. Нужна помощь... ss20_sasha AutoCAD 8 27.09.2005 17:23
Нужна помощь Николай1 Прочее. Архитектура и строительство 2 27.02.2004 12:47