软件简介：( ^0 U+ x" `: h0 Y1 L" G0 H
大家好 我是 shadowplayer QQ：454827094 今天给大家带来的教程
`5 s& _) o. s! `0 S1 C; O' n3 \是VB简单编写自己的网络电视小程序。9 s- a6 Z: T( M; T: j5 [ X( v
教程开始之前先来推荐下一个不错的学习网站 www.3800hk.com，在这
. |3 F! V7 g1 K# S, w里可以找到你想要的所有教程。% i: _" H9 V# Y; h# E
好了，教程开始，程序比较简单，大家看下就知道了，主要是给菜鸟朋$ @6 }8 `& X4 V0 p
友们试试手，老鸟就飘过吧。* _) Y, C; }, `" l1 q- ]8 s8 \
先打开VB环境，新建工程，主要就是要用到一个部件 WindowsMediaPlayer，
, b. x3 V( z& x7 f& }% Z6 {) A这个东西我想大家都不陌生吧，剩下的事就是加几个网络电视直播地址了，我就' O; q1 M6 `7 f6 |
在菜单上添加几个试试，我们先给WindowsMediaPlayer控件改个名字吧，就改成
: m9 U; U( I8 p1 X5 v3 m4 H2 cWMP1吧。好了，再添加一句代码 wmp1.URL =网络电视地址 。我在后面给, l# g, n& t/ B- d3 B
大家提供几个地址，别的大家自己去网上找找。好了就添加这两个吧。
/ }3 x% R2 [. \/ O8 Q 电视台添加好了，我们在来给这个WMP添加一个全屏播放的功能，一般的播放
9 n" W- { u! E; i9 t/ v器我们都能双击全屏播放，我们就来添加这个代码，我们找到DoubleClick事件
* ]1 Q. U9 g# Z0 n If WMP1.fullScreen = False Then " _: f* R/ ?0 g% j F, ?/ h6 H
WMP1.fullScreen = True1 |) @* _; U/ T* G" A$ ~7 x
ElseIf WMP1.fullScreen = True Then
, @! N( O8 O0 S( u1 |9 c WMP1.fullScreen = False
& q& q5 y R! u( s- q$ P, u: q+ \4 Q End If
! b6 \1 Z$ ]$ M+ r意思就是先判断现在是不是全屏，是就变成窗体，不是就变成全屏。, K# }0 a8 X/ a1 F& c6 `: k
好了代码就这么多很简单，我们也可以添加一些装饰呀什么的上去，我在这里给
4 a( O, b' U9 I7 Z2 Y- J' @/ ]大家演示一个添加关于信息上去就这样吧，大家自己做了，好了，别的装饰大家自己
; K0 j$ a2 N" R" j5 p- ZLoad Form2: a) C! m, Z6 n: ]0 [
form2.Show
4 j) E7 F) }7 Y2 q收集资料了，我就不演示了。程序做好了我们来测试一下 有点卡。。。。。。OK7 N, e/ C: F# E5 c
程序有效，大家不妨试试。全屏也可以。. S/ S' y% C# b5 |# |8 n3 H
我自己是学破解和网络工程，准备考网络工程师的，希望大家加QQ交流。3 X* r& `. `- Y0 T1 m8 k$ n: P; y
最后希望黑鹰能给我一个邀请码，谢谢！ E-Mail:3291079@163.com
9 \% u. X( [8 }! m n2 e8 O QQ:454827094
) N" |) g6 ]5 ?+ T G好了，教程结束，再见！% y' I9 M' y, B# B
中央电视1台& D2 E& A; u! \* L+ T3 M
mms://live.cctv.com/live11
- e6 l# J9 \% b7 P7 R; n2 g中央电视2台5 f- m* ~" ^- p6 ~& H7 v
mms://live.cctv.com/live12* C* T" d3 K" ]# L7 T3 k! t4 d/ w
中央电视3台
8 ?" ~- S# S# I [, ~mms://live.cctv.com/live132 h2 ~4 [, u# j1 O
中央电视4台: `* f2 G: p, U5 n' |' H+ |4 t$ n. l" S- z
mms://live.cctv.com/live147 Y D' A/ ?8 j/ F; V
中央电视5台4 U- R8 c% X4 g" F( M
mms://live.cctv.com/live15
' k- o6 v$ {( t2 g E5 I) ~+ v: o中央电视6台
; F$ @; N5 K* d( Amms://tv.lzu.edu.cn/cctv6! |0 b% ^+ Y( \5 H! L
中央电视7台+ h4 f2 F% r$ D6 o, r7 R c, ?
mms://live.cctv.com/live17
& C4 l# V! {) N# j9 O中央电视8台 T9 w i ~4 I1 c( q' S
mms://tv.lzu.edu.cn/cctv8
) k0 \4 n9 j( [' Q$ ?# D4 o中央电视9台3 z8 w$ L" D8 E
mms://live.cctv.com/live19
+ `2 v0 E$ u; F8 v中央少儿频道9 V+ U& a( c: M4 ~ I
mms://live.cctv.com/livekids9 Q1 M( `8 Y# \5 e4 {$ t" `
中央西法频道, w$ ]8 G. p/ f9 x, ^
mms://live.cctv.com/livexifa
, H$ E) |! p* b+ H9 m: ~中央新闻频道: [6 \1 ^7 d: U; d1 @. f! B1 N. o
mms://live.cctv.com/livenews7 K, m4 ]9 T( T; L! P4 a
中央音乐频道& f# y! Z5 y5 b- g2 q5 V& h
mms://live.cctv.com/livemusic
O9 j4 a" l x下载地址：
|
剑宗一键端
