当前位置：首页 » 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制作实用小程序相关的阅读推荐