Как использовать значения combobox с помощью функции и выбрать случай?

Я пишу программу, которая заставит пользователя выбрать свой знак зодиака и знак другого человека. Как только это произойдет, я хочу использовать знаки для оценки их совместимости, результат которых относится к 3 категориям. У меня есть программа до такой степени, что пользователь может выбрать оба знака, и программа может выслать их обратно, чтобы сообщить пользователю, что они выбрали (мне не нужно это окно сообщения, я просто делал это, чтобы проверить, что мой код был за работой). В той части, с которой я столкнулся, возникает проблема «совместимости», а также с использованием случая выбора, я не знаю, нужно ли объявлять новые переменные или если они будут работать, если я сделаю их общедоступными. Очевидно, мой код не работает, или я не прошу помощи. Для случая выбора у меня просто есть один для Овна, но это нужно сделать для всех 12 знаков.Как использовать значения combobox с помощью функции и выбрать случай?

Вот новый код:

Public Class Form1

Public Sub btnBegin_Click(sender As Object, e As EventArgs) Handles btnBegin.Click 
    lblMySign.Visible = True 
    lblYourSign.Visible = True 
    cbMySign.Visible = True 
    cbYourSign.Visible = True 
    btnBegin.Visible = False 

    Dim MySign As String 
    Dim YourSign As String 

    MySign = cbMySign.Text 
    YourSign = cbYourSign.Text 

    Call Compatibility(Me.cbMySign.Text, Me.cbYourSign.Text) 
End Sub 

Public Sub cbMySign_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbMySign.SelectedIndexChanged 

End Sub 

Public Sub cbYourSign_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbYourSign.SelectedIndexChanged 
    'Dim MySign As String 
    'Dim YourSign As String 

    'MySign = cbMySign.Text 
    'YourSign = cbYourSign.Text 


End Sub 
Function Compatibility(cbMySign As String, cbYourSign As String) As String 
    Dim strCompat As String 

    Select Case cbMySign 
     Case "Aries" 
      Select Case cbYourSign 
       Case "Taurus", "Cancer", "Virgo", "Pisces" 
        strCompat = "NC" 
       Case "Gemini", "Libra", "Scorpio", "Capricorn", "Aquarius" 
        strCompat = "N" 
       Case "Aries", "Leo", "Sagittarius" 
        strCompat = "C" 
      End Select 
    End Select 

    If strCompat = "NC" Then 
     MsgBox("You're not compatible") 
    ElseIf strCompat = "N" Then 
     MsgBox("You're neutral") 
    Else 
     MsgBox("You're compatible") 
    End If 
End Function

End Class

источник

2014-02-19 user3326479

Обновлено 3:10 вечера К сожалению о конце ответа, необходимо принять участие в серии встреч. ..

Я попытался запустить весь код, скопировать его и запустить, он отлично работает ...

Я пробовал:

Мой знак = Овен Ваш Знак = Дева

Результат: «Вы не совместимы»

Мой вопрос, когда вы нажали BtnBegin, когда он станет видимым еще раз?

lblMySign.Visible = True 
lblYourSign.Visible = True 
cbMySign.Visible = True 
cbYourSign.Visible = True 
btnBegin.Visible = False '--- here it is?

Я думаю, что вам нужно сбросить этот после нажатия cbMySign или cbYourSign

-Strider (Yahoo! Answers)

источник

2014-02-19 07:20:19 user3326896

Как использовать значения combobox с помощью функции и выбрать случай?

ответ

Смежные вопросы