- 帖子
- 75
- 主題
- 6
- 精華
- 0
- 積分
- 83
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣
- 註冊時間
- 2014-9-22
- 最後登錄
- 2015-3-7
 
|
23#
發表於 2014-10-7 23:47
| 只看該作者
使用【文字方塊】也可以達到此效果
寫入以下程式碼即可- Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- If TextBox1.Text = "V" Then
- TextBox1.Text = ""
- Else
- TextBox1.Text = "V"
- End If
- End Sub
|
|
