vb制作小程序（vb小程序实例初学者）

今天给各位分享vb制作小程序的知识，其中也会对vb小程序实例初学者进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

微信号：cloud7591
如需了解更多，欢迎添加客服微信咨询。
复制微信号

本文目录一览：

• 1、用VB制作小程序
• 2、用VB编写一个小程序
• 3、在VB中怎么制作一个银行密码校对的小程序
• 4、Vb制作小程序
• 5、用vb编写一个小程序程序
• 6、谁知道怎样用ＶＢ制作小程序（具体步骤最好有图）

用VB制作小程序

Option Explicit

Private Sub Form_Load()

    Randomize

    Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000)    '生成100000-999999之间的随机数

    Timer1.Interval = 1000  '一秒一次

    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static n As Integer

    n = n + 1

    If n = 60 Then      '一秒一次，累加到60此即60秒

        n = 0

        Randomize

        Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000)

    End If

End Sub

有问题请追问，满意请采纳，加油！

用VB编写一个小程序

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Text.Text = "Visual Basic程序设计"

Command1.Caption = "结束"

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

a = Form1.Width - Command1.Left

b = Form1.Height - Command1.Top

End Sub

Private Sub Form_Resize()

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

Command1.Left = Form1.Width - a

Command1.Top = Form1.Height - b

End Sub

注意，各变量名，控件名保持一致,你题目中的文本框名称为text

在VB中怎么制作一个银行密码校对的小程序

选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

首先启动vb6.0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。

在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。

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

th32ModuleID 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拦截掉的,不过用来练手也感觉不错..

用vb编写一个小程序程序

新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。

新建一个命令按钮Command1,添加以下代码：

Private

Sub

Command1_Click()

Dim

i

As

Integer

For

i

=

1

To

100

If

(i

Mod

5

=

0)

And

(i

Mod

3

0)

Then

Text1.Text

=

Text1.Text

vbCrLf

i

Next

End

Sub

谁知道怎样用ＶＢ制作小程序（具体步骤最好有图）

用VB.net制作一个小程序（1）

----制作“Hello.NET”程序

作者：高山

用下面很简单的方法，就可以制作一个“Hello.NET”小程序，同时可以掌握一些控件的用法。

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写处置以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意：以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()

Me.Button1 = New System.Windows.Forms.Button()

Me.TextBox1 = New System.Windows.Forms.TextBox()

Me.SuspendLayout()

'

'Button1

'

Me.Button1.Location = New System.Drawing.Point(16, 112)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 0

Me.Button1.Text = "OK"

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(160, 112)

Me.TextBox1.Name = "TextBox1"

Me.TextBox1.TabIndex = 1

Me.TextBox1.Text = ""

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(292, 266)

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1})

Me.Name = "Form1"

Me.Text = "Hello,VB.NET"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.Text = "Hello,VB.NET!"

End Sub

End Class

关于vb制作小程序和vb小程序实例初学者的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。