多工程结构的选用
这几天忙于在软件内增加视频内容,推迟了几天发帖;
2、多工程结构的选用——就是按每一届奥运会邮集作为一个工程。为此,多工程要解决如下几个问题:
(1)每个工程内各页面的转接;
***主页面间的转接——在工程内从一个主页面要转到forma2的页面时,就用下面代码:
Unload forma2 '先关闭再打开,为什么要这样做您知道吗?
Load forma2
forma2.Show
***主页面向副页面转接——如点击主页面上的奖牌图“image1”,就弹出xj18a01a副页面,用下面代码:
Private Sub Image1_Click()
Load xj18a01a
xj18a01a.Show
End Sub
***主页面与网站的链接——当您点击主页面左上角的《奥运邮集》网站图标时,就会进入IE系统的奥运邮集网站;
有两个链接方案:
第一个方案:Shell "explorer.exe http://www.
jrs123.com"——这个方案的优点是代码简单,但不足的是打开的网站网页是处于最小化状态;
第二个方案:需要二段代码和一个属性设置——这个方案的优点是打开网站的网页是处于最大化状态。缺点是代码多,设置稍烦锁。
第一段声明:
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal Hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
第二段转接代码:
Dim web As String '链接网站用,网址放在Combo1的属性Text中
web = Combo1.Text
ShellExecute 0&, vbNullString, web, vbNullString, vbNullString, 0
提示:被链接的网站网址要放在网址放在Combo1的属性Text中