用VB6 0如何將滑鼠向下滾動轉換成keyDown鍵事件

時間 2025-03-28 19:25:16

1樓:網友

看看這個,對你有幫助嗎?

2樓:網友

我給你的程式**改了一下,發到你的郵箱裡了,看看這次能不能用。

3樓:匿名使用者

滾動就是移動的意思吧。

vb keydown事件

4樓:網友

把我下邊這段**複製過去,然後替換掉你的全部**,就好了,我試過了。

private sub form_load()= true

end sub

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeya thenmsgbox "您按了" & chr(keycode)end if

end sub

5樓:網友

把form窗體(比如說form1)的keypreview屬性的值改為true就可以了。

6樓:網友

可以的啊 我試了 可以的 why你不行呢 ?你是怎麼做的啊?你這個**是keydown時間哦 不能用keypress 而且只能按a鍵才有反應的。

7樓:明蕊暨子愛

你可以用image來代替按鈕··我原來做俄羅斯方塊就是這麼做的··觸發image_click事件。

我試過設定form的接受按鈕屬性··可是沒什麼用··呼呼。

vb中keydown事件裡組合鍵該怎麼寫

8樓:網友

用+vbctrlmaster+vbkeyf1

就是ctrl+f1了。

更具體的我晚上回去看下,現在我在學校上電腦顆。。。

9樓:網友

簡單~case keycode = vbkeyf3 and shift = 2

shift = 1 代表shift

shift = 2 代表ctrl

shift = 4 代表alt

vb6.0中keypress事件使游標移到下乙個文字框。

10樓:帳號已登出

<>原理如下。1、建立乙個文字框陣列,和乙個全域性數值變數。

2、把窗體的鍵盤接收屬性開啟 = true

3、然後在鍵盤事件中編寫**,主要是判斷按下的按鍵是否是 回車。

4、之後在文字框的焦點事件中編寫**,根據選擇的文字框來賦值變數。

本人只建立了16個文字框陣列,你可根據原理,任意修改。

程式截圖和程式**如下。

option explicit '強制變數宣告。

dim t as integer '乙個數值型變數。

private sub form_keydown(keycode as integer, shift as integer) '鍵盤響應。

if keycode = val(13) then '如果按下了回車鍵。

t = t + 1 '變數加一。

if t > 15 then '如果超出控制項陣列個數。

msgbox "已經是最後乙個", 0, "提示資訊" '提示資訊。

t = 15 '變數值賦予控制項陣列最大值。

elsetext1(t).setfocus '否則把焦點轉移到下乙個。

end if

end if

end sub

private sub text1_gotfocus(index as integer) '文字框焦點事件。

t = index '記錄當前獲得焦點的控制項陣列 值。

end sub

11樓:網海1書生

private sub text1_keypress(index as integer, keyascii as integer)

if keyascii = 13 thenif index = then

msgbox "沒有下乙個文字框了!"

elsetext1(index + 1).setfocusend if

end if

end sub

js,滑鼠上下滑輪或者拉動滾動條觸發事件

12樓:網友

= function()

function()

其實你的問題直接使用判斷滾動條應該就可以了,但是如果一定要拖動滾動條才執行事件,我們可以通過獲取滑鼠位置來模擬。

var a = "html")[0];

function()

else}

13樓:扎俊

可通過onscroll事件觸發,通過scrolltop獲取滾動高度。

如:"body")[0].onscroll=function()}

14樓:傻大小子的家

哪位大神指點啊,以上方法都試了還是不行。

15樓:網友

換個思想,當網頁裡top移動段距離的時候觸發就可以了~

vb題目,求大神解答:keydown和keyup事件中引數shift代表轉換鍵,指出有幾個轉換鍵狀

16樓:

shift 的設定如下:

1 按下 shift

2 按下 ctrl

4 按下 alt

這幾個是mask值,因為有可能同時按下兩個或三個鍵,所以需要用掩碼分別檢測。

vb 滑鼠滾輪事件在哪?

17樓:學徒愛搞笑

這個**比較簡潔,修改也比較方便,**位置在鏈結裡網頁連結。

18樓:雪v寶

沒有這個事件,使用api解決。

vb滑鼠按下彈起事件

19樓:網友

用keyup 和keydown事件 最重要的一點 窗體的keypreview事件一定要設定為true

20樓:網友

設定按鍵事件的程式。

然後裡面弄個公共變數。

按一次翻轉一次狀態。

a=-a

基於vb60將接收到的下位機資料用影象的形式顯示

首先 獲得資料 一般用rs232 來傳送資料 接收就行了 畫圖簡單多了 picture1.line 一個語句就夠了 我就貼一段隨機產生1500個數字 畫圖的 給你參考一下吧 2個控制元件 picturebox command private sub form load picture1.cls pi...

VB6 0用什么最佳方法實現多達60多個條件的查詢

private declare function getasynckeystate lib user32 byval vkey as long as integer private sub text1 keydown index as integer,keycode as integer,shift...

用VB6 0做簡易的小程式。當作業,要算分數的。跪求高手

跪著吧,這樣的學生,不學無術也就罷了,連基本的常識都沒有,要算分數的 算什麼分,如何個演算法?先學會語言表達再說吧。public x as boolean public oper as integer public z as string public result as string privat...