как вывести все оставшиеся комбинации на один msgBox

@Programmit · Регистрация: 05.02.2013

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "2" Then
ф_с_2.Show
 
If Combo2.Text = "Ф" And Combo1.Text = "С" And Combo3.Text = "1" Then
ф_с_1.Show

а остальные комбинации комбо должны на мсджБокс уходить

@Alex77755 · 15.03.2013, 16:45

Не по теме:

Весь код формы 61 строка!
Всего 2 If!
Причём 1 добавлен для контроля выбора.
Но, видимо, любит ТС Ifы и Elseifы

@Programmit · 15.03.2013, 17:06 **[ТС]**

Так и есть)) хть и монстр но всё же мой

@Alex77755 · 15.03.2013, 17:10

Ну тогда дорабатывай! принцип показали

@Alex77755 · 15.03.2013, 17:45

Раз подходит - что мешает использовать?

Вот вся форма:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Public start As Integer
 
Private Sub Command1_Click()
Dim Нужная_форма
Dim OneForm As Form
SKRYT
Нужная_форма = "F" & (Combo2.ListIndex + 2) * 100 + (Combo1.ListIndex + 2) * 10 + Combo3.ListIndex + 2
Debug.Print Нужная_форма
For Each OneForm In Forms
   If OneForm.Name = Нужная_форма Then
      OneForm.Show
      Exit Sub
   End If
Next
aytn.Show
End Sub
 
Private Sub Form_Load()
Load F311: Load F313: Load F312: Load F141: Load F211
Load F221: Load F229: Load F225: Load F236: Load F233
Load F232: Load F241: Load F248: Load F246: Load F411
Load F121: Load F131: Load F511: Load F231: Load F541
Load F531: Load F537: Load F534: Load F533
SKRYT
End Sub
Sub SKRYT()
Dim F As Form
For Each F In Forms
 F.Visible = False
Next
aглавная.Visible = True
End Sub

@Programmit · 15.03.2013, 18:01 **[ТС]**

слушай..я ваще не соображаю по твоему принципу...можешь подправить сам?
а лучше так как говорил апострофф

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
 
Private Sub Command1_Click()
If Combo2.Text = "Комедия" Then
  If Combo1.Text = "США" Then
    If Combo3.Text = "2009" Then
      комедии_сша_2009.Show 1
    ElseIf Combo3.Text = "2012" Then
      комедии_сша_2012.Show 1
    ElseIf Combo3.Text = "2013" Then
      комедии_сша_2013.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      КОМЕДИИ_сша.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "Германия" Then
    If Combo3.Text = "1997" Then
      комедия_германия_1997.Show 1
    ElseIf Combo3.Text = "2009" Then
      комедия_германия_2009.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      комедия_германия.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "Россия" Then
    If Combo3.Text = "1971" Then
      комедии_россия_1971.Show 1
    ElseIf Combo3.Text = "2010" Then
      комедии_россия_2010.Show 1
    ElseIf Combo3.Text = "" Or Combo3.Text = "год" Then
      комедии_россия.Show 1
    Else
      aytn.Show 1
    End If
  ElseIf Combo1.Text = "" Or Combo1.Text = "страна" Then
    комедии.Show 1
  Else
    aytn.Show 1
  End If
ElseIf Combo2.Text = "Боевик" Then
  'по аналогии с комедиями
ElseIf Combo2.Text = "Приключения" Then
  'по аналогии с комедиями
ElseIf Combo2.Text = "Фантастика" Then
  'по аналогии с комедиями
Else
  aytn.Show 1
End If
End Sub

исходник есть...если не трудно замути, скинь\

@Alex77755 · 15.03.2013, 18:06

Код формы выложил выше.
Скрин какие формы как назвать тоже!
В чём проблемы?

Добавлено через 2 минуты

можешь подправить сам?

Так уже поправил! и готовый код выложил!
Переименуй формы некоторые сам и все дела!

@gaw · 15.03.2013, 18:59

вот еще вариант
вся работа суть правильно обозвать файлы картинок и текстов
/мб косяки (устранимые

)/

@gaw · 15.03.2013, 19:46

заменить код Form1, тогда просмотр доступен из списка

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Dim Gnr$, Stt$, Yr$
Dim tr As Boolean
Private Sub Combo1_Click()
Gnr = Combo1.List(Combo1.ListIndex)
End Sub
Private Sub Combo2_Click()
Stt = Combo2.List(Combo2.ListIndex)
End Sub
Private Sub Combo3_Click()
Yr = Combo3.List(Combo3.ListIndex)
End Sub
 
Sub Srhc()
ReDim mass(0)
fnd = Gnr & "_" & Yr & "_" & Stt
FileName = Dir(App.Path & "\film\" & "*.JPG")
If FileName <> "" Then
  ind = 0
  List1.Clear
    Do While FileName <> ""
       List1.AddItem FileName
       dl = Len(Trim(fnd))
          If Mid(Trim(FileName), 1, dl) = Mid(Trim(fnd), 1, dl) Then
             ind = ind + 1
             Load Form2
             Load Form2.Image1(ind)
             Form2.Image1(ind).Visible = True
             Load Form2.Label1(ind)
             With Form2
                  .Label1(ind).Visible = True
                  .Image1(ind).Top = .Image1(ind - 1).Top + .Image1(ind).Height + 100
                  .Label1(ind).Top = .Image1(ind).Top
                  .Image1(ind) = LoadPicture(App.Path & "\film\" & FileName)
                  .Label1(ind) = Gnr & vbNewLine & Yr & vbNewLine & Stt & vbNewLine & Mid(Mid(Trim(FileName), 1, Len(Trim(FileName)) - 4), 2 + dl)
             End With
            ReDim Preserve mass(ind)
            mass(ind) = Mid(Trim(FileName), 1, Len(Trim(FileName)) - 4) & ".txt"
         End If
      FileName = Dir()
    Loop
End If
If tr = False Then
   If ind > 0 Then
      Form2.Show
    Else
      MsgBox "Not"
   End If
End If
tr = False
End Sub
 
Private Sub Command1_Click()
Call Srhc
End Sub
 
Private Sub Form_Load()
With Combo1
.AddItem "вестерн": .AddItem "боевик": .AddItem "комедия":
.ListIndex = 0
End With
With Combo2
.AddItem "Англия": .AddItem "Россия": .AddItem "Германия": .AddItem "США"
.ListIndex = 0
End With
With Combo3
For i = 1990 To 2010
.AddItem i
Next i
.ListIndex = 0
End With
tr = True
Call Srhc
 
End Sub
 
Private Sub List1_Click()
a = Split(List1.List(List1.ListIndex), "_")
Call Lst(Combo1, a(0))
Call Lst(Combo3, a(1))
Call Lst(Combo2, a(2))
Call Srhc
End Sub
Sub Lst(cmb As ComboBox, c)
For i = 0 To cmb.ListCount - 1
If cmb.List(i) = c Then
cmb.ListIndex = i
Exit For
End If
Next i
End Sub

@Апострофф · 15.03.2013, 20:28

Не по теме:

зряшное занятие говорить с тем, кто ни слушать, ни думать не хочет:(

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@Alex77755
	15.03.2013, 16:45
	Не по теме: Весь код формы 61 строка! Всего 2 If! Причём 1 добавлен для контроля выбора. Но, видимо, любит ТС Ifы и Elseifы 0

@Programmit 0 / 0 / 0 Регистрация: 05.02.2013 Сообщений: 23
	15.03.2013, 17:06 [ТС]
	Так и есть)) хть и монстр но всё же мой 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	15.03.2013, 17:10
	Ну тогда дорабатывай! принцип показали 0

@Апострофф
	15.03.2013, 20:28
	Сообщение было отмечено как решение Решение Не по теме: зряшное занятие говорить с тем, кто ни слушать, ни думать не хочет:( 4

Опции темы

как вывести все оставшиеся комбинации на один msgBox

Решение