如何将组合框值与函数一起使用并选择大小写?
Posted
技术标签:
【中文标题】如何将组合框值与函数一起使用并选择大小写?【英文标题】:How do I use combobox values with a function and select case? 【发布时间】:2014-02-19 05:07:43 【问题描述】:我正在编写一个程序,让用户选择他们的星座和其他人的星座。一旦进入,我想使用标志来衡量它们的兼容性,其结果分为 3 类。我的程序可以让用户选择两个标志,程序可以将它们吐出来告诉用户他们选择了什么(我不需要这个消息框,我只是为了检查我的代码是在职的)。我遇到问题的部分是制作“兼容性”功能并使用选择案例,我不知道是否需要声明新变量,或者如果我将它们公开它们是否会起作用。显然我的代码不起作用,或者我不会寻求帮助。对于特定情况,我目前只有一个白羊座,但需要对所有 12 个星座都进行。
这是新代码:
公开课表1
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
结束类
【问题讨论】:
【参考方案1】:下午 3:10 更新 抱歉回复晚了,需要参加一系列会议...
我尝试运行您的整个代码,复制粘贴并运行,它运行良好......
我试过了:
我的星座 = 白羊座 你的星座 = 处女座
结果:“你不兼容”
我的问题是,当您单击 BtnBegin 时,它何时会再次可见?
lblMySign.Visible = True
lblYourSign.Visible = True
cbMySign.Visible = True
cbYourSign.Visible = True
btnBegin.Visible = False '--- here it is?
我认为您需要在单击 cbMySign 或 cbYourSign 时重置此设置
-Strider(雅虎!答案)
【讨论】:
以上是关于如何将组合框值与函数一起使用并选择大小写?的主要内容,如果未能解决你的问题,请参考以下文章