文档建议反馈控制台
首页
学习
活动
专区
工具
TVP
最新优惠活动
文章/答案/技术大牛
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

增加GetOpenFileName文件选择对话框的文件名字段中的字符数

增加GetOpenFileName文件选择对话框的文件名字段中的字符数可以通过修改对话框模板来实现。以下是一个简单的示例，展示了如何使用VB6中的对话框模板来增加文件名字段的字符数：

  1. 打开VB6，创建一个新的标准EXE项目。
  2. 在“工具箱”中找到“CommandButton”控件，将其添加到窗体上。
  3. 双击“CommandButton”控件，在代码编辑器中打开“Click”事件处理程序。
  4. 在代码编辑器中，粘贴以下代码：
代码语言：vb
复制

Private Sub Command1_Click()

代码语言：txt
复制
Dim lCustData As Long
代码语言：txt
复制
Dim sFile As String
代码语言：txt
复制
Dim sInitDir As String
代码语言：txt
复制
Dim sTitle As String
代码语言：txt
复制
Dim sFilter As String
代码语言：txt
复制
Dim iFilterIndex As Integer
代码语言：txt
复制
Dim sFileName As String
代码语言：txt
复制
Dim iMaxFileTitleLen As Integer
代码语言：txt
复制
Dim iFlags As Integer
代码语言：txt
复制
Dim iFileOffset As Integer
代码语言：txt
复制
Dim iFileExtension As Integer
代码语言：txt
复制
Dim iFileDescription As Integer
代码语言：txt
复制
Dim sHook As String
代码语言：txt
复制
Dim sTemplate As String
代码语言：txt
复制
' 设置对话框标题
代码语言：txt
复制
sTitle = "选择文件"
代码语言：txt
复制
' 设置初始目录
代码语言：txt
复制
sInitDir = "C:\"
代码语言：txt
复制
' 设置文件过滤器
代码语言：txt
复制
sFilter = "所有文件 (*.*)|*.*|文本文件 (*.txt)|*.txt|Excel文件 (*.xlsx)|*.xlsx"
代码语言：txt
复制
' 设置默认过滤器索引
代码语言：txt
复制
iFilterIndex = 1
代码语言：txt
复制
' 设置文件名字段的最大长度
代码语言：txt
复制
iMaxFileTitleLen = 100
代码语言：txt
复制
' 设置对话框标志
代码语言：txt
复制
iFlags = &H4 Or &H10 Or &H200 Or &H80000 Or &H2000000 Or &H40000000 Or &H8000000 Or &H1000000 Or &H200000
代码语言：txt
复制
' 设置文件名字段的偏移量
代码语言：txt
复制
iFileOffset = 0
代码语言：txt
复制
' 设置文件扩展名的偏移量
代码语言：txt
复制
iFileExtension = 0
代码语言：txt
复制
' 设置文件描述的偏移量
代码语言：txt
复制
iFileDescription = 0
代码语言：txt
复制
' 设置对话框模板
代码语言：txt
复制
sTemplate = "DLGTEMPLATE " & vbTab & "80, 80, 230, 160, " & sTitle & vbCrLf & _
代码语言：txt
复制
            "STYLE " & vbTab & "WS_CHILD | WS_VISIBLE | DS_MODALFRAME | DS_SETFONT | DS_SETFOREGROUND | WS_CLIPSIBLINGS" & vbCrLf & _
代码语言：txt
复制
            "EXSTYLE " & vbTab & "WS_EX_DLGMODALFRAME" & vbCrLf & _
代码语言：txt
复制
            "FONT 8, " & "MS Shell Dlg" & vbCrLf & _
代码语言：txt
复制
            "CLASS " & vbTab & "DIALOGEX" & vbCrLf & _
代码语言：txt
复制
            "CAPTION " & vbTab & """" & sTitle & """" & vbCrLf & _
代码语言：txt
复制
            "BEGIN" & vbCrLf & _
代码语言：txt
复制
            "    DEFPUSHBUTTON   ""打开"",IDOK,75,140,50,14" & vbCrLf & _
代码语言：txt
复制
            "    PUSHBUTTON      ""取消"",IDCANCEL,135,140,50,14" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""文件名: "",Edit,ES_AUTOHSCROLL | ES_LEFT | ES_OEMCONVERT | WS_TABSTOP,75,10,140,12,WS_EX_CLIENTEDGE" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""文件类型: "",ComboBox,CBS_DROPDOWNLIST | CBS_AUTOHSCROLL | WS_VSCROLL | WS_TABSTOP,75,30,140,120,WS_EX_CLIENTEDGE" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""查看"",Static,SS_LEFT,75,50,140,8" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""路径: "",Static,SS_LEFT,75,60,140,8" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""文件: "",Static,SS_LEFT,75,70,140,8" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""文件夹: "",Static,SS_LEFT,75,80,140,8" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""&上一级"",Button,BS_PUSHBUTTON | WS_TABSTOP,10,140,50,14" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""&新建文件夹"",Button,BS_PUSHBUTTON | WS_TABSTOP,60,140,50,14" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""列表"",Static,SS_LEFT,75,90,140,8" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""&确定"",Button,BS_DEFPUSHBUTTON | WS_TABSTOP,135,140,50,14" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""&取消"",Button,BS_PUSHBUTTON | WS_TABSTOP,200,140,50,14" & vbCrLf & _
代码语言：txt
复制
            "    CONTROL         ""&浏览"",Button,BS_PUSHBUTTON | WS_TABSTOP,10,110,50,14" & vbCrLf & _
相关搜索:使用GetOpenFileName仅获取路径中的文件名TinyMCE -增加摘要中的字符数计算文件中的字符数计算excel中字段中的指定字符数字段除以子字符串中的字符数批处理文件:根据输入的字符数删除文件名前缀Java -文件名中的特殊字符所以。我试图让我的文本字段下的字符数在屏幕上增加，但没有增加R-按文件名中的日期选择文件统计文件中的字数、行数、字符数使用R删除文件名中的字符自动选择带有筛选器的文件夹中的所有文件(不使用Application.GetOpenFileName的替代方案)从logstash中的文件名条件创建字段Ajax工具包文件名问题(文件名中的非法字符)Java保存文件名中包含特殊字符的文件正在创建文件名中包含随机数的文件吗？使用C++中的OPENFILENAMEA类保存文件对话框中的默认文件名统计文件中的字符数、字数和行数读取文件中的字符数和单词数Python:删除文件名中的一些字符后比较文件名
相关搜索:
页面内容是否对你有帮助？
有帮助
没帮助

相关·内容

python批量替换文件名中的共同字符实例

，就考虑把这个文件夹下所有的文件名批量删除Lesson和空格，使之变成： 1-2 单词解读.mp4 这里主要使用的就是os模块下的listdir，chadir和rename三个方法 虽然最后还是排序不正确...代码如下 # -*- coding: UTF-8 -*- import os #获得文件夹下文件名列表 path=r"G:\BaiduNetdiskDownload\第1册" path=unicode...(path,"utf8") file_list=os.listdir(path) #选择要重命名的文件夹路径 os.chdir(path) #将文件名中的Lesson和空格用空字符串替代 for file...补充知识：python实现替换某个文件中的某个字符串（全部替换） 我就废话不多说了，咱还是直接看代码吧！ #!...print('3[1;31;40m') print(desc,str) print('3[0m') if __name__ == '__main__': run() 以上这篇python批量替换文件名中的共同字符实例就是小编分享给大家的全部内容了

2.4K20

ExcelVBA打开文件对话框之.GetOpenFilename 方法

ExcelVBA打开文件对话框之Application.GetOpenFilename 方法 Application.GetOpenFilename 方法 显示标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件...参数 返回值 Variant 【说明】 在 FileFilter 参数中传递的该字符串由文件筛选字符串对以及后跟的 MS-DOS 通配符文件筛选规范组成，中间以逗号分隔。...每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选 - 文本和加载宏：“文本文件 (*.txt)、*.txt、加载宏文件 (*.xla)、*.xla”。...如果 MultiSelect 为 True，则返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框，则该值为 False。 本方法可能更改当前驱动器或文件夹。...【示例】 此示例显示“打开”对话框，并将文件筛选设置为文本文件。如果用户选择了文件名，则此代码在消息框中显示该文件名。

2.9K20

    • Application主程序对象方法（三）

    基 础 知 识 Application对象的GetOpenFilename方法，可以打开一个标准的“打开”对话框，当用户在对话框中单击”打开“按钮时，将返回选择的路径和文件名（实际不会真正打开文件）。...1、参数FileFilter，指定文件筛选条件的字符串。 表示在“打开”对话框中“文件类型”下拉列表中的内容，由文件筛选字符串和通配符表示的文件筛选规则说明组成，中间用逗号隔开。...3、参数Title，指定对话框的标题。默认情况下，标题为“打开”。 4、参数ButtonText，不用。 5、参数MultiSelect，默认情况下为False，只允许选择一个文件名。...设置为True允许选择多个文件名称，返回值是一个包含所有选定文件名的数组（即使仅选定一个文件名。） 示 例 一 下面以筛选文本文件为例，选择单个文件，返回文件的地址，在立即窗口中显示。...由于方法的最后参数选择true，在弹窗中无论选择一个还是多个，返回值strname是一个数组，而如果点击取消，则返回false字符串。

    1.6K20

    Python识别文件名中的字段从而分类、归档栅格文件到不同文件夹

    其中，如上图中紫色框所示，每一景遥感影像文件的文件名称中，都有一个表示其编号的字段；我们希望基于这一编号字段，将带有相同编号字段的栅格遥感影像文件，以及其对应的辅助信息文件，都复制到一个结果文件夹中；这个结果文件夹如下图所示...例如，我们希望将所有文件名称中带有15字段的栅格遥感影像文件及其辅助信息文件，都复制到结果文件夹中名称为15的子文件夹中，以此类推。   知道了具体需求，我们即可开始代码的撰写。...代码的整体思路也非常简单。首先，我们需要导入os、re与shutil等3个Python库，分别实现系统文件遍历、字符串匹配与遥感影像文件的复制。...我们基于每一个文件的文件名称的规则，通过split()函数，将其中表示编号的字段以及这一字段之后的内容提取出来；紧接着，基于re.findall()函数，通过字符串匹配的方式，将表示编号的字段（也就是文件名称中的数字部分...如下图所示，可以看到结果文件夹中，名称为15的子文件夹内，包含的就是文件名称中带有15字段的所有遥感影像文件及其对应的辅助信息文件。   至此，大功告成。

    15810

    linux中操作带有空格和特殊字符的文件名

    /-abc.txt 注意：您可以将nano替换为您选择的任何其他编辑器，例如vim： >vim -- -abc.txt or >vim ..../-abc.txt 如果文件夹中有很多文件名包含破折号，并且您想一次删除所有文件，请执行以下操作： >rm ./-* 重要注意事项： 1.对于文件名称中任意数量的连字符及其出现，遵循与上述相同的规则...处理文件 / 文件夹名称中的其他特殊字符文件名中的加号 (+)不需要任何额外的东西，只需按照正常方式进行，如下所示的简单文件名。...在这种情况下，正斜杠不是真正的正斜杠，而是一个看起来像正斜杠的 Unicode 字符。 文件名中的问号 ?同样，您不需要进行任何特殊尝试的示例。可以以最一般的方式处理带有问号的文件名。...您可以在任何位置拥有一个名称包含波浪号的文件，如下所示： >touch ~1a.txt or $touch 2b~.txt 文件名中的空格 创建一个名称在字符 / 单词之间有空格的文件，说 “嗨，我的名字是

    7.4K20

    C++ Qt开发：标准Dialog对话框组件

    在 Qt 中，标准对话框提供了一些常见的用户交互界面，用于执行特定任务，例如获取用户输入、选择文件路径、显示消息等。这些对话框通常具有标准化的外观和行为，使得在不同的平台上能够保持一致性。...items: 字符串列表，表示下拉框中的选项。currentItem: 初始时被选中的项的索引。editable: 是否允许用户编辑下拉框中的文本。...2.1.1 选择文件在选择单个文件时可以通过调用getOpenFileName方法实现，QFileDialog::getOpenFileName 是 Qt 中用于显示打开文件对话框并获取用户选择的文件名的静态方法...方法返回用户选择的文件名，如果用户取消了对话框，则返回一个空字符串。你可以根据需要调整过滤器、默认目录等参数，以满足你的具体需求。...方法返回用户选择的文件名，如果用户取消了对话框，则返回一个空字符串。你可以根据需要调整过滤器、默认目录等参数，以满足你的具体需求。

    52710

    Application主程序对象方法（四）

    GetSaveAsFilename方法 Application对象的GetSaveAsFilename方法，可以打开一个标准的“另存为”对话框，在该对话框中用户可以选择（或输入）一个文件名，该方法只返回文件名及其路径...如果省略本参数， Microsoft Excel 将使用活动工作簿的名称作为建议的文件名。 2、参数FileFilter可选。指定文件筛选条件的字符串。...如果省略本参数，则默认参数值为“所有文件 (*.*), *.*”。和上节介绍的GetOpenFilename方法的第一参数一样。 由文件筛选字符串和通配符表示的文件筛选规则说明组成，中间用逗号隔开。...每个字符串都在“文件类型”下拉列表框中列出。...示例 下面打开“另存为”对话框，选择好保存的路径后，输入保存的文件名，单击“保存”就返回设置的文件名和位置。

    1.5K20

    使用字符串操作来获取图片路径中的文件名

    path.lastIndexOf('/') + 1); console.log(fileName); // 输出 "12.png" 代码使用了字符串操作来获取路径中的文件名...const fileName = path.substring(path.lastIndexOf('/') + 1); 使用了字符串的substring和lastIndexOf方法来获取路径中的文件名。...让我们逐步解释： path.lastIndexOf('/')：lastIndexOf方法返回指定字符（斜杠/）在字符串中最后一次出现的索引。在这里，它返回最后一个斜杠/的索引位置。...+1：将最后一个斜杠的索引位置加1，以获取文件名的起始位置。 path.substring(...)：substring方法截取字符串中指定范围的部分。...根据你提供的代码和路径，fileName将被赋值为"12.png"，并通过console.log输出。它提取了路径中最后一个斜杠后面的部分，即文件名。

    24120

    【Windows编程】系列第八篇：创建通用对话框

    当然除了这些单独的控件之外，对于像文件打开、保存对话框，字体对话，颜色对话框等对于Windows本身会用到，在很多第三方的应用程序中也会用到。...要使用公用对话框函数，需要包含commdlg.h头文件，相关的数据结构和函数定义都在该头文件中定义。...lpstrFile：该参数用于保存选择结束后的选择文件。 nMaxFile：该参数指出上面用于保存结果文件的buffer字符长度。 Flags：该参数最常见用于设置是否可以多选，其他请查看MSDN。...文件保存对话框 文件保存对话框跟文件打开对话几乎完全一样，参数相同。功能也是为用户保存文件时选择或新建文件名、保存路径进行选择的公共操作接口。...(&ofn))//GetOpenFileName, GetSaveFileName { LPTSTR file = ofn.lpstrFile; //file就是保存或者打开的文件名 hDC

    1.3K140

    【Python篇】PyQt5 超详细教程——由入门到精通（中篇一）

    5.3 文件类型过滤器 在文件对话框中，我们可以通过文件类型过滤器限制用户只能选择特定类型的文件。例如，下面是一些常见的文件类型过滤器： "文本文件 (*.txt)"：只显示 .txt 文件。...，允许用户选择保存路径和文件名。...返回值 files 是用户选择的所有文件路径列表。 '\n'.join(files)：将文件路径列表转换为字符串，每个文件路径之间用换行符分隔，以便在文本框中展示多个文件路径。...行数代表有多少条记录，列数代表每条记录包含多少个字段（例如姓名和年龄）。...使用 QFileDialog 可以让用户通过文件对话框选择 CSV 文件，并将其内容展示在表格中。

    25310

    Vba菜鸟教程

    保存文件格式为xla或xlam 开发者工具——加载项——加载（要删除需要取消加载） 快速访问工具栏——从下列位置选择命令-宏-添加为左上角倒三角小图标-将宏增加为一个小工具图标 自定义功能区 vba基本语法...一个字符 #一个数字 [A-W a-w]a-w或A-W中的一个字符 [!...Range("a" & i), 4), Mid(.Range("a" & i), 5, 2), Right(.Range("a" & i), 2)) End With '带路径返回文件名...，如 #N/A 64 数值数组 GetOpenFilename打开文件 GetOpenFilename (文件类型，优先类型，对话框标题，按钮文字[不生效]，是否支持多选) '返回文件完整路径，取消返回...False，多选时返回数组，第一个文件下标为1 '文件类型参数中，先指定文件类型名，再指定后缀，要成对出现 '优先类型是指文件类型中列出的各种类型，哪种优先显示 A= Application.GetOpenFilename

    17K40

    python GUI库图形界面开发之PyQt5打开保存对话框QFileDialog详细使用方法与实例

    PyQt5打开保存对话框QFileDialog介绍 QFIleDialog是用于打开和保存文件的标准对话框。...QFileDialog类中的常用方法 方法 描述 getOpenFileName() 返回用户所选择文件的名称，并打开该文件 getSaveFileName（） 使用用户选择的文件名保存文件 setFileMode...代码分析 在这个例子里，通过文件对话框来选择文件，其中第一个文件对话框只允许打开图片文件，并把加载的图片显示在标签上，第二个文件对话框只允许打开文本文件，并把打开的文本内容显示在文本框内 第一个按钮使用...QFileDialog.getOpenFilename（），调用文件对话框来显示图片，并显示在一个标签控件中，它负责打开c盘目录下的为文件，核心代码如下 #从C盘打开文件格式（*.jpg *.gif *...jpg .gif .png .jpeg)’表示只能显示扩展名为.jpg,.gif等文件 第二个安妞使用文件对话框（QFileDialog）对象的exec_()方法来选择文件，并把所选的文件的内容显示在文本编译控件中

    2.6K11

    基于 Qt 的文件选择与图片显示功能实现

    下面是该版本的实现： void Widget::open1() { // 打开文件对话框，供用户选择图片文件 // getOpenFileName() 函数的四个参数依次是： /...用于显示文件选择对话框，返回所选文件的路径。...如果用户取消选择，则返回空字符串。 。它返回用户选择的文件的完整路径。参数包括： this: 父窗口指针。 "请选择图片": 对话框的标题。 "D:/": 初始路径，这里设置为 D: 盘。...特点与限制： 这个版本的代码实现了基础的图片选择与显示功能，但有一个明显的缺点：每次打开文件选择对话框时，路径都会重置为 D:/，不能记住上次用户选择的文件夹位置。...基本功能：图片选择与显示 首先，在最基本的版本 open1() 中，用户可以通过 QFileDialog::getOpenFileName() 打开文件选择对话框，选择一个图片文件（支持 .png 和

    14910

    VBA在多个文件中Find某字符的数据并复制出来

    VBA在多个文件中Find某字符的数据并复制出来 今天在工作中碰到的问题 【问题】有几个文件，每个文件中有很多条记录，我现在要提取出含有“名师”两个字符的记录。...文件如下： 【常规做法】打开文件--查找---复制---粘贴---关闭文件，再来一次，再来一次 晕，如果文件不多，数据不多那还好，如果文件多，每个文件的记录也很多，那就是“加班加班啦” 【解决】先Application.GetOpenFilename...要打开文件对话框，选中要打开的文件，存入数组，再GetObject(路径)每一个文件打开，用Find指定字符，找到第一个时用firstAddress记录起来，再FindNext查找下一个，当循环到最初的位置时停止...(*.xls*), *.xls*", , "打开文件", , True) If TypeName(fileToOpen) ="Boolean" Then MsgBox "你选择了“取消”,将要退出程序...：" & m & vbCrLf & "找到记录数：" & i End Sub 【运行】 A.打开文件对话框，找到你要打开的文件 B.弹出输入字符的对话框，输入你要查找的字符 C.完成，打开文件数：3

    2.8K11

    04 qt功能类、对话框类和文件操作

    m, int s = 0, int ms = 0) QTime time(0,0,0); //可以做为秒表的功能 再通过增加毫秒的时间，增加到1000，秒针就会自动加1 2 案例：嵌入式产品的系统时间实现...，增加指定的毫秒QTimeaddSecs(int s) const// 在给定的时间基础上，增加指定的秒 二 日期类 QDate 功能：获取系统当前的日期 创建对象的方法： 1）构造函数：QDate...（The static getColor() function shows the dialog），打开的对话框来选择 一个颜色。...打开文件对话框，可以让用户选择一个文件或者目录（路径），并不能打开文件中的内容，有了文件的路径，就可以对文件进行操作(打开 读 写 关闭等操作) （The QFileDialog class provides...— 对话框的标题 参数三：const QString &dir = QString() ---- 文件所在目录 QString()— 字符串匿名对象 参数四：const QString &filter

    21010
    点击加载更多

    扫码

    添加站长 进交流群

    领取专属 10元无门槛券

    手把手带您无忧上云

    扫码加入开发者社群

    相关资讯

    热门标签

    更多标签

    活动推荐

      运营活动

      活动名称
      广告关闭

      腾讯云开发者

      扫码关注腾讯云开发者

      扫码关注腾讯云开发者

      领取腾讯云代金券

      热门产品

      热门推荐

      更多推荐

      Copyright © 2013 - 2024 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有

      深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 深公网安备号 44030502008569

      腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287

      领券