设计一个Flash播放器，界面如下-太谷中学网站.doc

第十九节　　综合练习 1、设计一个Flash播放器程序，界面如下： 添加外部控件CommonDialog和ShockwaveFlash，加载到窗体。 程序代码如下： Private Sub bf_Click() 单击播放菜单播放Flash If CommonDialog1.FileName Then ShockwaveFlash1.Play 播放Flash End If End Sub Private Sub dk_Click() CommonDialog1.Filter = Flash文件|*.swf CommonDialog1.ShowOpen If CommonDialog1.FileName Then ShockwaveFlash1.Movie = CommonDialog1.FileName 为播放器设置要播放的文件 End If End Sub Private Sub gb_Click() ShockwaveFlash1.Movie = 清除播放器所设置的播放文件 End Sub Private Sub ht1_Click() ShockwaveFlash1.Back 后退一帧 End Sub Private Sub qj1_Click() ShockwaveFlash1.Forward 前进一帧 End Sub Private Sub tc_Click() End End Sub Private Sub zt_Click() ShockwaveFlash1.Stop 停止播放 End Sub 2、设计一个文本编辑器程序，界面如下： 程序代码如下： Private Sub bc_Click() If CD1.FileName Then 如果已有正确的文件名 RichText1.SaveFile CD1.FileName 将文本框中内容保存到文件中 End If End Sub Private Sub bjs_Click() CD1.ShowColor 打开颜色对话框 RichText1.BackColor = CD1.Color 设置文本框的背景颜色 End Sub Private Sub bz_Click() MsgBox (帮助文件暂未建立！) 弹出一个信息对话框 End Sub Private Sub dk_Click() CD1.Filter = 文本文件|*.txt 设置文件类型 CD1.ShowOpen 打开打开文件对话框 If CD1.FileName Then 判断选取了文件 RichText1.LoadFile CD1.FileName 将文件装载到文本框中 End If End Sub Private Sub fz_Click() Clipboard.SetText RichText1.SelText 将选中文本送到剪切板 End Sub Private Sub gb_Click() RichText1.Text = 清空文本框 End Sub Private Sub lcw_Click() CD1.Filter = 文本文件|*.txt 设置文件类型 CD1.ShowSave 打开保存文件对话框 bc_Click 调用过程 End Sub Private Sub qjs_Click() CD1.ShowColor 打开颜色对话框 RichText1.SelColor = CD1.Color 设置所选文本的颜色 End Sub Private Sub qx_Click() RichText1.SelStart = 0 设置选择开始点 RichText1.SelLength = Len(RichText1.Text) End Sub Private Sub tc_Click() End End Sub Private Sub zt_Click() RichText1.SelText = Clipboard.GetText 粘帖到文本框 End Sub Private Sub zt1_Click() CD1.Flags = cdlCFBoth 设置字体通道3 CD1.ShowFont 打开字体对话框 RichText1.SelFontName = CD1.FontName 设置字体 RichText1.SelFontSize = CD1.FontSize 设置字号 RichText1.SelBold = CD1.FontBold 设置加粗 RichText1.SelItalic = CD1.FontItalic 设置倾斜 RichText1.SelUnderline = CD1.FontUnderline 设置下划线 End Sub 3、设计一个绘制正弦三角函数图像