VB6.0添加 windowsmediaplayer控件但拒绝权限怎么办？这个控件是有的

1.如何加载WindowsMediaPlayer，控件：

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

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

例如要在窗体加载时播放music.wma这个文件，只要这样写代码。Private Sub Form_Load()

WindowsMediaPlayer1.URL = App.Path &"\music.wma"

End Sub'注意：其中的\music.wma是一个相对路径表示当前目录下的文件，即你的工程所保存的位置。你也可以使用绝对路径，如：WindowsMediaPlayer1.URL = "C:\music.wma"

3.如何暂停播放在command按钮中加入如下代码，即可实现。

Private Sub Command4_Click()

WindowsMediaPlayer1.Controls.pause

End Sub4.如何在暂停播放之后继续播放

在command按钮中加入如下代码，即可实现。Private Sub Command3_Click()

WindowsMediaPlayer1.Controls.play

End Sub如果想实现音乐从头播放，只需要将第二条中播放音乐中代码再写一遍即可。Private Sub Command5_Click()

WindowsMediaPlayer1.URL = App.Path &"\music.wma"

End Sub5.停止播放的音乐（关闭播放器）

在command按钮中加入如下代码，即可实现。Private Sub Command1_Click()

WindowsMediaPlayer1.Close

End Sub需要特别强调的是WindowsMediaPlayer控件是调用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默认支持的播放格式为wma、mp3、asf。 视频：添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL = "视频文件路径"

flash：添加一个shodkwave flash控件，语法：

ShockwaveFlash1.Movie = "flash文件路径"

可以用commondialog打开本地文件(commondialog.showopen)：

文件路径用 commondialog.filename

1.办法一,你改成如下语句试试

If Grid1.Row <>Grid1.Rows - 1 Then SendKeys "{PGDN}"

If Grid1.Row <>1 Then SendKeys "{PGUP}"

2.或使用以下代码，或许会更好一些，鼠标滚动一次只做一行滚动，我的一个软件里就是使用这种方法。

Public Function FlexScroll(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

On Error Resume Next

Select Case wMsg

Case WM_MOUSEWHEEL

Select Case wParam

Case -7864320 '向下滚

Grid1.TopRow = Grid1.TopRow + 1

Case 7864320 '向上滚

Grid1.TopRow= Grid1.TopRow - 1

End Select

End Select

FlexScroll = CallWindowProc(Oldwinproc, hWnd, wMsg, wParam, lParam)

End Function

'//0悬赏分,你太小气了吧?呵呵

'//你这段代码是不是允许FlexGrid或HFlexGrid控件可以通过鼠标中键向上下滚动的，如果是，那Grid1表示FlexGrid或HFlexGrid控件,如果不是，那你增加一个On Error Resume Next后再试一下。

'//如果还有问题，那你需要详细描述你代码要达到的目的，我再帮你看看。

vb实时：错误代码：70 拒绝的权限

原因：客户端的用户没有通过中间层服务器的身份验证，所以导致登录主控台时出现该提示，或者是中间层服务器/客户端上中了病毒，把分布式COM停止了。

解决方法：

a ) 该方法通常适用于一台或数台客户端不能登录的情况，不适用于所有的客户端不能登录的情况，首先，检查服务器上有无该客户端当前登录用户名，如有则可能是客户端的擅自更改了客户端的用户windows登录密码，该密码并未得到中间层服务器的认可，请改回原密码。

b) 该方法通常适用于部分客户端不能登录的情况，如果密码没有改变，出现该错误代码，则有可能是该客户端上的COM服务被病毒停止，请在该客户端上的开始菜单—设置—控制面板—管理工具—组件服务—在出现的窗口中，选择左侧的组件服务—计算机—用鼠标右击”我的电脑”,选择”属性”—在新出现的窗口中选择”默认属性”选项卡—把第1个”在计算机上启用分布式COM”勾选,在”默认身份验证级别”下选”无”,在”默认身份模拟级别”下选”匿名”—点击”确定”后退出，启动K3，如果K3不能启动，则把客户端重新启动即可。

---