寻求: VB初学者适用的教材
发布网友
发布时间：2023-11-21 15:26
共4个回答
热心网友
时间：2024-03-01 23:08
VB的程序代码是允许换行书写的，只要在每次换行的最后一个字符加上换行字符“_”就可以了。例如：
Sub PicMove()
Frm.Picture2.Left = Frm.Picture1.Left + _ ’加上换行符
Frm.Picture1.Width
End Sub
2、 如何在设计的时候清空存在的图片？
用鼠标点中该图片，在属性窗口中选中Picture属性，按Del键便可清空图片。
3、 Visual Basic 如何注释一段较长程序代码？
VB注释程序代码的符号是“注释：”，只要在某行程序前面加上“注释：”，就可以注释该行程序。但如果程序代码很长的时候，一行一行地注释令人觉得难以忍受。VB本身提供了这个功能，在主菜单“视图”选项的“工具栏”下，选中Edit，VB的界面会出现一排工具按钮，其中的手形图标按钮后的两个按钮用于“设置注释块”和“解除注释块”。
4、怎么实现鼠标一移上去就出现小提示窗口的功能？
VB 里每个控件都有ToolTipText属性，只要加上一行程序就可以了。
例如：Label1.ToolTipText = "这是提示！"。
5、 如何获得当前软件的运行磁盘目录和命令行参数？
VB里面有个系统对象叫App。App.Path就是当前软件的运行目录。而命令行参数存放在一个系统变量里面，叫Command。程序语句如下：
Label1.Caption=App.Path
Label2.Caption=Command$
6、我想换掉鼠标显示的形状，怎么做？
VB提供的系统控件一般都有MousePointer和MouseIcon属性。我们可以寻找自己喜欢的*.ICO,*.CUR文件，实现的程序如下：
Screen.MousePointer= 99 ’用户鼠标类型
Screen.MouseIcon=LoadPicture("C:\ABC\1.ICO") ’读取鼠标的图标文件
7、如何设置程序的错误出口？
On Error语句用于程序的错误出口处理。一般的处理方法有两种：
1) 遇到错误跳转到某一行程序去执行，On Error GoTo someline。
例如：
On Error GoTo ERR_LINE
...
Label1.Caption=“正确执行”
ERR_LINE:
...
Label1.Caption=“出错了！”
2) 遇到错误之后忽略当前错误，继续执行，On Error Resume Next。
例如：
On Error Resume Next
...
Label1.Caption=“不管对不对都要执行”
...
8、怎样获得键盘输入和判断敲键的Ascii值？
把窗体的KeyPreview属性设置成True，然后在Form_KeyPress 事件里编写程序代码如下：
Private Sub Form_KeyPress(KeyAscii As Integer)
Me.Caption = Str(KeyAscii) ‘取得键盘输入的字符
...
End Sub
9、我希望窗体一运行就在屏幕的中央，怎么实现？
VB的系统对象Screen记录了当前显示模式的高度和宽度，可以利用这个值来设置窗体的位置。
Sub CenterForm(frm As Form) ‘定义过程
frm.Move (Screen.width - frm.width) \ 2, (Screen.Height - frm.Height) \ 2
End Sub
Private Sub Form_Load()
CenterForm Me ’调用过程
End Sub
10、很多软件都有鼠标在文本框TextBox一按下，就选中所有文字的功能，是怎么实现的？
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text) ’过程调用
End Sub
下面是网上的VB实列:
1、播放CD音乐
在很多多媒体软件系统中，都提供了激光唱盘的播放软件，利用多媒体控件MCI.OCX，我们可以轻松地编制出符合自己使用要求的简易激光唱盘播放机。
表1给出了简易CD播放器的主要控制部件定义，其后是对应于各个触发事件的源程序代码。
完整的源程序清单如下:
`CD播放机实用程序
`运行程序前请在CD-ROM驱动器中装入一张激光唱碟’“LOAD”按钮触发事件
Private Sub Command1_Click()
`装入CD唱片
On Error GoTo MCI_ERROR
MMControl1.Command = "Open"
On Error GoTo 0
`设置时间格式
MMControl1.TimeFormat = vbMCIFormatTmsf
`关闭LOAD按钮，显示图片
Command1.Enabled = False
Picture1.Picture = Picture3.Picture
` 设置初始轨道数
Label1.Caption = "1"
Exit Sub
MCI_ERROR:
DisplayErrorMessageBox
Resume MCI_EXIT
MCI_EXIT:
Unload CD
End Sub
Private Sub Form_Load()
MMControl1.Wait = True
MMControl1.UpdateInterval = 0
` 设置设备类型
MMControl1.DeviceType = "CDAudio"
`设置缺省轨道数为0
Label1.Caption = "0"
�nd Sub
Private Sub Form_Unload(Cancel As Integer)
MCITest.Show
End Sub
’“出带”按钮触发事件
Private Sub MMControl1_EjectClick(Cancel As Integer)
Command1.Enabled = True
Picture1.Picture = Picture2.Picture
MMControl1.UpdateInterval = 0
On Error GoTo MCI_ERROR2
MMControl1.Command = "Eject"
MMControl1.Command = "Close"
On Error GoTo 0
Label1.Caption = "0"
Label3.BackColor = &H404040
Exit Sub
MCI_ERROR2:
DisplayErrorMessageBox
Resume Next
End Sub
’“向前”按钮触发事件
Private Sub MMControl1_NextCompleted(ErrorCode As Long)
Label1.Caption = Str$(MMControl1.Track)
End Sub
’“暂停”按钮触发事件
Private Sub MMControl1_PauseClick(Cancel As Integer)
MMControl1.UpdateInterval = 0
Label3.BackColor = &H404040
End Sub
’“播放”按钮触发事件
Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.UpdateInterval = 1000
Label1.Caption = Str$(MMControl1.Track)
End Sub
’“向后”按钮触发事件
Private Sub MMControl1_PrevCompleted(ErrorCode As Long)
Label1.Caption = Str$(MMControl1.Track)
End Sub
Private Sub MMControl1_StatusUpdate()
Label1.Caption = Str$(MMControl1.Position And &HFF)
If MMControl1.Mode = vbMCIModePlay Then
Label3.BackColor = &H80FF&
Else
Label3.BackColor = &H404040
End If
End Sub
’“停止”按钮触发事件
Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.UpdateInterval = 0
Label3.BackColor = &H404040
MMControl1.To = MMControl1.Start
MMControl1.Command = "Seek"
MMControl1.Track = 1
Label1.Caption = "1"
End Sub
2、播放AVI（音频视频接口）文件
电影（包括声音和图像）是广大计算机工作者最为关心的媒体信息之一，电影处理技术也是多媒体关键技术之一。而在多媒体系统中，AVI（Audio Video Interface，音频视频接口）文件是存储电影（包括声音和图像）的标准格式，这些AVI文件一般是通过捕获实时视频信号得来的，也可以通过扫描仪获取图像或者使用动画制作软件得到。于是，屏幕窗口上的音频视频操作，就变成了对AVI文件（文件后缀为AVI）的处理。在实际工作中，播放AVI文件（即影片）的方法有许多种，而其中以利用Visual Basic的多媒体控件方法最为简单、方便。下面以一个具体实例来说明如何播放AVI文件：假设用户当前目录下有名字为DEMO.AVI的视频音频文件，则利用Visul Basic播放该影片需要经过如下步骤：
（1）在Visual Basic的窗体中加入一个MMControl多媒体控件、一个PictureBox图片框控件和两个ComandButton命令按钮部件；
（2）设置各个控件的属性，其中窗体命名为Form1，MMControl多媒体控件命名为MMControl1、PictureBox图片框控件命名为Picture1、两个ComandButton命令按钮控件分别命名为Play和Close；
（3）编写各触发事件源程序代码并且运行。源程序代码为：
Private Sub Play_Click()
MMControl1.Filename = "DEMO.AVI"
MMControl1.DeviceType= = "AVIVIDEO"
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "OPEN"
MMControl1.To = 1
MMControl1.Command = "SEEK"
MMControl1.Command = "PLAY"
End Sub
Private Sub Close_Click()
MMControl1.Command = "STOP"
MMControl1.Command = "CLOSE"
End Sub
值得注意的是：在播放AVI文件之前，首先应该把AVI（音频视频）驱动程序安装在Windows下。AVI的驱动程序名为MCIAVI.DRV，必须将它拷贝到WINDOWSSYSTEM目录下，同时在SYSTEM.INI文件的[MCI]部分加上：
AVIVIDEO=MCIAVI.DRV
这样，运行Windows时，Windows会自动地将AVI的驱动程序安装好。
以上仅描述了利用多媒体控制部件播放音频文件（.WAV）、CD唱片和音频视频文件（.AVI）的操作过程。实际上利用多媒体控制部件同样可以播放动画文件（.FLI、.FLC）、MIDI文件等其他媒体信息。
六、结束语
通过前面论述，不难看出：利用Visual Basic提供的多媒体控制部件MCI.OCX，广大计算机用户可以方便、快捷、高效率地开发出各种多媒体应用程序。但需要强调的是：开发设计Visual Basic多媒体应用程序，除了可以利用多媒体控制部件以外，还可以采用其他手段，例如通过调用API函数等等（鉴于篇幅，这里未做讨论）。可见， Visual Basic确实是专业与非专业多媒体软件开发人员共同拥有的理想开发工具。
附表1 MCI设备类型定义
设备类型 设备描述
CDAudio 激光唱盘播放设备
DAT 数字化磁带音频播放机
DigitalVideo 动态数字视频图像设备
Animation 动画播放设备
Other 未给出标准定义的MCI设备
Overlay 模拟视频图像叠加设备
Sequence MIDI音序发生器
VCR 可以使用程序控制的磁盘录像机
VideoDisc 可以使用程序控制的激光视盘机
WaveAudio 播放数字化波形音频的设备???
附表2 多媒体控制部件特有事件列表
事件 说明
Done 完成MCI命令动作（Notify为真）
ButtonClick 单击按钮
ButtonCompleted 按钮执行命令完成
ButtonGetFocus 按钮获得输入焦点
ButtonLostFocus 按钮失去输入焦点
StatusUpdate 更新媒体控制对象的状态信息
其实多动手和动脑实际操作就能有很好的收获!
热心网友
时间：2024-03-01 23:03
你要是不给我分我可根你急！我给你的保证经典
热心网友
时间：2024-03-01 23:06
中级<VB6组件工具指南><VB6技术内幕>
高级<VB5核心技术>
要更多的书到这里下载:
http://www.ibook8.com/book/vb.htm
热心网友
时间：2024-03-01 23:08
