發問區
會員登入
新使用者？立即註冊
.
服務首頁|服務說明|Yahoo!奇摩.
知識+ 首頁
知識分類
電腦網路
科學常識
醫療保健
煩惱心事
生活資訊
手機通訊
休閒嗜好
視聽娛樂
運動體育
社會人文
商業金融
教育學習 .如何做
煩惱
主題知識
.我要發問 發表 我要發問 ..熱門： 年菜食譜 過年吃什麼 犯太歲 平溪天燈節 幸運星座 主題 金蛇報喜，大過好年 用手機上知識+ .知識搜尋 ....知識+ 首頁> 電腦網路> 程式設計> VisualBasic 加入追蹤 轉寄朋友 友善列印 .知識問題|
VB滑鼠累加次數. 發問者： ☆﹌御緋 ( 初學者 5 級)
發問時間： 2008-10-28 23:29:42
解決時間： 2011-01-14 13:37:36
解答贈點： 5 ( 共有 0 人贊助 )
回答： 2 評論： 0 意見： 3
[ 檢舉 ]
網友正面評價
0%
.共有 0 人評價.Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.Text = 1 '下拉式選單變成 1
End Sub
End Class
以上是滑鼠左鍵按一下~"~...
我想問的是滑鼠左鍵按兩下的時候
ComboBox1.Text = 2 '下拉式選單變成 2
當我按了第3下的時候
ComboBox1.Text = 3 '下拉式選單變成 3
有哪位大大可以幫我解答嗎=ˇ=" 2008-10-28 23:39:47 補充
剛剛試過ComboBox不怎麼好用
能使用Label試試看嗎？？
2008-10-28 23:51:44 補充
順便問問ListBox中的數值要用什麼
我用ListBox1.text 不過都不會改變阿
例如：
If ListBox1.text = 1 Then
Label1.Text = 10
往下選了1之後...不會讓Label1變成10阿= ="
最佳解答發問者自選.
.. 回答者： Litfal ( 初學者 2 級 )
回答時間： 2008-10-29 01:00:47
[ 檢舉 ] .先做個Label1, 並拉出個Timer1,
Timer1設定Interval=1000 (1秒), Enabled = False
用來歸零的，當然你也可以不歸零，看你程式用途
宣告一個模組級變數
Dim Click_Times As Integer
加上程式碼
Private Sub Label1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick
Click_Times += 1 '記數多一
sender.Text = Click_Times '顯示點擊的次數
Timer1.Start() '1秒後歸零
End Sub
Private Sub Label1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDoubleClick
Click_Times += 1
sender.Text = Click_Times
End Sub
'由於連點兩下滑鼠觸發的是MouseDoubleClick而不會觸發MouseClick，所以MouseDoubleClick裡面也要加程式碼
'Timer的程式碼
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Click_Times = 0 '歸零
Timer1.Stop() '停止歸零器
End Sub
ListBox常用的選項屬性是SelectedIndex (編號)或SelectedItem (顯示的文字)，實際上你自己試試就知道了
參考資料
小腦袋 相關詞：
ByVal sender As System.Object, ByVal e As System.EventArgs,Public Class Form1 Private Sub Button1_Click,滑鼠,程式碼,累加次數,Handles,Dim,False,Enabled,變成[ 快速連結 ] 其它回答( 1 ) | 意見( 3 ) | 評論( 0 )
.發問者評價 謝謝 .發表你的評價
你的評價 發表評價： 正面 普通 負面
評價內容： 發表 取消
.
加入追蹤 轉寄朋友 友善列印 .馬上按讚 加入 Yahoo! 奇摩 知識+ 粉絲團
•免費索取商英光碟+小書
•多益700分線上測驗題庫
•立即免費測試你的多益等級
•英文email超實用金句！
•測你在旁人眼中的英文力？
•多益700分線上測驗題庫
相關問答
[ VisualBasic ]有關VB 鍵盤指令的問題
.
[ VisualBasic ]VB計時語法問題
.
[ VisualBasic ]VB6溫度轉換改成VB2008
.
[ VisualBasic ]VB2005工具箱裡面的容器TabControl問題
.
[ VisualBasic ]VB 2008版 身分證的問題
.
[ VisualBasic ]VB高手請進
.
更多
.其他回答(1)
意見(3)
相關評論(0)
.
001
回答者： 知識+管理員 ( 初學者 4 級 )
回答時間： 2008-10-29 20:33:51
[ 檢舉 ]
..請設置１個Label，名為Label1
以下為程式碼：
－－－－－－－－－－－－－－－－－－－－－－－－－－－
Public Class Form1
Sub mouse_click() '當click事件觸發時，執行的副程式
Label1.Text += 1
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'滑鼠未點擊，使Label1.Text初值為0
Label1.Text = 0
End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
'Form1_Click 時呼叫副程式：mouse_click()
Call mouse_click()
End Sub
Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
'Form1_DoubleClick時呼叫副程式：mouse_click()
Call mouse_click()
End Sub
Private Sub Label1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.Click
'Label1_Click時呼叫副程式: mouse_click()
Call mouse_click()
End Sub
Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick
'Label1_DoubleClick 時呼叫副程式: mouse_click()
Call mouse_click()
End Sub
End Class
－－－－－－－－－－－－－－－－－－－－－－－－－－－ 1
001 意見者： andy ( 初學者 4 級 )
發表時間： 2008-10-30 09:23:52
[ 檢舉 ] ..我怎麼覺得樓上的大大們
都把問題複雜化了呢...
你要的是不是 滑鼠點一下 Label 自動+1
在按第二下 再+1？
如果是我再來發表我的方法0.0 002 意見者： 知識+管理員 ( 初學者 4 級 )
發表時間： 2008-10-30 19:56:26
[ 檢舉 ] ..難道andy大大有更好的方法？
我認為form、label在單擊、雙擊時都必須要使label加1
所以這樣寫應該就可以了吧？ 003 意見者： ☆﹌御緋 ( 初學者 5 級 )
發表時間： 2008-12-04 14:32:22
[ 檢舉 ] ..andy大=ˇ="好像只有你懂我在說什麼...
麻煩您發表好嗎 1 發表意見發表意見字數已達上限，要改成發表評論嗎？. 發表 取消 .
目前沒有資料 我要評論 註冊
會員登入 .公告： 知識團員轉粉絲全數完成 .
HOT! 拍賣 | MacBook 熱門3C 無線網卡 .
.刊登贊助網站•全民免費學電腦 8大熱門職訓課
www.pccenter.com.tw
優惠僅到月底！學承職訓電腦課程免費學，快速提升職場競爭力，立即搶先申請！
www.pccenter.com.tw
•IT資訊人才聯合徵才培訓申請中
www.pcschool.com.tw
響應政府資訊人才培訓計畫，APP職缺大增，求職必備電腦證照，快線上申請培訓。
www.pcschool.com.tw
•學電腦不用錢！政府補助至高全額
www.pcschool.com.tw
真正的政府補助課程，2月份電腦技能培訓班，正式開放預約報名，名額有限請把握！
www.pcschool.com.tw
•免費線上電腦課程 再送職涯分析
www.lccnet.com.tw
搶先索取免費5000堂線上電腦課程，聯成再提供熱門廠商媒合，一次找到好工作！
www.lccnet.com.tw
•GOMAJI軟體進修團購超值價
www.gomaji.com
學技能也要省！揪團學時下超夯電腦課程，GOMAJI要你省上加省！
www.gomaji.com
•職訓課程學電腦設計
www.cadtc.com.tw
無基礎只需興趣從無到有學會3D動畫作品，二個月密集課程，推薦進入職場成功就業
www.cadtc.com.tw.最新VisualBasic
發問中
已解決
.命令提示字元的指令碼有哪些
excel vba 插入圖表及複製貼上問題
更多
更多
精選關鍵字
..執行檔 表單 呼叫 程式碼 合併 檔案 VB6 運算式 輸出 資料 統計 欄位 驗證 物件 VB.net 資料庫 計數器 陣列 原始檔 迴圈 元件 VBA 按鍵精靈 VB 巨集 程式 副程式 連結 OLE
.知識搜尋 ...雅虎資訊 版權所有 (c) 2013 Yahoo! Taiwan. All Rights Reserved. 「本服務設有管理員」
服務條款隱私權政策..知識+ 之問答內容是由參與Yahoo!奇摩知識+ 之網友提供，僅供參考，Yahoo!奇摩不保證其正確性。
...
.
|
phibrainno14 發表在 痞客邦 留言(0) 人氣()
留言列表
留言列表
