vb与excel的操纵题,电子表格vb根基操纵题

1. vb根基操纵题

点击文件菜知单，生存工程； 新建一个文件夹，将工程生存到个中即可 这样的生存方式，可以将所有文件生存起来，不道会丢失点击文回件菜单，生存工程； 新建一个文件答夹，将工程生存到个中即可 这样的生存方式，可以将所有文件生存起来，不会丢失

1． 建设措施的用户界面

2． 配置界面上各个工具属性

3． 编写工具响应事件的措施代码

4． 生存工程

5． 测试应用措施，解除错误

6． 建设可执行措施

高中信息技能算法与措施设计(VB)常识要点 进修措施设计的方式：

1、多阅读措施2、实验独立编写措施3、上机验证本身设计的措施 一、措施设计基本常识 1、措施设计语言 措施设计语言：人与计较机交换的语言。

措施：是人们用计较机语言体例的，让计较机去完成必然任务的步调。

措施设计：设计、体例让计较机完成任务的措施的进程。措施设计的一般步调为：提出问题、阐明问题、办理问题。

2、算法 算法：就是办理问题的方式和步调。

Private Sub Form_Load()

Dim a(10), i, x, j As Integer

Dim y As String

For i = 0 To 9

Randomize

a(i) = Int(Rnd(1) * 101)

x = x + a(i)

Next i

Print 元素和= & x

Print 平均值= & x / 10

For i = 0 To 9

If a(i) > (x / 10) Then j = j + 1: y = y & CStr(a(i)) &

Next i

Print 大于平均值的元素个数= & j

Print 大于平均值的元素： & y

Me.Refresh

End Su

用Windows media player 控件。

1，有一个ListBOX控件，上面有多个AVI视频文件可能音乐文件

2，通过上下移动按钮，切换视频文件，怎么实现视频文件的预览？

'将ListBOX控件的MultiSelect属性配置为单选(运行时不能配置，只能在设计时配置好)

'事先在ListBOX控件中选中一个文件并开始播放

private sub List1_click()

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play '播放当前选择的文件

end sub

private sub UpPlay_click()'单击向上按钮

WindowsMediaPlayer1.controls.pause

WindowsMediaPlayer1.controls.stop

List1.Selected(List1.ListIndex-1)=true

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play '播放上一个文件

end sub

private sub DownPlay_click()'单击向下按钮

WindowsMediaPlayer1.controls.pause

WindowsMediaPlayer1.controls.stop

List1.Selected(List1.ListIndex+1)=true

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play '播放下一个文件

end sub

***********************************************************************************

1.怎么加载WindowsMediaPlayer，控件：

在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动转动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。

2.怎么播放音乐文件

只需要将WindowsMediaPlayer1.URL赋相应的值即可。

比方要在窗体加载时播放music.mp3这个文件，只要这样写代码。

Private Sub Form_Load()

WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"

End Sub

留意：个中的\music.mp3是一个相对路径暗示当前目次下的文件，即你的工程所生存的位置。

3.怎么暂停播放

在command按钮中插手如下代码，即可实现。

Private Sub Command4_Click()

WindowsMediaPlayer1.Controls.pause

End Sub

4.怎么在暂停播放之后继承播放

在command按钮中插手如下代码，即可实现。

Private Sub Command3_Click()

WindowsMediaPlayer1.Controls.play

End Sub

假如想实现音乐从新播放，只需要将第二条中播放音乐中代码再写一遍即可。

Private Sub Command5_Click()

WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"

End Sub

5.遏制播放的音乐（封锁播放器）

在command按钮中插手如下代码，即可实现。

Private Sub Command1_Click()

WindowsMediaPlayer1.Close

End Sub

需要出格强调的是WindowsMediaPlayer控件是挪用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默认支持的播放名目为WMA和asf，所觉得了你编写的措施的通用性，最好音乐文件的名目选择WMA的可能ASF的。

windows media player 控件的常用属性及方式

属性/方式 说明

URL:String; 指定媒体位置，本机或网络地点

uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible

playState:integer; 播放状态，1=遏制，2=暂停，3=播放，6=正在缓冲，9=正在毗连，10= 筹备停当

enableContextMenu:Boolean; 启用/禁用右键菜单

fullScreen:boolean; 是否全屏显示

[controls] wmp.controls 播放器根基控制

controls.play; 播放

controls.pause; 暂停

controls.stop; 遏制

controls.currentPosition:double; 当前进度

controls.currentPositionString:string; 当前进度，字符串名目。如“00:23”

controls.fastForward; 快进

controls.fastReverse; 快退

controls.next; 下一曲

controls.previous; 上一曲

[settings] wmp.settings 播放器根基配置

settings.volume:integer; 音量，0-100

settings.autoStart:Boolean; 是否自动播放

settings.mute:Boolean; 是否静音

settings.playCount:integer; 播放次数

[currentMedia] wmp.currentMedia 当前媒体属性

currentMedia.duration:double; 媒体总长度

currentMedia.durationString:string; 媒体总长度，字符串名目。如“03:24”