vb編程完成後怎麼測試

㈠ vb編程測試求代碼

PrivateSubCommand1_Click()
DimNumberArray(10),正梁態i,sum,舉源max,minAsInteger
DimavgAsDouble
sum=0
Fori=0To9
Randomize
NumberArray(i)=Int((50-20+1)*Rnd+20)
Next
min=NumberArray(0)
Fori=0To9
IfNumberArray(i)>maxThen渣橘max=NumberArray(i)
IfNumberArray(i)<minThenmin=NumberArray(i)
sum=NumberArray(i)+sum
Next
avg=sum/10
Print"最大值"&max
Print"最小值"&min
Print"平均值"&avg
EndSub

㈡ 如何用vb檢測某程序是否在運行

'在窗體代碼區復制下面代碼，並在Form_Load()修改具體的程序名，運行，即可。
Option Explicit

Function FindProcess(ProcessName) As Boolean
Dim ps
'枚舉進內程
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循環進容程
If UCase(ps.Name) = UCase(ProcessName) Then
FindProcess = True
Exit Function
End If
Next
End Function

Private Sub Form_Load()
If FindProcess("xxxx.exe") Then '在此修改為你要找的程序名
MsgBox "該程序正在運行！"
Else
MsgBox "該程序不正在運行！"
End If
End Sub

㈢ VB編寫完窗口程序代碼後怎麼運行啊

1、第一種點上方「運行」，然後啟動。，如果要停止的話按「運行」「停止」或者CTRL+BREAK
2、快捷方式F5.
3、如果程序編好了，不在更改，則把它轉成應用程序模式
具體方法：點文件，生成工程，取個名字就行了，這就是完成的程序

㈣ （VB）如何檢查自身程序已經運行

Private Sub Form_Load()
If App.PrevInstance Then
End
End If
End Sub

用DDE實現窗體防止運行多個實例並傳遞命令

上網的朋友一定都用過網路螞蟻（Net Ants）的吧？不知你在使用過程中有沒有注意過，那就是如果你想調動兩個「螞蟻」為您效力是不可能的——它總會把新運行的關閉。這點在VB中很容易實現：

Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "你已經運行這個應用程序了"
End ' 退出新運行的程序
End If
End Sub

這樣如果你運行這個程序後在運行它，它會彈出一個消息框並拒絕再次運行。這非常容易。 而「螞蟻」程序的妙處就在於：在重復運行「螞蟻」時它不僅拒絕運行，而且能把已經運行的「螞蟻」激活，這樣用上面的程序就無能為力了。但事實上實現拒絕運行並激活已運行的
程序有多種方法：

1、用FindWindow函數得到已經運行窗體的句柄（HWND），然後用SetActiveWindow等API函數將其激活。其缺點也很明顯，那就是沒法傳遞參數。

2、用FindWindow函數得到已運行窗體的句柄後用SendMessage的方法給窗體傳送一個自定義消息（附帶參數），然後在窗體中攔截並進行處理，但這樣做要修改窗體的標准消息處理程序，用在VC，BC或DELPHI編寫的程序中還行，但在VB中工作量太大，並且容易發生「一般保護行錯誤」使VB崩潰，不太可取（當然，如果你有足夠的信心和不怕崩潰的精神，也可以試一下 ^_^ ）。

3、使用DDE技術。

所謂DDE技術，就是動態數據交換技術。也許你很奇怪，這與本文所討論的內容有什麼相乾的？
且聽我慢慢講來。
為了實現拒絕運行並把已經運行的程序激活纖冊並實現各種功能，我們可以先用本文開頭提到的方法，檢測一下程序有沒有被運行過，如果沒有，就正常運行，如果已經被運行過，就打通與它的DDE通道，傳給它一個（或一些）數據，然後由已經運行的程序對數據進行處理，再去實現各種「意想不到」的功能，這時也許就有人對這你的程序喊：「酷、酷……」 ^_^

好了，耳聽為虛，眼見為實，下面讓我們動點真格的。

打開VB，新建一個工程，選擇菜單中的「工程->工程1 屬性」，把工程名稱改為「P1」（我愛偷鏈蠢懶，能短則短 ^_^ ），把已有的一個窗體的「LinkTopic」屬性改為「FormDDE」，把「LinkMode」屬性改為「1 - Source」，添加一個PictureBox控制項作為DDE執行控制項，命名為picDDE。然後添加一個TextBox控制項，命名為「txtInfo」，並把「MultiLine」屬性設置為「True」，以便顯示多行文本，作為消息顯示控制項。

最後在窗體代碼區輸入以下代碼：

Const COMMANDLINE = "CommandLine=" ' 還是為了省事，定義一個常量

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Static lngCount As Long
Dim Info As String

Info = txtInfo.Text ' 保留原有信息

Select Case CmdStr ' CmdStr 是DDE程序傳送過來的參數
Case "Max"
Me.WindowState = 2
Info = Info + vbNewLine + "窗體已被最大化"
Case "ShowTime"
Info = Info + vbNewLine + "最後一次運行這個程序的時間是：" + Str(Now)
Case "Count"
lngCount = lngCount + 1
Info = Info + vbNewLine + "你已經第" + Str(lngCount) + "次重復調用這個程序。"毀喚宏 _
+ vbNewLine + "但怕您不多給工資，所以只運行了一個 ^_^"
End Select

If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then
Info = Info + vbNewLine + "新程序曾以命令行形式運行" + vbNewLine + "命令行為：" _
+ vbNewLine + Right(CmdStr, Len(CmdStr) - Len(COMMANDLINE))
End If

txtInfo.Text = Info ' 把信息顯示出來

Cancel = False
End Sub

Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t As Long
picDDE.LinkMode = 0 '--
picDDE.LinkTopic = "P1|FormDDE" ' |______連接DDE程序並發送數據/參數
picDDE.LinkMode = 2 ' | 「|」為管道符，是「退格鍵」旁邊的豎線，
picDDE.LinkExecute Msg '-- 不是字母或數字！

t = picDDE.LinkTimeout '--
picDDE.LinkTimeout = 1 ' |______終止DDE通道。當然，也可以用別的方法
picDDE.LinkMode = 0 ' | 這里用的是超時強制終止的方法
picDDE.LinkTimeout = t '--
End Sub

Private Sub Form_Load()
If App.PrevInstance Then ' 程序是否已經運行

Me.LinkTopic = "" ' 這兩行用於清除新運行的程序的DDE伺服器屬性，
Me.LinkMode = 0 ' 否則在連接DDE程序時會出亂子的

LinkAndSendMessage "Max" '--
LinkAndSendMessage "Count" ' |-----連接DDE接受程序並傳送數據/參數
LinkAndSendMessage "ShowTime" '--

If Command <> "" Then ' 如果有命令行參數，就傳遞過去
LinkAndSendMessage COMMANDLINE + Command
End If
End ' 結束新程序的運行
End If
End Sub

測試一下：
把工程「P1」編譯成EXE文件（設名稱為 P1.EXE ）
1、打開「我的電腦」，找到 P1.EXE 並執行。可以看到程序正常運行了。
2、再運行一次，這次新程序沒有運行成功，而原來運行的程序卻被最大化了，而且文本框中有以下
字元：

窗體已被最大化
你已經第 1次重復調用這個程序。
但怕您不多給工資，所以只運行了一個 ^_^
最後一次運行這個程序的時間是：00-2-6 7:11:01

3、打開 MS-DOS方式 ，用命令行方式再次運行程序，如 「P1 How Are You?」
這時原來運行的程序文本框中又多了幾行字：

窗體已被最大化
你已經第 2次重復調用這個程序。
但怕您不多給工資，所以只運行了一個 ^_^
最後一次運行這個程序的時間是：00-2-6 7:14:32
新程序曾以命令行形式運行
命令行為：
How Are You?

OK，運行完全正確，然後你就可以把它應用的你的程序中了。

㈤ VB如何判斷某個程序是否已經運行

如果是自己的軟體,打開時可以向C盤創建一個文件,關閉後就刪除,在檢測時如果文件存在就是打開了,不存在就是沒有打開~

㈥ 使用VB進行程序設計有哪些步驟

可視化程序設計一般有一下步驟

1. 設計程序界面

2. 編寫程序代碼

3. 調試、內運行程序；面向對象的容程序設計以對象為中心，以事件為過程執行的起點

例題：

設計一個簡易的打字測試程序，單擊「開始」按鈕，計時開始，輸入字元；單擊「結束」按鈕，程序輸出打字速度。

（1）啟動VB，新建一個VB標准EXE工程。單擊工具箱中的文本框控制項（TextBox），將滑鼠指針移到窗體上，拖動十字線在窗體上畫出大小適當的控制項。

（2）用同樣的方法在窗體中添加兩個命令按鈕控制項（CommandButton）、兩個標簽控制項（Label）和一個文本框控制項。

（3）通過屬性窗口可以更改對象的原有屬性。

（4）雙擊「frmTest」窗體中的「開始」按鈕，打開對應的代碼窗口。在對象中=列表框中選擇「通用」，輸入代碼。

（5）在對象列表框中選擇「cmdStart"，在過程列表框中選擇」Click"事件。輸入代碼。

（6）保存工程，運行程序。

㈦ VB編寫完窗口程序代碼後怎麼運行啊

VB編寫完窗口程序代碼後怎麼運行的方法。

如下參考：

1.先打開visualbasic，進入操作界面。

㈧ vb怎麼運行

vb運行編寫好的程序可以分以下兩種情況：
1、VB內調試運行。點擊vb頂部工具欄的啟動按鈕（黑色三角形圖標），或者菜單--運行-啟動，快捷鍵是F5。這個功能在編寫程序時會經常用到。
2、編譯vb程序後運行。點擊菜單---文件--生成工程1.exe(具體工程名字可以自己修改)。這樣就會生成exe文件，點擊這個exe運行就是編寫好的軟體。

㈨ VB 如何檢測一個程序是否在運行中

用Timer定時檢測進程中是否有這個程版序權
Private Sub Timer1_Timer()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'A.EXE'")

For Each objProcess In colProcessList
If objProcess.ExecutablePath = "E:\A.EXE" Then
Exit Sub
End If
Next
Shell "E:\A.EXE"
End Sub