首页

  1. 首页
  2. 测绘论文
  3. 内容

如何去掉 Mapinfo 的软件封面

利用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

相关文章

回到顶部
请复制以下网址分享
如何去掉 Mapinfo 的软件封面
https://m.gc5.com/chgc/chlw/10171153.html