[.NET] 很詭異的問題
不好意思
前輩們，我上一篇的記憶體搜尋先暫時放著
我碰到一個比較怪異的問題
如果把button1_click 那行
放在 form1_load 下
用中斷點去看 明明有跑
但是畫面上卻沒有顯示
如果直接按下按鈕 卻可以很正常的跑下去
什麼情況之下跑會導致這樣呢？
還有這程式 是我從youtube 的教學程式一個一個key
他的原始版本是 vb6 我自己轉成.net 版
程式大略如下
Dim x As Integer
Dim y As Integer
Dim tile(20, 20) ' 0 = open , 1 = wall , 2 = 小點 , 3 = 大力丸
Dim tilea(20, 20)
Dim tileb(20, 20)
Dim a, b
Dim d ' 1 = 上 , 2 = 下 , 3 =左 4= 右
Dim d2
Dim score
Dim selecteda
Dim selectedb
Dim dying ' 0 = 活 , # = 死
Dim starting ' 紀錄鬼移動
Dim super ' 紀錄正常模式 與 吃下大力丸情況
Sub drawscreen()
'繪製畫面
For z = 1 To 20
For w = 1 To 20
'tile(z, w) = 1
' tilea(z, w) = 1
'tileb(z, w) = 0
Call drawtile(z, w)
Next w
Next z
End Sub
Sub drawtile(ByVal z, ByVal w)
Dim g As Graphics = PictureBox1.CreateGraphics
g.DrawImage(PictureBox2.Image, New Rectangle((z - 1) * 30, (w - 1) *
30, 30, 30), New Rectangle(tilea(z, w) * 30, tileb(z, w) * 30, 30, 30),
GraphicsUnit.Pixel)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'Dim g As Graphics = Me.PictureBox1.CreateGraphics
'g.DrawImage(PictureBox2.Image, New Rectangle(0, 0, 30, 30), New
Rectangle(0, 0, 30, 30), GraphicsUnit.Pixel)
For z = 1 To 20
For w = 1 To 20
tile(z, w) = 1
tilea(z, w) = 1
tileb(z, w) = 0
'Dim g As Graphics = PictureBox1.CreateGraphics
'g.DrawImage(PictureBox2.Image, New Rectangle((z - 1) * 30,
(w - 1) * 60, 30, 60), New Rectangle(tilea(z, w) * 30, tileb(z, w) * 60, 30,
60), GraphicsUnit.Pixel)
Next w
Next z
drawscreen()
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.36.32.130
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章