案例:制作两个程序,一个启动程序,一个主程序。启动程序是唯一入口程序,先对主程序进行更新检查,然后调用主程序。如果用户直接运行主程序,提示错误后退出。
方法实现:
1、主程序启动窗体代码
- Private Sub LoginForm_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Me.Invalidated
- 'TODO 入口参数验证,禁止直接运行本程序,必须通过启动程序调用。平时测试时关闭,正式发布时打开。
- '常量 StartArg 须与启动程序一致
- Dim args As String = ""
- For Each s In My.Application.CommandLineArgs
- args = args & s
- Next
- If args <> StartArg Then
- MsgBox("入口参数有误。")
- Application.Exit()
- End If
- End Sub
2、启动程序调用主程序代码
- Dim myprocess As Process = New Process
- Dim starinfo As ProcessStartInfo = New ProcessStartInfo(AppDomain.CurrentDomain.BaseDirectory.ToString() & RunProgram, StartArg)
- myprocess.StartInfo = starinfo
- myprocess.Start()
今晚是平安夜,祝大家平安吉祥!
- 工资小程序
- 员工工资查询小程序
- 我的微信公众号
- 我的微信公众号扫一扫
评论