vb代码怎么编写 vb生成随机数的代码
其实vb代码怎么编写的问题并不复杂，但是又很多的朋友都不太了解vb生成随机数的代码，因此呢，今天小编就来为大家分享vb代码怎么编写的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！
怎么看VB代码、又怎么编写代码
要看VB代码，首先得知道这些代码是什么意思，所以要先学习和了解VB函数及使用及操作方法。
建议先看几本VB编程的书，如：Visual Basic程序设计康丽军吴红萍主编北京大学出版社这本书讲的很基础，感觉比较适合初学者。
学习了基本的函数后，就可以对照书中的实例，编写自己的程序了。比如，一个简单的例子。
点击按钮，显示对话框：
1，打开VB，新建程序，然后在窗体中添加一个Command1控件。
2，点击Command1，添加代码：Msgbox"你好！"
3，点击即可。
4，代码编写完毕。
*VB6.0全称为VisualBasic 6.0，是微软公司推出的可视化编程工具之一，是目前世界上使用最广泛的程序开发工具。
VB操作题只需告诉我程序代码编写
你这个问题涉及到的操作步骤比较多，代码很简单；
1，启动VB程序，新建一个项目。
2，在VB窗口，单击[工具]菜单，选择[菜单编辑器]，出现“菜单编辑器”窗口；
在标题框里，输入：文件；
在名称框里，输入：menu1；（注意最后不是英文字母是数字1）
如下图所示：
然后单击[下一个]，再单击向右的箭头按钮，见下图：
在标题框里，输入：打开；
在名称框里，输入：m1；
见下图；
然后单击[下一个]，在标题框里，输入：关闭；在名称框里，输入：m2；
然后单击[下一个]；在标题框里，输入：保存；在名称框里，输入：m3；
见下图：
因为要制作弹出式菜单，所以单击上图中，最下面的空白框里的“文件”，出现下图；
单击[可见]，去掉勾选，见下图；
至此，操作完毕，单击[确定]，回到VB界面；
添加一个按钮控件，改名为“弹出菜单”
代码如下：
Option Explicit
Private Sub Command1_Click()
PopupMenu menu1
End Sub
VB脚本怎么写啊
1、Private Sub Command1_Click()
Const msg1 As String="请在这里输入你想显示的一段话!"
Const msg2 As String="这里是对话框要显示的标题."
MsgBox msg1,vbOkOnly,msg2'此处代码一定不能添加()
End Sub2、 form1按钮点击事件:
form2.show
form1.hide 3、
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib"winmm.dll" Alias"mciSendStringA"(ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mfn As String
下面就是各个对象的代码了:
Private Sub Form_load()
mfn=""
play.Enabled= False
pause.Enabled= False
stopplay.Enabled= False
back.Enabled= False
prew.Enabled= False
Timer1.Enabled= False
Timer1.Interval= 500
End Sub
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError= True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags= cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action= 1
stopplay_Click'停止按钮同时可以设备初始化
mfn=.FileName'这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled= True
End With
play_Click
Exit Sub
err:
End Sub
Private Sub play_Click()
On Error Resume Next
Dim t As Long
t= mciSendString("open"+ mfn, 0&, 0, 0)'Open后边的空格一定不能丢
Dim ret As String* 128
t= mciSendString("status"+ mfn+" length", ret, 128, 0)
'显示歌曲总长
ret= Left(ret, 8)
If ret<>"" Then
ProgressBar1.min= 0
ProgressBar1.Max= Val(ret)
Label3.Caption= Gettime(Val(ret))
End If
play.Enabled= False
pause.Enabled= True
stopplay.Enabled= True
back.Enabled= True
prew.Enabled= True
t= mciSendString("status"+ mfn+" mode", ret, 128, 0)
'得到设备的当前状态，是播放还是暂停等等
ret= Left(ret, 8)
StatusBar1.Panels(1).Text= ret
'在状态栏显示播放状态
t= mciSendString("play"+ mfn+" form"+ Str(ProgressBar1.Value), 0&, 0, 0)
'开始播放
Timer1.Enabled= True
End Sub
Private Sub pause_Click()
t%= mciSendString("pause"+ mfn, 0&, 0, 0)
'发出暂停的命令
play.Enable= True
pause.Enabled= False
stopplay.Enabled= True
back.Enabled= False
prew.Enabled= False
End Sub
Private Sub stopplay_Click()
t%= mciSendString("stop"+ mfn, 0&, 0, 0)
t%= mciSendString("close"+ mfn, 0&, 0, 0)
'停止播放
play.Enabled= True
pause.Enabled= False
stopplay.Enabled= False
back.Enabled= False
prew.Enabled= False
End Sub
Private Sub back_Click()
t%= mciSendString("play"+ mfn+" from"+ Str(ProgressBar1.Value-(ProgressBar1.Max\ 10)), 0&, 0, 0)'向后跳一小段再播放
End Sub
Private Sub prew_Click()
t%= mciSendString("play"+ mfn+" from"+ Stri(ProgressBar1.Value+(ProgressBar1.Max\ 10)), 0&, 0, 0)'向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String* 128
t= mciSendString("status"+ mfn+" position", ret, 0, 0)
'得到当前播放位置
ret= Left(ret, 8)
ProgressBar1.Value= Val(ret)
Label1.Caption= Gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value= ProgressBar1.Max Then
stopplay_Click
End If
t= mciSendString("status"+ mfn+" mode", ret, 128, 0)
ret= Left(ret, 8)
StatusBar1.Panels(1).Text= ret
End Sub
Private Sub Form_Unload(Cacel As Integer)
t%= mciSendString("stop"+ mfn, 0&, 0, 0)
t%= mciSendString("close"+ mfn, 0&, 0, 0)
End Sub
Private Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min, sec
min= position/ 1000
min= min/ 60
sec= min- Int(min)
min= Int(min)
sec= 60* sec/ 100
sec= Int(sec* 100)
Gettime= Str(min)+":"+ Str(sec)
End Function
vb代码怎么编写的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb生成随机数的代码、vb代码怎么编写的信息别忘了在本站进行查找哦。