一、vb中怎么添加控件
1、首先打开VB6.0，选择“标准EXE”。
2、然后按下键盘上的“Ctrl+T”来选择部件。
3、在其中找到“Microsoft Multimedia Control 6.0”选项。
4、点击左侧的小框框来选中。
5、点击对话框下部的确定按钮来完成添加。
6、此时，工具箱内就会出现小部件。
7、点击小部件，然后在窗体中画出小部件。
8、画完后，展现效果图。
9、关于MMcontrol的设置可以在右侧进行。
10、就这样，MMcontrol添加成功，可以为它书写代码了。
二、PPT中插入vb的控件
在ppt中按Alt+F11，打开VBA编辑器，新建个模块，
建立如下两个宏。
'OnSlideShowPageChange 幻灯片开始放映或切换都会激发
Sub OnSlideShowPageChange()
MsgBox "把你的vb控件运行代码放这，每次切换都运行"
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
MsgBox "或者，把你的vb控件运行代码放这，只运行一次"
End If
End Sub
'OnSlideShowTerminate 只在结束幻灯片放映时激活
Sub OnSlideShowTerminate()
MsgBox "幻灯片放映结束!"
End Sub
以上两个宏是当幻灯片放映时激活运行的。如果你想在文件夹中双击打开ppt文件就运行宏。可以把文件保存为.pps类型。同时注意把宏的安全性设置在‘低’。
三、怎么在ppt里插入vb程序以随机调用文本
文本的我会，如图排列一下对象，名称图上有标
然后用VBA
因为急，所以用网上1现成的改动了一下，快停电了.....
这是VBA
Dim txtline
Private Sub CommandButton2_Click()
Dim TextLine1
If xhs.Text = "" Then
aa = MsgBox("请输入与本Powerpoint文件在同一文件夹下文本文件名!", vbDefaultButton4, "提示")
ElseIf xhs.Text + ".txt" <> Dir(xhs.Text + ".txt") Then
aa = MsgBox(" 该文件不存在!请输入与本Powerpoint文件在同一文件夹下" + vbCrLf + "其他文本文件的文件名后再按“导入”。", vbDefaultButton4, "提示")
xhs.Text = ""
Else
Open xhs.Text + ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine1
h = h + TextLine1 + vbCrLf
Loop
txtline = Split(h, vbCrLf)
Length = UBound(txtline)
LineCount.Text = CStr(Length)
If LineCount.Text > 0 Then Go.Enabled = True
xms.Text = h + vbCrLf
End If
Close #1
End Sub
Private Sub CommandButton4_Click()
xms.Text = ""
End Sub
Private Sub Go_Click()
If CInt(TargetLine.Text) < CInt(LineCount.Text) Then
xms.Text = vbCrLf + "这是第" + TargetLine.Text + "行的内容" + vbCrLf + txtline(CInt(TargetLine.Text) - 1)
Else
aa = MsgBox("行数超出文本最大行数", vbDefaultButton4, "提示")
End If
End Sub
说明下：CommandButton2 是那个导入的名称.....
这个很简单的，一看就明白，就是读出来，然后用split将其打开成数组，然后分数组读出来就OK...
