使用VB GUI选择案例（For School）

Question

问候和称呼。我真的需要帮助上学。

这就是我正在处理的问题：

在选择一个选项之前无法进行选择。 在按下“选择位置”之前，不应显示“您选择了宿舍位置”文本。 我的任务是宿舍选择，允许用户选择一个或另一个。一旦通过btnselect进行选择，lblselected应该出现，那么窗口应该关闭。 请帮我。我不知道我在做什么。我是一名网页设计师，试图扩展我的知识。

Option Explicit On

Public Class frmhostelselection

    Private Sub btnlondon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlondon.Click

    End Sub

    Private Sub btndublin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndublin.Click

    End Sub

    Private Sub btnselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnselect.Click

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

    End Sub

    Private Sub lblselected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblselected.Click

    End Sub

    Private Sub lblmsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblmsg.Click

    End Sub
End Class

Answer 1

好的，我给你一个逻辑

首先是loadsub

你必须添加

londonlistbox.enabled = false
dublinlistbox.enabled = false

然后，添加到伦敦按钮

dublinlistbox.enabled = false
london.enabled = false

并添加与dublin按钮相反的

然后，选择位置

select case londonlistbox and dublinlistbox
case londonlistbox.enabled = true
label1.text = londonlistbox.selecteditems
case dublinlistbox.enabled = true
label1.text = dublinlistbox.selecteditems

这就是全部

Answer 2

您想要隐藏标签。在visual studio中，您需要选择标签，并将其可见值设置为false。或者您可以将其设置为对formload事件不可见。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblselected.visible = false

end sub

然后，您需要显示按钮点击事件。

lblselected.visible = true

从你的图片中我不确定按钮的作用。您似乎有2个实际位置可供选择（作为按钮）和另一个似乎充当选择按钮的按钮。

您还在问题中请求了一个选择案例命令。

因此，您可能希望在单击选择位置按钮时选择要加载的大小写，并且如果单击其他任一按钮，将设置一个值？

如上所述，你没有尝试自己尝试过，所以我不会写代码，但听起来你想要这个......

1. 在单击选择按钮之前，第二个标签应该是不可见的。

2. 您想要标识字符串或标识已按下内容的内容。该字符串应该是在公共路径下声明的全局变量。

3. 当按下任何按钮或按下其他按钮时，全局字符串应更改为伦敦或......都柏林。

4. 当您按下选择按钮时，它应该加载一个选择案例方法，该方法将检查伦敦或都柏林。

   Select case globalstring
   case "London"
   ' make label visible, maybe change lblselected text to reflect that London was pressed.
   case "Dublin"
   ' Make label visible, maybe change lblselected text to reflect that Dublin was pressed.
   case default
   ' Produce an error message saying that nothing was pressed.
   end Select
   

我猜你也想让图像显示在那些图片框中。使用初始图像来获取那个。

退出按钮就是me.close（）