| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 182 人关注过本帖
标题:关于不在提醒复选框
只看楼主 收藏
破晓长安
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2017-7-19
结帖率:25%
  已结贴   问题点数:10  回复次数:3   
关于不在提醒复选框
大家好,请问在编辑文件名时候,我想设计弹出窗口:源文件将被删除,是否进行,下面加入复选框写上不在提醒,要求点击此复选框,下一次运行不在弹出该窗体直接默认删除源文件,请问这个复选框下面的程序该怎么编?谢谢
2017-09-13 15:43
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:183
帖 子:4033
专家分:24873
注 册:2008-10-15
  得分:5 
这是一个选项。

模块文件:
程序代码:
Public SET_删除源文件提醒 As Boolean

Public Function 确认删除源文件(FileName As String) As Boolean

Dim 是否删除 As Boolean

If SET_删除源文件提醒 Then           '默认是 FALSE,不再提醒为 TRUE
   是否删除 = True
Else
    Load Form_是否删除源文件提示窗体
    Form_是否删除源文件提示窗体.Label1.Caption = "是否删除源文件:" & FileName & ""
    Form_是否删除源文件提示窗体.Check1.Value = 0            '默认为提示
    Form_是否删除源文件提示窗体.Show vbModal                '以模式窗口模式显示,将堵塞本过程
   
    If Not Form_是否删除源文件提示窗体.确认删除 Then        '确认删除是该窗体代码中定义的全局变量,相应变成该窗体的属性,读写
        Form_是否删除源文件提示窗体.确认关闭 = True         '该变量用于标记窗体是否可以卸载,该变量为False时,在uNload过程中只隐藏自己,返回TRUE
        Unload Form_是否删除源文件提示窗体                  '卸载该窗体,会触发UNload过程,需要上面那个标志
        是否删除 = False
    Else
        If Form_是否删除源文件提示窗体.Check1.Value = 1 Then    '保存设置
            SET_删除源文件提醒 = True
            'Call 保存设置到设置文件                            '该过程自己完善
        End If
        Form_是否删除源文件提示窗体.确认关闭 = True         '该变量用于标记窗体是否可以卸载,该变量为False时,在uNload过程中只隐藏自己,返回TRUE
        Unload Form_是否删除源文件提示窗体                  '卸载该窗体,会触发UNload过程,需要上面那个标志
        是否删除 = True
    End If
End If

If 是否删除 Then
    If Dir(FileName) <> "" Then
        'Kill FileName
        
        'debug
        MsgBox "Kill " & FileName
    Else
        MsgBox FileName & " 文件不存在"
    End If
End If
End Function


这个提示窗体:
程序代码:
Option Explicit

Public 确认删除 As Boolean
Public 确认关闭 As Boolean

Private Sub Command1_Click()        '删除按钮
确认删除 = True
Me.Hide
End Sub

Private Sub Command2_Click()        '不删除按钮
确认删除 = False
Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)    '直接关闭窗体和卸载窗体

If 确认关闭 Then            '
                            '不执行任何代码,已关闭自己
Else                        '
    Me.Hide                 '隐藏自己
    Cancel = False
End If
End Sub


SET_删除源文件提醒 ,该变量值,在程序运行时,需要读相关的设置项目。
另外在总体设置中,应该有该设置项的选项。

授人于鱼,不如授人于渔
早已停用QQ了
2017-09-13 16:43
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:183
帖 子:4033
专家分:24873
注 册:2008-10-15
  得分:0 
调用代码:如

Call 确认删除源文件("F:\bakdoc.cmd")

我测试工程,选项只保存在内存里,所以如果你勾了不再提醒,那么下一次调用这个代码,将直接执行删除部分代码。

代码便于理解,大量了使用的中文变量名。


[此贴子已经被作者于2017-9-13 16:48编辑过]


授人于鱼,不如授人于渔
早已停用QQ了
2017-09-13 16:47
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:51
帖 子:545
专家分:3117
注 册:2016-5-10
  得分:5 
我觉得一个比较简单,可以私聊。

QQ    2653043392
2017-09-14 19:22







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.071891 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved