返回列表下一主題上一主題發帖

滑鼠點選TextBox自動刪除內容

Jared

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-3-8 15:53 | 顯示全部帖子

滑鼠點選TextBox自動刪除內容

想請問大大
目前置作一份問卷
欄位很多
所以預設是將TextBox先寫上說明
當要填寫內容的時候
利用滑鼠點選TextBox就會自動刪除
但是如果問卷的TextBox太多
我寫在滑鼠事件的程式如下
有沒有辦法寫在一個事件就可以各別點欄位數發事件呢？
因為欄位如果有20個、30個....那程式內容會很可觀 (>_<)

Private Sub b13_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b13.Value = ""
End Sub
Private Sub b14_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b14.Value = ""
End Sub
Private Sub b15_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b15.Value = ""
End Sub
Private Sub b16_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b16.Value = ""
End Sub
Private Sub b17_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b17.Value = ""
End Sub
Private Sub b18_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b18.Value = ""
End Sub
Private Sub b20_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
hone.b20.Value = ""
End Sub