VB网络电视编写

软件简介：
0 s' _3 m& Z9 w: Z8 Z" S大家好 我是 shadowplayer QQ：454827094 今天给大家带来的教程
4 v  u' K% U/ T9 w) K  \& n1 y是VB简单编写自己的网络电视小程序。
教程开始之前先来推荐下一个不错的学习网站 www.3800hk.com，在这
* ^% X$ {+ r2 s8 u" N+ l. Y' P里可以找到你想要的所有教程。
. c/ Z. {$ w  m$ C9 Y0 P6 d6 W 好了，教程开始，程序比较简单，大家看下就知道了，主要是给菜鸟朋
' W- f& [+ G: G. [友们试试手，老鸟就飘过吧。
9 `' |4 c2 d' i2 o" d0 b" _- | 先打开VB环境，新建工程，主要就是要用到一个部件 WindowsMediaPlayer，
4 ~0 K& |* p7 n这个东西我想大家都不陌生吧，剩下的事就是加几个网络电视直播地址了，我就
在菜单上添加几个试试，我们先给WindowsMediaPlayer控件改个名字吧，就改成
WMP1吧。好了，再添加一句代码 wmp1.URL =网络电视地址 。我在后面给
大家提供几个地址，别的大家自己去网上找找。好了就添加这两个吧。
电视台添加好了，我们在来给这个WMP添加一个全屏播放的功能，一般的播放
器我们都能双击全屏播放，我们就来添加这个代码，我们找到DoubleClick事件
If WMP1.fullScreen = False Then
. X1 N; i( \, L) P: C3 C9 Y  b WMP1.fullScreen = True
ElseIf WMP1.fullScreen = True Then
! O. R( T! q* F0 o! r: q; { WMP1.fullScreen = False
End If
& j- v) b1 s# ~* m: K* y+ Z意思就是先判断现在是不是全屏，是就变成窗体，不是就变成全屏。
好了代码就这么多很简单，我们也可以添加一些装饰呀什么的上去，我在这里给
: ^# y- y- K+ [1 o/ E/ `2 L* {大家演示一个添加关于信息上去就这样吧，大家自己做了，好了，别的装饰大家自己
Load Form2
% S3 w5 `9 p( f+ v7 \form2.Show
% a4 ^4 t% T- t收集资料了，我就不演示了。程序做好了我们来测试一下 有点卡。。。。。。OK
3 H7 k. i* d4 y2 r1 I程序有效，大家不妨试试。全屏也可以。
我自己是学破解和网络工程，准备考网络工程师的，希望大家加QQ交流。
: m2 C' i; _# C9 l最后希望黑鹰能给我一个邀请码，谢谢！ E-Mail:3291079@163.com
QQ:454827094
好了，教程结束，再见！
中央电视1台
mms://live.cctv.com/live11
+ ?; _2 s# F. ]4 m中央电视2台
mms://live.cctv.com/live12
中央电视3台
mms://live.cctv.com/live13
中央电视4台
mms://live.cctv.com/live14
中央电视5台
! S4 s6 q' z. _' }mms://live.cctv.com/live15
& T# d$ `' S& t: |* u" ^* X中央电视6台
) d( u9 X/ i6 q8 W. Omms://tv.lzu.edu.cn/cctv6
中央电视7台
mms://live.cctv.com/live17
  e% s7 y8 b8 A% X6 S中央电视8台
mms://tv.lzu.edu.cn/cctv8
中央电视9台
mms://live.cctv.com/live19
6 }( Q. E: v, B4 ], ~/ z# b# l5 ?中央少儿频道
# l3 Z* G" Q& y7 pmms://live.cctv.com/livekids
中央西法频道
# j: K; ^3 f/ Lmms://live.cctv.com/livexifa
5 X6 E8 I1 L/ y- C- h中央新闻频道
mms://live.cctv.com/livenews
+ f" s) [$ M6 {3 X% @" C中央音乐频道
mms://live.cctv.com/livemusic
下载地址：

2008-8-19 13:34 上传 VB网络电视编写.rar

下载权限:

版本vip会员

本地下载 检测资源

有些游戏资源需要vip下载开通请点击开通vip