Sykborne Phantasia » 日志 » 最近在忙3——电子日历浏览程序（VB）
最近在忙3——电子日历浏览程序（VB）
血腥妖精 发表于 2007-01-12 14:35:13
这是我们本周《软件工程》课程设计的成果。
虽然不是很难（非计算机专业的同学都能轻松编制），但一直在调试和修改，这点很麻烦～
哎，总算完成了！
1 用FrontPage或Dreamweaver或记事本，编写12张网页。每页代表一个月份。
2 启动VB，在菜单中选“工程”→“部件”→添加“Microsoft Internet Control”控件,用该控件画出WebBrowser窗口，然后添加其它相关控件。
3 代码如下
Dim dizhi ＇定义“地址”
Private Sub Command1_Click()
WebBrowser1.Navigate dizhi(List1.ListIndex)
End Sub ＇“浏览”按钮的代码
Private Sub Command2_Click()
End
End Sub ＇“退出”按钮的代码
Private Sub Form_Load()
WebBrowser1.Navigate "F:\li-日历\index.htm" ＇“封面”按钮的代码
dizhi = Array("F:\li-日历 January.htm", "F:\li-日历 February.htm", "F:\li-日历 March.htm", "F:\li-日历 April.htm", "F:\li-日历 May.htm", "F:\li-日历 June.htm", "F:\li-日历 July.htm", "F:\li-日历 Augest.htm", "F:\li-日历 September.htm", "F:\li-日历 October.htm", "F:\li-日历 November.htm", "F:\li-日历 December.htm")
End Sub ＇“ListBox”内容的代码（1～12月）
其中，"F:\li-日历\index.htm"等内容可更换。
曾经的这一天...
- » 2006年: 网志丢失， 不已，痛骂不能！
相关日志:
收藏:
QQ书签
del.icio.us
订阅:
Google
抓虾
