как вывести все оставшиеся комбинации на один 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

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@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

Решение