电视节目预告程序源代码Word文档格式.docx
- 文档编号:21815941
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:28
- 大小:24.44KB
电视节目预告程序源代码Word文档格式.docx
《电视节目预告程序源代码Word文档格式.docx》由会员分享,可在线阅读,更多相关《电视节目预告程序源代码Word文档格式.docx(28页珍藏版)》请在冰豆网上搜索。
----------------------------------------------------------
运行和监视外部程序的相关声明
PrivateDeclareFunctionOpenProcessLib"
kernel32"
(ByValdwDesiredAccessAsLong,_
ByValbInheritHandleAsLong,ByValdwProcessIdAsLong)AsLong
PrivateDeclareFunctionGetExitCodeProcessLib"
(ByValhProcessAsLong,_
lpExitCodeAsLong)AsLong
PrivateDeclareFunctionCloseHandleLib"
(ByValhObjectAsLong)AsLong
PrivateiniPathAsString
PrivateConstPROCESS_QUERY_INFORMATION=&
H400
PrivateConstSTATUS_PENDING=&
H103
----------------------------------------------------隐藏图标到系统托盘中
PublicLastStateAsInteger
(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
PrivateConstWM_SYSCOMMAND=&
H112
PrivateConstSC_MOVE=&
HF010&
PrivateConstSC_RESTORE=&
HF120&
PrivateConstSC_SIZE=&
HF000&
----------------------------------------------------
PrivateSubAddJM_Click()
Xgzt=True
AddForm.show
AddForm.Caption="
添加节目"
EndSub
PrivateSubDelJM_Click()
IfMsgBox("
当前记录将被删除,是否继续?
"
16+vbYesNo,"
警告"
)=vbNoThen
ExitSub
EndIf
DataFilsRst.MoveFirst
DoWhileNotDataFilsRst.EOF
IfDataFilsRst!
节目名称=JmThen
StrJm=DataFilsRst!
节目分类
DataFilsRst.Delete
ExitDo
DataFilsRst.MoveNext
Loop
ListView1.ListItems.Clear
节目分类=StrJmThen
tStr=DataFilsRst!
序号
SetItem=ListView1.ListItems.Add(,,tStr)
节目名称
Item.ListSubItems.Add,,tStr
IfListView1.ListItems.Count<
>
0Then
SetItem=ListView1.ListItems
(1)
Jm=Item.SubItems
(1)
Xsjm
Else
RichTextBox1.Text="
StatusBar1.Panels.Item
(2).Text=StrJm
PrivateSubXsjm()
RichTextBox1.FileName=App.Path+DataFilsRst!
文档
SSFrame2.Caption="
《"
&
DataFilsRst!
节目名称&
"
》"
节目内容"
StatusBar1.Panels.Item
(2).Text=StrJm&
--"
PrivateSubDownloadJm_Click()
XzSComd_Click
PrivateSubexit_Click()
UnloadMe
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
l=X\Screen.TwipsPerPixelX+Y\Screen.TwipsPerPixelY
Ifl=WM_LBUTTONDOWNThen
l=DelToTray(hwnd)
TVjmForm.show
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimlMsgAsSingle
lMsg=X/Screen.TwipsPerPixelX
IflMsg=WM_RBUTTONUPOrlMsg=WM_LBUTTONUPThenMe.PopupMenusys
PrivateSubForm_Load()
Tptb=False
Jczt=True
DqDate=Format(Date,"
yy"
)&
/"
Format(Date,"
mm"
dd"
)
TVjmForm.Caption="
全国一周电视节目预告"
V"
App.Major&
."
App.Minor&
.0."
App.Revision
Jmlx=0
ListView1.Top=960
SSCommand2
(1).Top=ListView1.Height+960
SSCommand2
(2).Top=ListView1.Height+1320
SSCommand2(3).Top=ListView1.Height+1680
AddJM.Enabled=True
DelJM.Enabled=False
XgJM.Enabled=False
i=Weekday(Now)
SelectCasei
Case1
myDataxx="
星期日"
Case2
星期一"
Case3
星期二"
Case4
星期三"
Case5
星期四"
Case6
星期五"
Case7
星期六"
EndSelect
OnErrorResumeNext
MyData=Format(Date,"
LongDate"
myDataxx&
Format(Time,"
hh:
mm:
ss"
StatusBar1.Panels.Item
(1).Text=MyData
myInit
节目分类="
中央频道节目"
Then
序号=1Then
Jmdz=DataFilsRst!
StatusBar1.Panels.Item
(2).Text="
中央频道节目--"
IfRichTextBox1.Text<
Forj=0To7'
判断节目数据是否过期
DqDate=Format(Date+j,"
Format(Date+j,"
Where=InStr(RichTextBox1.Text,DqDate)'
在文本中查找字符串。
IfWhereThen'
如果找到,
ExitFor
Ifj=7Then
MsgBox"
当前节目数据文件已经过期,请重新下载新的节目数据。
如果你已经更新,请检查并修改数据。
48,"
数据过期"
RichTextBox1.BackColor=&
HC0E0FF
StatusBar1.Panels.Item
(2).Text=StatusBar1.Panels.Item
(2).Text&
(节目过期)"
Nextj
IfDataFilsRst.RecordCount=0Then
系统中没有数据,请下载数据然后加载到数据库中。
16,"
系统提示"
Search=myDataxx
HFFFFFF
FileDw
IfErr.Number=94OrErr.Number=75Then
数据连接有错误,请检查当前节目数据连接并修改。
数据错误"
XgJM_Click
PrivateSubForm_Resize()'
窗口状态
IfTVjmForm.WindowState=vbMinimizedThen
IfTptb=FalseThen
AddToTrayMe,sys
SetTrayTipTVjmForm.Caption
'
------------------------------
Me.Visible=False
Tptb=True
Me.Visible=True
IfWindowState<
vbMinimizedThenLastState=WindowState
PrivateSubForm_Unload(CancelAsInteger)
End
PrivateSubListView1_ItemClick(ByValItemAsMSComctlLib.ListItem)
IfListView1.ListItems.Count=0Then
XgJM.Enabled=True
DelJM.Enabled=True
IfJmlx=0Then
Jm
ElseIfJmlx=1Then
地方频道节目--"
ElseIfJmlx=2Then
数字频道节目--"
ElseIfJmlx=3Then
境外频道节目--"
Jm&
RichTextBox1.FileName=App.Path+Jmdz
IfJczt=TrueThen
判断节目数据是否过期,日期从当天开始加7天查找,如果加7天后仍然找不到,就证明数据过期,因为网站不能提供提前两周的节目单
)'
取得改变了的时间字符串
在文本中查找“时间”字符串。
Ifj=0Then
数据连接有错误,请单击“确定”后修改数据。
)<
vbYesThen
PrivateSubListView1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
Jczt=False
PopupMenuJmgl
PrivateSubRichTextBox1_Change()
IfRichTextBox1.Text="
Forj=0To6
XqSComd(j).Enabled=False
XqSComd(j).Enabled=True
PrivateSubshow_Click()
WindowState=0
PrivateSubSSCommand1_Click()
ListView1.Top=2000
SSCommand2
(1).Top=960
SSCommand2
(2).Top=1320
SSCommand2(3).Top=1680
PrivateSubSSCommand2_Click(IndexAsInteger)
IfIndex=0Then
ElseIfIndex=1Then
Jmlx=1
ListView1.Top=1320
地方频道节目"
ElseIfIndex=2Then
Jmlx=2
ListView1.Top=1680
SSCommand2(3).Top=ListView1.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电视节目 预告 程序 源代码