VB
Allen 2022-09-07 08:51:44 2874 0 0 0 0
VB,VB中关闭窗体,打开自动运行并关闭程序

VB中关闭窗体

'打开form2,然后关闭form2,只运行form2中onload中代码
Private Sub btnShowIP_Click()
    Form2.Show
    Unload Form2  '关闭form2
End Sub

打开自动运行并关闭程序

Private Sub Form_Load()
      
    Dim pParam As String
    Dim aParam() As String
    
    pParam = Command & ",,,,,"  '添加额外空参数,避免参数为空时报错
    aParam = Split(pParam, ",")
    
    '读取参数值
    xpMode = aParam(0)
    
    '参数示例:0, p1, p2, p3, d:/111.txt
    '1,是否自动运行,=1时,自动获取并设置;=0时不自动,显示窗体
    
    '设置默认参数值
    If Trim(xpMode) = "" Then
        xpMode = "0"
    End If  
    
    If Trim(xpMode) = "1" Then
        Call btnGetSet_Click  '调用按钮过程
        Call btnSetNew_Click  '调用按钮过程
        End   '运行完程序,关闭程序
    End If
End Sub

【版權聲明】
本文爲原創,遵循CC 4.0 BY-SA版權協議!轉載時請附上原文鏈接及本聲明。
原文鏈接:https://tdlib.com/am.php?t=YAYpbCHbaliC
Tag: VB
我也要發一個   ·   返回首頁   ·   返回[VB]   ·   前一個   ·   下一個
歡迎評論
未登錄,
請先 [ 註冊 ] or [ 登錄 ]
(一分鍾即可完成註冊!)
返回首頁     ·   返回[VB]   ·   返回頂部