VB表格的問題 誰來幫我乙個忙

樓上不好，因為隱藏只是隱藏的，如果你想完全關閉它，你必須解除安裝它。

因此，它應該這樣寫：

private sub command1_click()unload form1

end sub

這將允許您關閉 form1

private sub command1_click()unload form1

end sub

在 form2 中，end 應用於結束事件

D bar b 錯了，ture 錯了，這個話題真的很棘手。

我已經測試好了。

哦，它應該是“真的”。"

所以，a b 是不對的。

C 是字串，D 是正確的。

如果是單選，我確信 D 是正確的，因為我在程式設計教科書中見過類似的東西。 我不確定其他任何事情。

但是你能告訴我為什麼它很亮嗎？ 我認為如此。

兄弟應該是b！

你如何服用VB並嘗試它！ 只是得到它。

稍加修改，您就可以使用退格鍵刪除資料！

private sub form_load()= 0

end sub

private sub text1_keypress(keyascii as integer)

if keyascii <>8 then

a = len(

k = val(

if a mod 3 = k + 1) *2) mod 3 then= &

len(end if

a = len(

if a > 0 then

if a mod 15 = 0 and k = 0 then= k + 1

len(else if a mod 17 = 15 and k > 0 then

k + 1len(end if

end if

end if

end if

end sub

如果您滿足您的要求，每 15 個字元將有 2 個空格。

它可能有點複雜，但它絕對有效。

private sub command1_click()dim s as string

s = text1

text1 =

dim a() as string

redim a(1 to len(s)) as stringfor i = 1 to len(s)

a(i) =mid(s, i, 1)

text1 = text1 + a(i)

if i mod 2 = 0 then text1 = text1 +

nextend sub

private sub command1_click()t = timer

dodoevents

loop until timer > t + 3 '3秒，單位：秒，可以自己改，比如可以小數點！

你的**過程！ )

end sub

private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)'API 宣告。

private sub command1 click（）sleep （3000）'milliseconds3000，即 3 秒呼叫 mysub' 執行函式和過程。

end sub

private sub mysub()

msgbox "以 3 秒的延遲執行"

end sub

讓按鈕執行事件？ 你是什麼意思。。。。。。

你使用計時器嗎？

控制項未註冊，請執行 regsvr32 以註冊控制項。