双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何双击txt文件可以让我编的记事本程序直接打开？

2004-05-08 10:31:25 199 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xmlscript 墨衍会员 · AI 创作全网分发关注 + 加入社区

jenkins执行selenium自动化测试浏览器不显示解决方法！因为我的jenkins是用windows installer 安装成 windows的服务了，那么jenkins是一个后台服务，所以跑Selenium的时候不显示浏览器。阅读详情

我不是问如何关联程序，因为我只要手动设置就可以了。
这回我关联了txt文件，打开的程序是我自己编的一个简单的记事本程序，只有一个textbox控件而已。
那么，问题是如何双击文件后，打开了我的程序，内容显示在textbox里？

...全文

Jenkins执行Selenium测试脚本不自动打开浏览器解决方案因为jenkins是用windows installer 安装成 windows的服务了，那么启动windows后jenkins为后台服务，所以执行Project的时候浏览器为后台执行，后台执行也不是不行只是会报很多莫名其妙的断言错误或者存在中文显示“？？”的问题 emmmmmmmmmm... 解决办法前期工作 1.备份Jenkins 因为使用命令启动jenkins会导致数据丢失反正我弄... 阅读详情

xmlscript

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

flyingZFX 2004-05-08

打赏
举报

哇噻，真是高手呀~~

RyuOut 2004-05-08

打赏
举报

就一行代码OK了

captainivy 2004-05-08

打赏
举报

转
1、在注册表中添加自己的文件类型

我知道当点击一个html文件时，浏览器就会自动打开，或者是点击一个doc文件，Word就会运行。有没有想过当用户点击你自己定义文件类型时，你的程序就会自动启动呢？其实想做到这点很简单，只须对注册表做点手脚就行了。

每一个文件类型的信息被保存在注册表中的 'HKEY_CLASSES_ROOT'下面。假设我们自定义的文件类型的后缀为.hyp，文件名 (中间不能有空格).

首先在HKEY_CLASSES_ROOT下创建 .hyp

HKEY_CLASSES_ROOT\.hyp

将[默认]键值改为"Test_File_Hype"。然后在HKEY_CLASSES_ROOT下添加主键 Test_File_Hype

HKEY_CLASSES_ROOT\Test_File_Hype

按照下面的路径添加新的主键

HKEY_CLASSES_ROOT\Test_File_Hype\Shell

HKEY_CLASSES_ROOT\Test_File_Hype\Shell\Open

HKEY_CLASSES_ROOT\Test_File_Hype\Shell\Open\Command

将下面的字符作为Command的键值

your application path.exe %1

(例如 C:\WINDOWS\HYP\HYP.EXE %1)

或许你还想为自己的文件类型加上同自己的执行文件一样的图标，很简单，照下面的方法添加就行了。

HKEY_CLASSES_ROOT\Test_File_Hype\DefaultIcon

输入键值：

your application path.EXE,0

后面的零表示文件的图标同程序的主图标一致，如果你的程序有很多图标，换一换数字就可改变文件显示的图标了。

2、command

msdn：
Command 函数

返回命令行的参数部分，该命令行用于装入 Microsoft Visual Basic 或 Visual Basic 开发的可执行程序。

语法

Command

说明

当从命令行装入 Visual Basic 时，/cmd 之后的命令行的任何部分作为命令行的参数传递给程序。下面的示例中，cmdlineargs 代表 Command 函数返回的参数信息。

VB /cmd cmdlineargs

对于使用 Visual Basic 开发并编译为 .exe 文件的应用程序，Command 返回出现在命令行中应用程序名之后的任何参数。例如：

MyApp cmdlineargs

想知道如何在正在使用的应用程序的用户界面中改变命令行参数，请搜寻关于“命令行参数”的帮助。

Command 函数示例
本示例在某个函数中用 Command 函数获得命令行参数，并将命令行参数以 Variant 类型之数组返回。

Function GetCommandLine(Optional MaxArgs)
'声明变量。
Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
'检查是否提供了 MaxArgs 参数。
If IsMissing(MaxArgs) Then MaxArgs = 10
' 使数组的大小合适。
ReDim ArgArray(MaxArgs)
NumArgs = 0: InArg = False
'取得命令行参数。
CmdLine = Command()
CmdLnLen = Len(CmdLine)
'以一次一个字符的方式取出命令行参数。
For I = 1 To CmdLnLen
C = Mid(CmdLine, I, 1)
'检测是否为 space 或 tab。
If (C <> " " And C <> vbTab) Then
'若既不是 space 键，也不是 tab 键，
'则检测是否为参数内含之字符。
If Not InArg Then
'新的参数。
'检测参数是否过多。
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
InArg = True
End If
'将字符连接到当前参数中。
ArgArray(NumArgs) = ArgArray(NumArgs) & C
Else
'找到 space 或 tab。
'将 InArg 标志设置成 False。
InArg = False
End If
Next I
'调整数组大小使其刚好符合参数个数。
ReDim Preserve ArgArray(NumArgs)
'将数组返回。
GetCommandLine = ArgArray()
End Function

✦双11狂欢大促✦

如何双击txt文件可以让我编的记事本程序直接打开？

相关推荐

双11狂欢大促