利用VB来实现此功能:
1。新建一个VB工程,包含一个Form(FrmSplash)做应用程序的封面,一个模块(名叫Module1)。
2。在FrmSplash上添加一个时钟控件(Timer1),将其Interval设为1000。
3。在Timer_click()事件中加入如下代码:
Private Sub Timer1_Timer()
If i >= 3 Then
Unload frmsplash
Exit Sub
End If
i = i + 1
End Sub
4。在Module1中加入如下代码:
Sub main()
frmsplash.Show
Dim a As Double
a = Shell("C:MapInfoProfessionalmapinfow.exe -nosplash C:MapInfoProfessional1.mbx", vbNormalFocus)
End Sub