Function 如何在函数中使用组合框值并选择大小写?
我正在写一个程序,让用户选择他们的星座和另一个人的星座。一旦出现这种情况,我想用这些符号来衡量它们的兼容性,其结果分为三类。我有一个程序,用户可以选择这两个符号,程序可以把它们吐出来,告诉用户他们选择了什么(我不需要这个消息框,我只是检查我的代码是否正常工作)。我遇到的问题是使用“兼容性”函数和select case,我不知道我是否需要声明新变量,或者如果我将它们公开,它们是否会工作。显然,我的代码不起作用,否则我就不会寻求帮助。对于所选的情况,到目前为止,我只为白羊座准备了一个,但所有12个星座都需要这样做 以下是新代码: 公开课表格1Function 如何在函数中使用组合框值并选择大小写?,function,combobox,select-case,Function,Combobox,Select Case,我正在写一个程序,让用户选择他们的星座和另一个人的星座。一旦出现这种情况,我想用这些符号来衡量它们的兼容性,其结果分为三类。我有一个程序,用户可以选择这两个符号,程序可以把它们吐出来,告诉用户他们选择了什么(我不需要这个消息框,我只是检查我的代码是否正常工作)。我遇到的问题是使用“兼容性”函数和select case,我不知道我是否需要声明新变量,或者如果我将它们公开,它们是否会工作。显然,我的代码不起作用,否则我就不会寻求帮助。对于所选的情况,到目前为止,我只为白羊座准备了一个,但所有12个星
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
课程结束时下午3:10更新
很抱歉回复太晚,需要参加一系列会议
我试着运行你的全部代码,复制粘贴并运行,它工作得非常完美
我试过:
我的星座是白羊座
你的星座=处女座
结果:“你不兼容”
我的问题是,当你点击BtnBegin时,它什么时候会再次可见
lblMySign.Visible = True
lblYourSign.Visible = True
cbMySign.Visible = True
cbYourSign.Visible = True
btnBegin.Visible = False '--- here it is?
我想您需要在单击cbMySign或cbYourSign后重置此项
-漫游者(Yahoo!Answers)