想用VB寫動物管理員遊戲

不知各位大大對此遊戲是否了解

基本上就是畫面會出現幾個圖像

滑鼠點一個圖再點第二個圖
則此兩圖會互換
但是只有點該圖旁上下左右的圖才會有反應

互換達到特定條件則可被消除


我目前是想先從前面部分下手
也就是互換的部分

我想應該是用mouseclick的事件
可是我不知該怎麼用

以下是我的簡易程式碼
...

瀏覽完整內容，請先 註冊 或 登入會員

Aeroth

你的意思是說 MyLabel 點一下變成 LyLabeM嗎？

1. Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
   
2.         With Me.Label1
   
3.             .Text = .Text.Substring(.Text.Length - 1, 1) & .Text.Substring(1, .Text.Length - 2) & .Text.Substring(0, 1)
   
4.         End With
   
5.     End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

對不起樓上的大大....
我程度太差....
程式碼看不太懂?!#


我後來想把label改成button
不知方不方便


交換方式就是
假設有◆和★
◆裡面內容是apple
★裡面內容是cat

依序點了◆和★則兩個內容換交換
變成
◆裡面內容是cat
★裡面內容是apple

麻煩幫我解答一下
謝謝~^^

Aeroth

你的需求很簡單，如果有上過程式設計的課程應該會知道 SWAP 這個名詞，就是把兩個變數或陣列裡的元素值互換。在兩個Button的Click event寫相應的程式碼即可，例如：

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.     Dim tmp As String = Button1.Text
   
3.     Button1.Text = Button2.Text
   
4.     Button2.Text = tmp
   
5. End Sub

複製代碼

在Button2的Click event寫的程式碼和Button1一樣，唯一的差別就是把Button1改成Button2，把Button2改成Button1。
如果看不懂別人的程式碼就用Debug mode + Break points(中斷) 去trace一下code就可以知道每一行code在做什麼事情了，就跟你在debug自己的程式是一樣的，這是基本功，想寫好程式Debug功力一定要很好。...

瀏覽完整內容，請先 註冊 或 登入會員

回復

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Aeroth

謝謝大大~
不好意思我這麼晚才回
可以互換了
看了程式碼才覺得原來這麼容易

每次寫程式都覺得很頭大...
有想法
可是都不知怎麼下手= =

謝謝囉~
...

瀏覽完整內容，請先 註冊 或 登入會員

接續剛剛交換的問題....
是可以互換了><

可是我是要等到點到★
◆才會跟★互換

不是一點到◆就換內容

可以麻煩教我一下嗎??

謝謝~

Aeroth

改成這樣吧，把兩個Button的Click事件處理常式寫成同一個：

1. Private Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
   
2.     If TryCast(sender, Button).Text = "★" Then
   
3.         Dim tmp As String = Button1.Text
   
4.         Button1.Text = Button2.Text
   
5.        Button2.Text = tmp
   
6.     End If
   
7. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

回復

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Aeroth

我不太了解If TryCast(sender, Button).Text = "★" Then的意思
我把之前教的用這個取代掉
可是跑不出來

Aeroth

注意這一行已經改了，一個事件處理常式Handle兩個Button的Click Event

1. Private Sub Buttons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click

複製代碼

你先把原本Button1和Button2的Click事件全部刪掉，複製上面完整的Buttons_Click函式這樣就行了