作者zuoai4321 (接近神的男人)
看板Visual_Basic
标题[.NET] 把Button写成checkbox功能
时间Thu May 12 11:43:43 2011
在写一个画图的程式
想把button写成类似checkbox的功能
Ex 按第一下按钮 显示一个圆 再按一次同一个按钮清这图片
以下是我的写法
Dim s,w As Integer
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Dim g As Graphics = PictureBox1.CreateGraphics
If s / 2 = 0 Then
For i As Integer = 0 To ptArray.Count - 1
Dim tmpPT As Point = CType(ptArray(i), Point)
g.DrawEllipse(Pens.Green, tmpPT.X - w \ 2, tmpPT.Y - w \ 2,
w, w) '画圆
Next i
Else
g.Clear(Me.BackColor)
For i As Integer = 0 To ptArray.Count - 1
Dim tmpPT As Point = CType(ptArray(i), Point)
g.FillRectangle(Brushes.Red, tmpPT.X, tmpPT.Y, 4, 4) '画点
Next i
End If
s = s + 1
End sub
以上是我在picture上用滑鼠点击就会画出一个点，此点座标存於阵列中
Button3 点击时 会以点为圆心画圆
再次点击Button3时会清除画面把点过的点再画出来=清除圆
预计出现的结果 是按一次画圆 再次按下圆清除
但按下第三次後丧失任何攻能...应该再次出现的阿
--
◢██◣▎ █▇▆▅▄ ◣ ◢ ◢█◣◢█◣ ┐│ ╔║║
▊◣ ◢▎ ▉ ◢█◣ ◢█◣█ █◢█◣███████▆◣ │┤ ║║║
◥██◤ ▊ ▋ █ ▋▄◤◥█◤▌▄◤◥████◤ ▌ ▋ 人│ ║╠╣
◥█◣◢◣ ▋ ◥█▋▌◥▄▃ █ ◥▅▂ ◥██◤ ▌ ▊ │ ║║║
▅▅▍ ◥◤ ╰─ ╚║║
—— The Red Captain Gee~Gee~Gee~Gee Tae~Tae~Tae~Tae~Tae~yeon~by jimmy508
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.230.83.74
1F：→ jerry119: s / 2 = 0 改成 s mod 2 =0 05/12 12:39
2F：推 sueadolph:嗯 改成MOD就好 自己逐步执行的话，应该很容易就看出来 05/12 13:10
3F：→ zuoai4321:那为什麽用除法不行呢> <不就是奇偶数..怎麽第三次後.. 05/12 13:19
4F：→ hulapig:如果 Dim s=boolean，然後 s=not s 不知结果是否相等？ 05/12 13:21
5F：→ zuoai4321:阿..原来是我自己想错QQ 3以上的商..就不可能=0 05/12 14:00
6F：→ MOONRAKER:这个错误实在太有娱乐性了 XD 05/12 14:52