大家帮我看看里面的代码,问题出在哪???

liushiying 2003-10-19 10:42:41
如何双击*.test文件用我的程序打开他,直接运行程序时不打开文件
为什么双击*.test文件时可以正常打开程序
可是为什么不能直接运行程序

Imports Microsoft.Win32
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Shared strFile As String

<STAThread()> Shared Sub Main(ByVal CmdArgs() As String)
If CmdArgs.Length = 0 Then
Dim FileExt As String
Dim FileType As String
Dim MIMEType As String
Dim ExecName As String

FileExt = ".test"
FileType = "Test File"
MIMEType = "text/plain"
ExecName = Application.ExecutablePath + " %1"

Dim RegKey As RegistryKey
RegKey = Registry.ClassesRoot
RegKey = RegKey.CreateSubKey(FileExt)
RegKey.SetValue("", FileType)
RegKey.SetValue("Content Type", MIMEType)
RegKey = RegKey.CreateSubKey("shell\open\command")
RegKey.SetValue("", ExecName)
RegKey.Close()
Return
End If
strFile = CmdArgs(0)
System.Windows.Forms.Application.Run(New Form1())
End Sub

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
Me.richTextBox1.Dock = DockStyle.Fill
Me.richTextBox1.LoadFile(strFile, RichTextBoxStreamType.PlainText)
End Sub

'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

'注意:以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents richTextBox1 As System.Windows.Forms.RichTextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.richTextBox1 = New System.Windows.Forms.RichTextBox()
Me.SuspendLayout()
'
'richTextBox1
'
Me.richTextBox1.Location = New System.Drawing.Point(40, 40)
Me.richTextBox1.Name = "richTextBox1"
Me.richTextBox1.TabIndex = 1
Me.richTextBox1.Text = "richTextBox1"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(232, 181)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.richTextBox1})
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)

End Sub

#End Region

End Class
...全文
28 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Montaque 2003-10-20
  • 打赏
  • 举报
回复
参考
http://expert.csdn.net/Expert/TopicView1.asp?id=2328211
不需要开发,0行代码写接口服务,sql编程,只要会sql就会写接口服务,让后端变得更简单,简单4步短短5分钟,立马上手,java小白也可以写接口。订阅课程后可以免费获取发布版进行使用和测试。 0行代码写服务的需要来源案例一,当时有个项目,有400张表,都是管理系统,单表维护的内容较多,当时的项目团队是13人,前后端都写,那时候还没有springboot,用的是ssm,mybatis刚来,有了替代hibernate的趋势,ifelse写了一堆又一堆,实体类也是,当时的后端分了7层☒,天天加班干这活,复制粘贴,很容易犯错,实体类多人引用修改,真的是废了很大的劲……案例二,也是一个比较大的项目,两千万多万那种,当时为了拿项目,需要快速实现原型给客户看,要求比较高,虽说是原型但是数据全部需要实时,这时候就需要大量编写数据接口,同样编写接口这件事难度倒是不大,但是量大,编写过程手写很容易错……案例三,以前管理的团队主要做移动端开发,里面的项目会涉及到推送,管理系统,数据采集与同步,总之很多内容,需要前后端通吃,我不仅需要方案,设计原型,设计数据库,报价,沟通需求,还要写后端框架,数据接口与数据采集,开发前端(web端),移动端,管理所有项目,但是那时候招的人只会写移动端,实在是忙不过来,我就想能不能有个框架让不会写java的人能写接口,因为写移动端sqlite总是会用的,也就是说写sql不是难点……基于以上三点需求的积累,我利用业余时间写了一个后端框架,完成了这样的需求,刚开始是需要写三行代码完成一个接口,经过后面优化,现在不写代码也可以实现……  本框架涉及的知识点比较多,目前提供最基础版供大家学习和使用,后期逐步推框架具体的教程和功能内容,下期我们讲如何在实际项目中通过部署版如何完成所需要的接口编写,欢迎大家订阅。

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧