Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Гаряка Асмик Статус: Специалист Рейтинг: 3636 ∙ повысить рейтинг »

Vasiliy83 Статус: Бакалавр Рейтинг: 1673 ∙ повысить рейтинг »

Megaloman Статус: Профессионал Рейтинг: 1204 ∙ повысить рейтинг »

Вопрос № 178332: Уважаемые эксперты подскажите в следующем: имеется форма, на ней в строку слева направо размещены два флажка текстовое поле и кнопка. Действие кнопки в зависимости от введённого в поле слова. Как сделать, чтобы в зависимости от ситуации на форме п...

Уважаемые эксперты подскажите в следующем:
имеется форма, на ней в строку слева направо размещены два флажка текстовое поле и кнопка. Действие кнопки в зависимости от введённого в поле слова. Как сделать, чтобы в зависимости от ситуации на форме появилось столько указанных строк с элементами управления сколько нужно. Спасибо.

Отправлен: 11.05.2010, 08:46
Вопрос задал: Ципихович Эндрю, Посетитель
Всего ответов: 3
Страница вопроса »

Приложение:
Module1.bas Attribute VB_Name = "Module1" Option Explicit \'нумерация элементов массивов с 1 Option Base 1 \'это сам список для выбора. его заполнение нужно делать в самом начале Public a(5) As String \'это дополнительные списки для работы программы \'это общий список, с которым будет работать программа. заполняется один раз. \'в массиве all_text текстовое наименование ( не меняется ) , в all_num выбор ( меняется программно ) : \'0-не выбран, 1-"купить", 2-"отложить" Public all_text() As String Public all_num() As Byte \'это список для меню выбора. заполняется номерами только тех элементов из all_text, у которых all_num=0 Public men_num() As Long \'это список для уже отобранных элементов меню. заполняется номерами только тех элементов из all_text, у которых all_num=1 Public sel_num() As Long \'это переменные, которые используются для промежуточных результатов Public i As Long Public i1 As Long Public i2 As Long Public s As String Public b As Byte \'текущее количество отобранных элементов из списка Public element As Long Public Sub main() i = 0 i1 = 0 s = "" b = 0 element = 0 \'заполняем начальные данные массива. можно сделать другое заполнение из базы и т.п. a(1) = "золото" a(2) = "серебро" a(3) = "платина" a(4) = "фольфрам" a(5) = "титан" \'загружаем форму в память Load Form1 \'определяем размер временных массивов в программе по размеру основного массива ReDim all_text(UBound(a)) ReDim all_num(UBound(a)) \'заполняем данными главный массив For i = 1 To UBound(a) all_text(i) = a(i) all_num(i) = 0 Next \'вызываем процедуру заполнения меню Form1.menu \'открываем форму Form1.Show vbModal End End Sub Form1.frm VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 8010 ClientLeft = 60 ClientTop = 450 ClientWidth = 10770 LinkTopic = "Form1" ScaleHeight = 8010 ScaleWidth = 10770 Begin VB.CommandButton Command2 BackColor = &H00C0FFFF& Caption = "Исключить" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 375 Index = 0 Left = 9120 style="1" \'Graphical TabIndex = 10 Top = 600 Visible = 0 \'False Width = 1455 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "Выбрать" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 375 Index = 0 Left = 7200 style="1" \'Graphical TabIndex = 9 Top = 600 Visible = 0 \'False Width = 1335 End Begin VB.TextBox Text1 BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 375 Index = 0 Left = 3360 TabIndex = 8 Text = "Значение" Top = 600 Visible = 0 \'False Width = 3735 End Begin VB.CommandButton Comm3 BackColor = &H00C0E0FF& Caption = "Обновить список" Height = 495 Left = 7920 style="1" \'Graphical TabIndex = 6 Top = 240 Width = 975 End Begin VB.CommandButton Comm1 BackColor = &H00C0E0FF& Caption = "Выход" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 615 Left = 9360 style="1" \'Graphical TabIndex = 5 Top = 120 Width = 1095 End Begin VB.CommandButton Comm2 BackColor = &H00C0E0FF& Caption = "Выбрать" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 375 Left = 5760 style="1" \'Graphical TabIndex = 4 Top = 240 Width = 1575 End Begin VB.Frame Frame1 Height = 495 Left = 2760 TabIndex = 1 Top = 120 Width = 2775 Begin VB.OptionButton Option2 Caption = "отложить" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 255 Left = 1320 TabIndex = 3 Top = 200 Width = 1335 End Begin VB.OptionButton Option1 Caption = "купить" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 195 Left = 120 TabIndex = 2 Top = 200 Value = -1 \'True Width = 1095 End End Begin VB.ComboBox Combo1 Height = 315 Left = 120 TabIndex = 0 Top = 240 Width = 2535 End Begin VB.Label Label1 Backstyle="0" \'Transparent Caption = "Наименование" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 204 Weight = 700 Underline = 0 \'False Italic = 0 \'False Strikethrough = 0 \'False EndProperty Height = 375 Index = 0 Left = 120 TabIndex = 7 Top = 600 Visible = 0 \'False Width = 3135 End Begin VB.Line Line1 X1 = 120 X2 = 10560 Y1 = 960 Y2 = 960 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Comm1_Click() Form1.Hide End Sub Private Sub Comm2_Click() \'если выбран какой-то элемент из списка If Form1.Combo1.ListIndex >= 0 Then If Form1.Option1 = True Then \'если выбрано "купить" - отмечаем 1 \'подробнее с индексами \'если в меню не выбран ни один элемент, то Form1.Combo1.ListIndex=-1 \'иначе будет номер элемента. нумерация начинается с 0, поэтому прибавляем 1 чтобы перейти к нашему массиву \'в итоге (Form1.Combo1.ListIndex + 1) = номер выбранного элемента из списка \'men_num(Form1.Combo1.ListIndex + 1) = номер в основном массиве для выбранного элемента в списке all_num(men_num(Form1.Combo1.ListIndex + 1)) = 1 \'перерисовываем форму Form1.Paint Form1.menu Else \'если выбрано "отложить" - отмечаем 2 all_num(men_num(Form1.Combo1.ListIndex + 1)) = 2 \'перерисовываем форму Form1.Paint Form1.menu End If End If End Sub Public Sub Paint() \'процедура удаления/создания элементов управления на форме \'сначала нужно удалить все ранее созданные объекты \'можно было бы обойтись без удаления ранее созданных при добавлении нового, \'но это сильно усложнит задачу. \'к тому же нужно было бы проверять и удалять нижнюю часть объектов \'при исключении элементов из середины списка For i = 1 To element Unload Form1.Label1(i) Unload Form1.Text1(i) Unload Form1.Command1(i) Unload Form1.Command2(i) Next \'проверяем список элементов и определяем количество отобранных element = 0 For i = 1 To UBound(all_text) If all_num(i) = 1 Then element = element + 1 Next \'если есть отобранные, то создаем новые элементы управления \'и определяем массив для выбранных элементов If element > 0 Then \'изменяем размер массива отобранных элементов ReDim sel_num(element) \'это начальный номер отобранного элемента в массиве i1 = 0 \'идем по всему списку элементов For i = 1 To UBound(all_text) If all_num(i) = 1 Then \'если элемент отобран для выбора, то \'для каждого последующего отобранного элемента \'определяем его порядковый номер и номер из главного массива i1 = i1 + 1 sel_num(i1) = i \'создаем новые элементы управления на основе уже существующих образцов \'у самих образцов номер индекса элементов равен 0 Load Form1.Label1(i1) \'задаем смещение вниз для каждого последующего элемента управления Form1.Label1(i1).Top = 1080 + (i1 - 1) * 480 \'включаем отображение его на форме Form1.Label1(i1).Visible = True \'присваиваем значение элементу управления Form1.Label1(i1).Caption = all_text(i) \'то же самое с текстом и кнопками Load Form1.Text1(i1) Form1.Text1(i1).Top = 1080 + (i1 - 1) * 480 Form1.Text1(i1).Visible = True Form1.Text1(i1).Text = "0.00" Load Form1.Command1(i1) Form1.Command1(i1).Top = 1080 + (i1 - 1) * 480 Form1.Command1(i1).Visible = True Load Form1.Command2(i1) Form1.Command2(i1).Top = 1080 + (i1 - 1) * 480 Form1.Command2(i1).Visible = True End If Next End If End Sub Public Sub menu() \'процедура формирования меню i1 = 0 \'очищаем меню Form1.Combo1.Clear For i = 1 To UBound(all_text) If all_num(i) = 0 Then \'заполняем меню данными Form1.Combo1.AddItem all_text(i) i1 = i1 + 1 \'сохраняем в массиве порядковый номер из главного списка ReDim Preserve men_num(i1) \'присваиваем номер по порядку из основного массива для массива элементов меню men_num(i1) = i End If Next Form1.Combo1.Text = "" End Sub Private Sub Comm3_Click() For i = 1 To UBound(all_text) \'убираем выделение для всех элементов основного массива all_num(i) = 0 Next \'перерисовываем форму Form1.Paint Form1.menu End Sub Private Sub Command1_Click(Index As Integer) i = MsgBox("Здесь нужно написать обработку выбора элемента", vbInformation + vbOKOnly, "Выбрана работа с отобранным элементом из списка") End Sub Private Sub Command2_Click(Index As Integer) \'убираем выделение указанного элемента all_num(sel_num(Index)) = 0 \'перерисовываем форму Form1.Paint Form1.menu End Sub Прикрепленный файл: загрузить »

Ответ отправил: Филатов Евгений Геннадьевич, Студент
Ответ отправлен: 11.05.2010, 23:39
Номер ответа: 261345

Оценка ответа: 4

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 261345 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Ответ отправил: HookEst, Специалист
Ответ отправлен: 13.05.2010, 09:49
Номер ответа: 261363

Оценка ответа: 4

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 261363 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Option Explicit
Private cmdBArray() As clsBtnClick

Private Sub UserForm_Initialize()
   Const elemNum As Integer = 10 ' сколько создать элементов
   Const vHeight As Integer = 25 ' высота строки элементов
   Const fWidth As Integer = 909 ' ширина формы
   Const vBetween As Integer = 10 ' отступ между строками элементов
   Const v
 Top As Integer = 42    ' отступ сверху до первого элемента
   Const vBottom As Integer = 42 ' отступ от последнего элемента до нижнего края формы
   Dim i As Integer
   
   Me.Height = vTop + elemNum * (vHeight + vBetween) + vBottom ' отступы сверху-снизу-между элементами, плюс элементы
   Me.Width = fWidth
   For i = 1 To elemNum
      ' добаление первого флажка
      With Me.Controls.Add("Forms.OptionButton.1", CStr(i) & "1_OB")
         .Left
= 51.75
         .Top = vTop + (i - 1) * (vHeight + vBetween)
         .Height = vHeight
         .Width = 25
         .GroupName = "Gr" & i       ' группа используется для группировки флажков (может быть выставлен только один флаг из группы)
      End With
      ' добавление второго флажка
      With Me.Controls.Add("Forms.OptionButton.1", CStr(i) & "2_OB")
         .Left = 159
         .Top = vTop + (i - 1
 ) * (vHeight + vBetween)
         .Height = vHeight
         .Width = 25
         .GroupName = "Gr" & i       ' группа используется для группировки флажков (может быть выставлен только один флаг из группы)
      End With
      ' добавление combobox
      With Me.Controls.Add("Forms.ComboBox.1", CStr(i) & "_ComB")
         .Left = 222
         .Top = vTop + (i - 1) * (vHeight + vBetween)
         .Height = vHeight
         .Width = 210
 
       ' сюда еще нужно добавить строки добавления элементов
         '
         '
      End With
      ' добавление первого текстового поля
      With Me.Controls.Add("Forms.TextBox.1", CStr(i) & "1_TB")
         .Left = 444
         .Top = vTop + (i - 1) * (vHeight + vBetween)
         .Height = vHeight
         .Width = 54
      End With
      ' добавление второго текстового поля
      With Me.C
 ontrols.Add("Forms.TextBox.1", CStr(i) & "2_TB")
         .Left = 510
         .Top = vTop + (i - 1) * (vHeight + vBetween)
         .Height = vHeight
         .Width = 300
      End With
      ' добавление кнопки
      ReDim Preserve cmdBArray(i - 1)
      Set cmdBArray(i - 1) = New clsBtnClick
      Set cmdBArray(i - 1).cmdB = _
            Me.Controls.Add("Forms.CommandButton.1", CStr(i))
      With cmdBArray(i - 1).cmdB
         .Caption
= "Записать"
         .Left = 822
         .Top = vTop + (i - 1) * (vHeight + vBetween)
         .Height = vHeight
         .Width = 48
      End With
   Next i
End Sub

Public Sub btnProc(i As Integer)
   Dim myText As String
   If Me.Controls(CStr(i) & "1_OB").Value Then _
      MsgBox$ Me.Controls(CStr(i) & "1_TB").Text & Me.Controls(CStr(i) & "2_TB").Text & " назначен"
   If Me
 .Controls(CStr(i) & "2_OB").Value Then _
      MsgBox$ Me.Controls(CStr(i) & "1_TB").Text & Me.Controls(CStr(i) & &
quot;2_TB").Text & " заключен"
End Sub

Option Explicit

Public WithEvents cmdB As MSForms.CommandButton
Attribute cmdB.VB_VarHelpID = -1

Private Sub cmdB_Click()
   Call Экспертиза.btnProc(CInt(Val(cmdB.Name)))
' здесь идет привязка к определенной форме
End Sub

Ответ отправил: Измалков Эдуард Леонидович, 6-й класс
Ответ отправлен: 13.05.2010, 13:55
Номер ответа: 261369

Оценка ответа: 5

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это! Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 261369 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (30 руб.) Хорошо (40 руб.) Отлично (55 руб.) БЛЕСТЯЩЕ! (80 руб.)

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

Задать вопрос экспертам этой рассылки »