當前位置：首頁 » APP程序 » vb製作實用小程序

vb製作實用小程序

發布時間: 2021-03-17 08:13:12

1. 用VB製作小程序

OptionExplicit

PrivateSubForm_Load()
Randomize
Label1.Caption=Int((Rnd*(999999-100000+1))+100000)'生成100000-999999之間的隨機數
Timer1.Interval=1000'一秒一次
Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer()
StaticnAsInteger
n=n+1
Ifn=60Then'一秒一次，累加到60此即60秒
n=0
Randomize
Label1.Caption=Int((Rnd*(999999-100000+1))+100000)
EndIf
EndSub

有問題請追問，滿意請點贊，加油！

2. 關於用vb製作一個小程序

rnd配合format

不知是你表達不清還是我天生愚笨，看不懂你的范圍（我理解應該叫格式，但你的格式又與最後要的隨機結果格式不同，真是暈）

3. 用VB做一個簡單的小程序

PrivateSubCommand1_Click()
Me.Cls
DimNAsInteger,iAsInteger
N=InputBox("n=",,9)
Fori=1To2*N-1
Ifi<=NThen
PrintSpace(N-i)+String(2*i-1,CStr(i))
Else
PrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))
EndIf
Nexti
EndSub

4. 用VB製作一個小程序

先去照張照片，純色背景，手拿一把天津大麻花，作翹首展望狀
再把你女朋友騙去照張藝術照版
把兩張照片合為一權張
做一個窗體，用這張照片做窗體背景，修改窗體的顯示模式，隱藏最大化，最小化，關閉按鈕，使她不能操作
做七個同樣大小的標簽控制項，用七種色彩來表示，先設置為隱藏模式（其實一個也可以）
做一個時鍾控制項，控制七個標簽的顯示

把做好的小程序放入電腦，並設置為開機自動運行
程序功能如下
當她一開機，一幅你手捧麻花，含情脈脈地望著她的照片就出現了，不一會，出現一行紅色字幕（最好是動態移動的，當然，這又要多用一個時鍾控制項了）「老婆，老婆，我愛你，今天下課我等你，老婆學習太辛苦，吃串麻花補一補」，然後，橙色，黃色，綠色，青色，藍色，紫色依次出現，末了，窗體不見了（隱藏起來了）。一個小時後（兩小時也行，也可以置為固定時間），你們又蹦了出來，折騰一番後又不見了，除非她關機。
行不行？
試一試？

5. VB製作一個小程序,誰來幫幫我

你用mouseUp事件就可以實現了.
在事件中,用sleep(1000)延時1秒；
發出聲音你可以添加windows media控制項播放任意的音樂或則聲音，再用sleep(1000)延時；
我不知道怎樣模擬滑鼠點擊，但是可以在事件中調用函數實現你所要的其他功能！

6. 如何使用VB編寫一個簡單的小程序

打開vb，選擇新建工程，標准exe，點擊運行啟動，就看見一個窗體。
這就是最簡單的vb程序。

然後點擊運行結束，視圖，代碼窗口，粘貼如下代碼：
Private Sub Form_Load()
MsgBox ("你好！")
End Sub
點擊運行啟動，就看到一個新的效果
祝你成功！

7. Vb製作小程序

這個不難辦到

你用一個新的模塊將下面的代碼放進去

Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32MoleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type
Private Const PROCESS_QUERY_INFORMATION = 1024
Private Const PROCESS_VM_READ = 16
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const TH32CS_SNAPPROCESS = &H2

Public Function TestProcIsRunning(ByVal ProcName As String) As Boolean
Dim hFindProc As Long
hFindProc = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
Dim ProcData As PROCESSENTRY32
ProcData.dwSize = Len(ProcData)
Process32First hFindProc, ProcData
While (Process32Next(hFindProc, ProcData) = 1)
Dim sPro As String
sPro = Left(UCase(ProcData.szExeFile), InStr(UCase(ProcData.szExeFile), Chr(0)) - 1)
If sPro = UCase(ProcName) Then
CloseHandle hFindProc
TestProcIsRunning = True
Exit Function
End If
Wend
CloseHandle hFindProc
TestProcIsRunning = False
End Function

然後你用一個timer來實現判斷就可以啦

Private Sub Timer1_Timer()
If TestProcIsRunning("你要判斷的進程名") = True Then
Shell "調用這個程序的路徑", vbHide ''' 你寫雙進程源碼的時候最好要隱藏程序
End If
End Sub

你好,雙進程我也寫過,至於編譯後運行很容易被360攔截掉的,不過用來練手也感覺不錯..

8. 適合vb新手做的實用小程序

計算器。。界面找Windows的做就行這個方面網上資料還多

9. 怎樣用 VB 製作個簡單的小程序

form1上放置Command1,Timer1,Picture1(裝入一個圖專片屬)

Dim MoveStep As Integer

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
MoveStep = 100
End Sub

Private Sub Timer1_Timer()
If Picture1.Left + Picture1.Width + 30 > Form1.Width Then
MoveStep = -100
End If
If Picture1.Left < 0 Then
MoveStep = 100
End If
Picture1.Left = Picture1.Left + MoveStep
End Sub

10. vb做一個簡單的小程序

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

建一個無邊框來窗體,復制上面代源碼進去就OK了

工程文件給你發過去了後發的是修改過的免去了需要修改路徑的麻煩

閱讀全文

vb製作實用小程序

與vb製作實用小程序相關的閱讀推薦