vb怎麼用,vb程式碼怎麼用

2022-11-16 14:10:50 字數 4739 閱讀 9643

1樓:

private sub timer1_timer()if i = 0 then

print "我是中國人"

end if

if i = 1 then

print "中國人"

end if

if i = 2 then

print "中國vs小日本"

end if

i = i + 1

end sub

我給你的**就是放一個銨鈕一個計時器

timer1的interval設定為5000,直接點選執行就可以看到你效果

看下面的**設定timer1的屬性!

2樓:

dim i as integer

private sub command1_click()timer1.enabled = trueend sub

private sub form_load()i = 0

end sub

private sub timer1_timer()if i = 0 then

print "我是中國人"

end if

if i = 1 then

print "中國人"

end if

if i = 2 then

print "中國vs小日本"

end if

i = i + 1

end sub

放一個銨鈕一個計時器

timer1的interval設定為5000,enable=false

執行 按銨鈕,然後就是你的效果。

3樓:

我給你不用新增timer的吧

private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)'這行在通用裡面

private sub form_click()print "我是中國人"

doevents

sleep (5000)

print "中國人"

doevents

sleep (5000)

print "中國v日本"

end sub

4樓:匿名使用者

private sub timer1_timer()for i = 0 to 2

if i = 0 then: print "我是中國人"

if i = 1 then: print "中國人"

if i = 2 then: print "中國vs小日本"

next

end sub

private sub timer1_timer()static i as integer

if i = 0 then: print "我是中國人"

if i = 1 then: print "中國人"

if i = 2 then: print "中國vs小日本"

i = i + 1

end sub

5樓:匿名使用者

想要**而已,問什麼vb

vb**怎麼用

6樓:魚木混豬喲

詳細步驟如下:

開啟vb6.0,選擇新建標準 exe,並點選開啟在form1中新增一個commandbutton控制元件雙擊command1,進入程式編輯介面,將原來的內容清除,複製上述**

按f5執行程式,點選command1,即可實現程式檢測qq程式是否執行的效果

7樓:落墨星索

先開啟vb6,然後在「新建工程」裡面選擇「標準exe」,點開啟。

在視窗左邊有那個控制元件欄,第三排第二個名為commandbutton的就是按鈕控制元件。左鍵點選,然後整個窗體中間的form1的下面,拉一個按鈕。

然後在第一排依次點選「檢視「--」**視窗「,會彈出**視窗,把這些**複製進去,然後按f5就可以執行這段**了。

8樓:匿名使用者

開啟vb後,先在窗體上新增一個按鈕

然後在窗體上右擊滑鼠,選擇「檢視**」。在**視窗中,貼上上述**。

vb中enable怎麼用的 10

9樓:家和萬事興

1、vb是一種視覺化的物件導向的程式設計語言,enabled是vb中控制元件的一種屬性。

2、enabled屬性有兩種值true和false,分別代表真和假。當一個控制元件的enabled屬性值為真時代表該控制元件可以用,當控制元件的enabled屬性為false時代表該控制元件不可用(圖形會變為灰色且不可以選中)。

3、舉一個例子,當command命令框enabled屬性設定為false時,這個命令按鈕將無法被選中,也無法被執行。

4、enabled屬性可以在控制元件對應的屬性表中設定

10樓:

enable有兩個值,為true時,控制元件響應事件,為false時控制元件不響應事件。

11樓:匿名使用者

text1.enabled = true

text1.enabled = false

12樓:匿名使用者

command1.enabled=true '按鈕可用

command1.enabled=false '按鈕不可用

vb 集合是什麼?怎麼用? 5

13樓:匿名使用者

以下來自vb10 的語言參考,vb6與之類似

visual basic 中的集合

一般來說,集合是一個用於對相關物件進行分組和管理的物件。 例如,每個 form 均具有一個控制元件集合。 (可以通過窗體的 controls 屬性來訪問此集合。

)此集合是一個表示該窗體上所有控制元件的物件。 它允許您按照控制元件的索引在集合中檢索控制元件,以及使用 for each...next 語句 (visual basic) 來遍歷集合中的元素。

但是,有幾種型別的集合,而且它們在幾個方面均互不相同。

visual basic 也提供了 collection 類,您可以利用此類定義和建立自己的集合。與窗體的 controls 集合類似,collection 類也提供使用 for each...next 來遍歷元素以及按照索引檢索元素的內建功能。

有關更多資訊,請參見 collection。

但是,這兩種型別的集合互相不能互動操作。例如,下面的**生成一個編譯器錯誤。

dim localcontrols as collection

' the following line generates a compiler error.

localcontrols = me.controls()

由於 controls 集合是 .net framework 集合,而變數 localcontrols 是 visual basic collection,因此,兩種集合互不相容。這兩種型別的集合是通過不同的類實現的。

它們的方法相似但不相同,而且它們的索引方案並不相同。

新增和移除項

集合在是否可向它們新增項以及如何新增那些項(如果可以新增的話)方面也有差異。因為 visual basic collection 物件是一種通用程式設計工具,所以它比其他一些集合更靈活。它具有一個用於將項放入集合的add 方法,以及一個用於取出項的 remove 方法。

另一方面,某些專用集合不允許您使用**新增或移除元素。例如,checkedlistbox.checkeditems 屬性按索引返回對項的引用集合,但您的**無法在此集合中新增或移除項。

只有使用者通過在使用者介面中選擇或清除適當的框才能這樣做。因此,對於此集合並沒有 add 或 remove 方法。

14樓:匿名使用者

collection 這就是集合

示例dim mcol as collectionset mcol=賦值

if not mcol is nothing thenfor index=1 to mcol.count變數=mcol(index)

next

end if

foreach

vb中input怎麼用?

vb裡面怎麼運用cmd

15樓:匿名使用者

在**裡直接用shell命令呼叫cmd

private sub command1_click()shell "cmd /c ipconfig & net user & arp -a & pause", vbnormalfocus

end sub

上面這個就是在按鈕裡面的例項,共執行了3個命令ipconfig 、net user 、 arp -a 然後一個暫停命令pause,每個cmd命令之間用 & 來連線執行。

16樓:天蠍魔君

不明白 vb執行cmd (1)是在vb程式執行時開啟cmd窗體(2) 還是在vb程式執行時,執行cmd中的命令'**部分

dim 命令 as string

private sub cmdok_click()shell "cmd.exe /c " & 命令'就ok了end sub

參考文獻

希望對你有幫助

vb怎麼用陣列記錄y座標,VB怎麼用陣列記錄x,y座標

更直接的方法 不用自定義型別,通過節點號來讀寫座標dim bs 1 to 25 as single i as long for i 1 to 25 bs i 第 i 個節點的x座標 h7fff 第 i 個節點的y座標 記錄座標,第 i 個節點的x和y座標你自己改 next i 下面公式是讀取座標的 ...

這個用VB怎麼實現,VB怎麼實現這個簡單的功能?

樓主連程序和執行緒都沒搞清楚怎麼做 一個程式只能有一個程序,而一個程序可以多執行緒.你想實現程序相互監視,必須得做2個exe程式互相監督,這個比較簡單,不停重新整理工作管理員來獲取當前的程序有沒存在指定程序即可,如果不存在則開啟就ok.開機啟動寫下登錄檔就好了 隱藏工作列需要把自己的程式註冊為一個系...

VB程式設計急求,急求VB程式設計程式碼!!!!

private sub command1 click 計算應發工資,text4 text4 val text1 val text2 val text3 計算個人所得稅,text5 if val text4 1000 thentext5 0 elseif val text4 1000 and val ...