Question

我已经完成了很多程序，大提交方式。我不能让这部分工作。这是应该做的。玩家应该能够在棋盘上移动，降落在属性上，并且正确的属性图像在PictureBox中加载（在单独的表单上）。

这将通过使用名为WhereAmI()和DoneMoving()的子程序来完成。在创建这些之前，我们需要在类的开头创建一个变量（所有属性构造函数都在其中）。声明以下内容：

Public TempProp as PropertyItem

请注意，New一词被遗漏了。这将使它不会调用构造函数。 TempProp将成为一个持有变量，它将引用我们分配的任何属性。这意味着，一旦我们使用适当的属性引用加载TempProp，我们就可以与TempProp进行交互，并且IT将与我们正在参考的财产进行交互！这对我们非常有用。除了WhereAmI过程之外，我们所有的代码都可以引用TempProp（只要我们首先通过WhereAmI函数加载了相应的属性引用。稍后我们将创建另一个名为WhatIsIt的过程，它将根据名称而不是位置加载TempProp。）

WhereAmI(pl as integer)  
    Select Case pl 
        Case 1:
            TempProp = MediterraneanAve
        Case 2:
            TempProp = Nothing
        Case 3: 
            TempProp = BalticAve
        etc.

DoneMoving():＆＃39;这应该在你的运动循环结束时调用。

WhereAmI(playerLocation)
    PropertyForm.ShowDialog()

在PropertyForm中，创建一个PictureBox。在表单的load事件中，设置

PictureBox.image = Form1.TempProp.GetImage()

这应该将相应的属性图像加载到PictureBox中。有关示例，请参阅参考资料部分

这是我的代码。

Case 0
TempProp = Go
Case1 :
TempProp = Mediteranean av
Case2: 
tempProp = Nothing
Case 3 
TempProp = Baltic
Case 4
TempProp = Nothing
Case 5 
TempProp = ReadingRailroad
Case 6
TempProp = OrientalAve
Case 7
TempProp = Nothing
Case 8 
TempProp = VermontAve
Case 9 
TempProp = ConnecticutAve
Case 10
TempProp = Jail
Case 11
TempProp = StCharlesPlace
Case 12
TempProp = Nothing
Case 13
TempProp = StatesAve
Case 14
TempProp = VirginiaAve
Case 15
TempProp = PennsylvaniaRR
Case 16
 TempProp = StJamesPlace
Case 17
TempProp = Nothing
Case 18
TempProp = TennesseAve
Case 19
TempProp = NewYorkAve
Case 20
TempProp = FreePark
Case 21
TempProp = KentuckyAve
Case 22
TempProp = Nothing
Case 23
TempProp = IndianaAve
Case 24
TempProp = IllinoisAve
Case 25
TempProp = BORR
Case 26
TempProp = AtlanticAve
Case 27
TempProp = VentnorAve
Case 28
TempProp = Nothing
Case 29
TempProp = MarvinGardens
Case 30 
TempProp = gotojail
Case 31 
TempProp = PacificAve
Case 32
TempProp = NorthCarolinaAve
Case 33
TempProp = Nothing
Case 34 
TempProp = PennsylvaniaAve
Case 35
TempProp = ShortLineRR
Case 36
TempProp = Nothing
Case 37
TempProp = ParkPlace
Case 38
TempProp = Nothing
Case 39 
TempProp = Boardwalk


DoneMoving()
WhereamI (playerlocation)
propertyForm.showDialog()
picture box

Answer 1

我没有把我的球员调暗，我发现了。

有哪些类似于在visual basic 2010中建立垄断？

1 个答案: