我学VB是为了过渡到VC的,我做的第一个程序是媒体播放程序。如下: Dim mblnIsOpen As Boolean Private Sub cmdAction_Click(Index As Integer) aniAVI.AutoPlay = False Select Case Index Case 0 dlgOpen.CancelError = True On Error GoTo ErrHandler dlgOpen.Filter = "aviÎļþ(*.avi)|*.avi" dlgOpen.ShowOpen aniAVI.Open dlgOpen.FileName mblnIsOpen = True Case 1 If mblnIsOpen = True Then aniAVI.Play Case 2 aniAVI.Stop Case 3 aniAVI.Close Unload Me End Select Exit Sub ErrHandler: mblnIsOpen = False End Sub
当然第一个还是hello world!
请大家谈谈作为一个初学 VB 者,该从哪里下手?
现在硬盘上最早的是用VB5给老婆做的小程序,
还有pascal程序的文本编辑器,大一学pascal时候写的。其实那个时候学VB都一两年了。
TO: zyl910
游戏修改器?欢迎来联盟看看:gca.yeah.net
那是一个游戏存档修改器
它的纪录是放在注册表里的我当初 最开始使用QB编写
生成reg文件再引入
由于那时不知道“/s”参数
所以总有个提示框于是我就想用VB编
没想到VB没有内置函数
要用注册表API别人是VB学了几个月之后才学API的
我呢
对VB完全不懂就要查注册表API的资料了(而且那个程序我只用了一个多星期(从想用VB编开始算))
好辛苦啊!
第一次自己尝试是做了文件分割器
我学VB到现在也没多久
要学的太多,最近学校忙,没空哦
Dim mblnIsOpen As Boolean
Private Sub cmdAction_Click(Index As Integer)
aniAVI.AutoPlay = False
Select Case Index
Case 0
dlgOpen.CancelError = True
On Error GoTo ErrHandler
dlgOpen.Filter = "aviÎļþ(*.avi)|*.avi"
dlgOpen.ShowOpen
aniAVI.Open dlgOpen.FileName
mblnIsOpen = True
Case 1
If mblnIsOpen = True Then aniAVI.Play
Case 2
aniAVI.Stop
Case 3
aniAVI.Close
Unload Me
End Select
Exit Sub
ErrHandler:
mblnIsOpen = False
End Sub
现在,www.myvc.net将为大家提供一个资源下载的空间!第一批将提供<三层结构源代码>
<开发文档模版>两项。
需要者可去以下网址留下email
http://www.myvc.net/dispbbs.asp?boardID=16&RootID=658&ID=658&page=1
我们也提供资源上传的空间,如果你愿意和大家分享你的资源,你可以和www.myvc.net联系
我用VB做数据库三年了,很少用API
只是在PB和VC里面用API比较多