關於VB製作上下左右四鍵,在vb裡面用上下左右怎麼控制圖片的移動?

2022-06-25 04:21:57 字數 1813 閱讀 2804

1樓:匿名使用者

左右?不是只有上下嗎?給你上下的吧。

label和shape用控制項陣列。shape1(1~3)的可見屬性設計時設為隱藏,0設計時為顯示。

dim a as integer

private sub command1_click()select case a

case 0

shape1(a).visible = falseshape1(a + 3).visible = truecase else

shape1(a).visible = falseshape1(a - 1).visible = trueend select

where

end sub

private sub command2_click()select case a

case 3

shape1(a).visible = falseshape1(a - 3).visible = truecase else

shape1(a).visible = falseshape1(a + 1).visible = trueend select

where

end sub

private sub where()

dim i as integer

for i = 0 to 3

if shape1(i).visible = true then a = i

next

end sub

2樓:

用個frame 就可以 把標籤寫 到frame裡即可**如下

private sub command1_click()form1.scaleheight = 2form1.scalewidth = 2

frame1.left = frame1.left - 0.5 '左移動

end sub

private sub command2_click()form1.scaleheight = 2form1.scalewidth = 2

frame1.left = frame1.left + 0.5 '右移動

end sub

private sub command3_click()form1.scaleheight = 2form1.scalewidth = 2

frame1.top = frame1.top + 0.5 '下移動end sub

private sub command4_click()form1.scaleheight = 2form1.scalewidth = 2

frame1.top = frame1.top - 0.5 '上 移動

end sub

怎麼用vb設計乙個可以用鍵盤上下左右鍵控制

上下左右建在vb中的 ascii碼是多少

3樓:

這四個鍵沒有ascii,只有keycode,上、下、左、右分別為38、40、37、39。

在vb裡面用上下左右怎麼控制**的移動?

4樓:美若之夏花

private sub command1_click()static n as integer

picture1.left = picture1.left + nn = n + 10

end sub

這是向右移,還可以把left改為right、top、

5樓:璩柔

在窗體的keyascii事件中判斷鍵值 當是方向鍵時移**片框

鍵盤的上下左右怎麼變成了,鍵盤的上下左右怎麼變成了ASDW

是鍵盤的上下左右四個鍵位和asdw是個鍵位出現了轉換。解決方法 如果鍵盤的上下左右變成了asdw,可以按快捷鍵fn w 切換回來。此種方法適用於大多數品牌。如果鍵盤的上下左右變成了asdw,可以按快捷鍵fn 空格 切換回來。此種方法適用於達爾優等少數品牌。如果鍵盤的上下左右變成了asdw,可以按快捷...

用123456789填格,不能重複,上下左右斜著都等於

二四為肩,六八為足,左三右七,戴九履一,五居 4,9,2 3,5,7 8,1,6 8,1,6 3,5,7 4,9,2 在9宮格填上一到九,不重複,使每橫豎斜都等於15 1 首先中間的數是最主要的,因為會有4組數用到它,這樣數在1 9中,只有1個那就是5,這樣就可以確定周圍一圈的數全是相加等於10 的...

怎樣在上寫最大的數字要讓他上下左右全

左右居中會吧,然後你再檔案 頁面設定 版式 頁面 垂直對齊方式看到麼?下拉框選擇居中就可以了.a4幅面的紙張上容納的最大字的磅值為620左右。單擊檔案 頁面設定 輸入乙個數字,設定字型大小為300 500,具體自己調節,然後設定居中,再在頁面設定裡伏相應設定即可。可以在字型大小裡面輸入 文字的大小,...