VB怎麼做數字按下按鈕，在VB中，通過命令按鈕輸入數字

它類似於計算器，可以在介面上輸入數字，也可以使用鍵盤輸入，後期專用**！！

這是計算器設計的一部分。

首先，在窗體上建立乙個名稱、標題為 0 和索引為 0 的控制項，並建立乙個 text1 控制項，text1 的 text 屬性為空。

然後，貼上以下 **：

private sub form load（） 來建立小部件陣列。

dim i%, numwidth%

numwidth = number(0).width

for i = 1 to 9

load number(i)

if i mod 3 = 1 then

number(i).top = number(i - 1).top - number(i - 1).height - 100

number(i).left = number(0).left

elsenumber(i).top = number(i - 1).top

number(i).left = number(i - 1).left + number(i - 1).width + 100

end if

number(i).caption = i

number(i).visible = -1

next i

number(0).width = number(1).width * 3 + 100

end sub

private sub number click（index as integer） '以 text1 格式顯示數字。

text1 = text1 & number(index).caption

end sub

注意：您也可以將游標直接移動到 text1 並直接從鍵盤輸入數字。

新增乙個“按鈕”。

雙擊該按鈕，寫下**，你就完成了。

如果你不明白，再問我，祝你好運，o（呵呵

"1""2"

private sub command1_click()= & "1"

end sub

private sub command2_click()= & "2"

end sub

private sub command3_click()= & "3"

end sub

private sub command10_click()= & "0"

end sub

鍵盤只需將 text1 放入焦點並鍵入即可。

按 C 鍵、1、len （

壓"0"拿起初始化命令。

重新進入？ 你按 ce，所有變數、常量都初始化了。

可以是將du新增到bai文字框的末尾

新增乙個數字，即在文字框的內容後新增命令按鈕 dao 顯示的特殊數字。

例如，private sub command3 click（） = &"3"

end sub

或通用按鈕組。

private sub command1_click(index as integer)

index

結束子。

這很簡單，第乙個命令按鈕是這樣寫的。

第二個命令是這樣的。

為了給你乙個想法，使用按鈕和文字框來實現它。 每個按鈕對應乙個數字或符號。 按按鈕在文字框中顯示相應的數字。 乙個簡單的**。

private sub command1_click()= "1"

end sub

就是這麼簡單。

以前沒有使用過條碼裝置？

條碼掃瞄器是插入鍵盤口的鍵盤，明白嗎？

條碼印表機是印表機，但是我只見過DOS的使用，在Windows下沒有用過，據說是列印一串數字。

它只在輸入插座中嗎？

也就是說，上鍵乘以十一次，按下的鍵除以十（兩端不先考慮），如果這樣可以判斷鍵的鍵值，當上鍵是將文字框的內容乘以十時，按下除以十， 然後顯示然後處理它，但為什麼不使用列表框呢？

請仔細描述您的問題，（使用適當的標點符號，它不會殺死任何人）。

若要檢視是否是這種情況，請建立乙個新專案，新增乙個文字框、乙個按鈕，然後在按鈕的 click 事件中寫入 =

如果你有乙個，你可以使用它

多個按需控制項陣列：

command1（index）.caption

從 0 到 9 的按鈕的標題為 0 到 9，然後是每個按鈕的單擊事件

設定文字框 text1 和按鈕 command1， **，如下所示：

private sub text1_change()if isnumeric(text1) = false then'如果它不是數字，則 command1 按鈕無效。

false否則，如果它是乙個數字，則 command1 按鈕有效。

trueend if

end sub