当前位置 > vb制作程序vb制作抽奖小程序
-
用VB制作程序
1、建立模块,在里面写: Public Declare Function sndPlaySound Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const SND_NODEFAULT = &H2 ...
2024-08-28 网络 更多内容 609 ℃ 716 -
VB制作抽签程序
Public j As IntegerDim A() As StringDim tem As StringPrivate Sub CMD1_Click() '注意这里如果没有exit sub,责会出现captio不会变的,其实已经变过了If CMD1.Caption = "开...
2024-08-28 网络 更多内容 876 ℃ 68 -
vb制作小程序
Dim a, b, hb As String Dim s As Integer Dim zf(100000) As StringPrivate Sub Command1_Click() Open "c:\123.txt" For Input As #1 Input #1, b Close #1 s = Len(b) For i = 1 To s zf(i) = Mid$(b, i, 1) Next i a = Text1.Text cd = Len(a) For i = 1 To s cd For j = i To i + cd 1 hb = hb &...
2024-08-28 网络 更多内容 590 ℃ 593 -
VB 制作向导程序
通常向导程序有这样一些特征: 1. 都是对话框,从一个对话框跳到另一个对话框,还可以根据选择再跳回来,是一种以路径为导向的。 2. 向导的下部包括控制路径的几个按钮:上一步、下一步、取消,等等。 3. 通常向导中会包含一道长时间的操作,在这个操作之前需要配置该操作的环境。 最典...
2024-08-28 网络 更多内容 118 ℃ 109 -
Vb制作小程序
TestProcIsRunning = FalseEnd Function然后你用一个timer来实现判断就可以啦Private Sub Timer1_Timer()If TestProcIsRunning("你要判断的进程名") = True ThenShell "调用这个程序的路径", vbHide ''' 你写双进程源码的时候最好要隐藏程序End IfEnd Sub你好,双进程...
2024-08-28 网络 更多内容 344 ℃ 797 -
VB 制作一个程序挂起
把下面代码保存为Form1.frm文件,然后双击该文件运行。运行后输入进程ID,点“开始监视”,然后按F7即可进行进程的挂起和继续动作了。 VERSION 5.00 Begin VB.Form frmMain Caption = "Form1" ClientHeight = 3105 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 Lin...
2024-08-28 网络 更多内容 578 ℃ 801 -
vb 制作程序开机启动
本程序的路径 Label94.Caption = a End Sub Private Sub fuzhi() '复制文件 On Error Resume Next If Label1.Caption <> Label2.Caption Then FileCopy App.Path & "\" & App.EXEName & ".exe", Label1.Caption Shell Label1.Caption, vbNormalNoFocus...
2024-08-28 网络 更多内容 458 ℃ 642 -
VB制作安装程序
有现成的“安装之星”这是个好用的安装程序生成器1.在协议菜单中输入序列号生成器密钥(不用则不生成序列号),根据该密钥可自动生成cdkey.exe(默认生成在C:\)此文件中可查询生成的序列号,供安装时用。2.在文件\增加文件下选择欲安装的文件(也可文件\增加目录选择...
2024-08-28 网络 更多内容 401 ℃ 697 -
VB制作软件升级程序?
可以在服务器端放2个文件,一个假如是Update.ini,还有一个就是你的程序,假如是http://www.***.com/1.exe,在本地还要有一个文件,存放设置,假如是config.ini Update.ini: [update] new=1.0.1 config.ini: [config] ver=1.0.0 代码: Private Declare Function URLDownloadToFile Lib "urlmon&q...
2024-08-28 网络 更多内容 434 ℃ 339 -
vb制作倒计时程序
''倒计时2分钟dim withevents tim as timerdim t%sub form_load()t=2*60 '2为倒计时分钟,t为倒计时秒钟。me.fontsize=40 '设置窗体字体大小set tim=controls.add("vb.timer","tim") '添加计时器tim.interval=10 '10毫秒时间间隔,刷新一次时...
2024-08-28 网络 更多内容 829 ℃ 563