作者changjeimin (小张)
看板Visual_Basic
标题[.NET] 很诡异的问题
时间Tue Jul 13 21:57:34 2010
不好意思
前辈们，我上一篇的记忆体搜寻先暂时放着
我碰到一个比较怪异的问题
如果把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