目录
引出
VB.net开发积累——vb关闭窗口时,让后台的进程全部关闭
vb点击关闭,进程也关掉
Private Sub Name2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
' 终止当前应用程序的所有线程并关闭所有窗口
System.Windows.Forms.Application.Exit()
End Sub
其他:
在Visual Basic的Windows Forms应用程序中设置“关闭模式”指的是配置应用程序的行为,以确定在主窗体关闭时如何处理应用程序的退出。这项设置决定了是否关闭所有运行中的窗体并退出应用程序。默认情况下,关闭主窗体(通常是启动应用程序时首先打开的窗体)时,应用程序会退出。
为了设置“关闭模式”,你需要修改项目的属性:
- 打开Visual Studio中的项目。
- 在“解决方案资源管理器”中,找到项目的名称。
- 右键点击项目,然后选择“属性”或者在菜单栏点击“项目”,然后选择“[项目名]属性…”。
- 在打开的项目属性页面中,点击“应用程序”选项卡。
- 你将看到一个名为“关闭模式”的下拉菜单。其中有几个选项:
- “当启动窗体关闭时退出”:这意味着当你的启动窗体关闭时,应用程序将完全退出。
- “当最后一个窗体关闭时退出”:这意味着应用程序将继续运行直到最后一个打开的窗体被关闭。
- 选择“当启动窗体关闭时退出”选项。
- 点击“确定”保存更改。
设置完成后,每次当你的启动窗体被关闭时,应用程序将自动退出,不会留在背后运行任何进程。
请确保你理解这两个选项的区别,选择对你的应用程序最合适的一个。如果你的应用程序中只有一个主窗体,那么这个设置可能不会对行为产生太大影响。但如果你有多个窗体或者你的应用程序在后台运行任务,选择正确的“关闭模式”将非常重要。
vb.net和vb6.0
VB.NET一种简单,现代,面向对象计算机编程语言,有微软开发,VB.NET是一种基于.NET Framework的面向对象编程语言,它是Visual Basic语言的继承者,但是与早期版本的Visual Basic有很大的不同。VB.NET是一种强类型语言,支持类、接口委托、异常处理、LINQ等现代编程特性,可以开发Windows应用程序、Web应用程序、服务和组价。它还支持多线程和异步编程,并且可以与其他的.NET语言(如C#)进行交互。VB.NET是一种易学易用的语言,适合初学者和专业开发人员
特点:
1.面向对象:VB.NET 是一种完全面向对象的语言,支持封装、继承和多态等面向对象的特性。
2.强类型:VB.NET 是一种强类型语言,需要在编译时进行类型检查,避免在运行时出现类型错误。
3.安全性:VB.NET 具有良好的安全性,支持代码访问权限控制、类型安全、内存管理等功能,可以有效地防止程序运行时出现安全问题。
4.可扩展性:VB.NET 可以轻松地扩展和定制,可以使用 COM 组件、.NET 组件和自定义组件等方式扩展应用程序的功能。
5.多平台支持:VB.NET 可以运行在多个操作系统上,包括 Windows、Linux 和 macOS 等。
6.集成开发环境:VB.NET 可以与 Visual Studio 集成使用,提供了丰富的开发工具和调试功能,可以提高开发效率和代码质量。
7.数据库支持:VB.NET 提供了对多种数据库的支持,包括 ADO.NET、OLE DB 和 ODBC 等,可以方便地访问和操作数据库
VB.NET和VB6.两种不同的Visual Basic版本,它们在语言、架构、开发环境、应用场景等方面都有很大的差异。
不同之处 | ||||||
---|---|---|---|---|---|---|
类型 | 语言 | 架构 | 开发环境 | 应用场景 | 编译器 | 文件格式 |
VB.NET | 完全面向对象语言支持更多语言:泛型,LINNQ,匿名来类型 | .NET Framework支持更多.NET Framework特性:Windows Forms,WPF,ASP.NET | Visual Studio | 构建大型的企业级应用用程序 | .NET | VB或VB.ET |
VB6.0 | 基于事件语言 | COM | 集成开发环境(IDE) | 小型的应用程序和系统内的维护和升级 | Microsoft Vissual Basic 6.0 | .frm、.cls.bas等 |
窗口始终置顶和焦点设置
回到上个光标位置
总结
VB.net开发积累——vb关闭窗口时,让后台的进程全部关闭
其他内容
认识CATIA二次开发
V5 AUTOMATION开发
刘瑞欣 vb程序设计教程
Excel中的vba开发
catia中的vba开发
宏的录制、回放和编辑
宏代码精简
录制到项目中,录制成一个模块
catia的vba开发环境设置,取消dim的限值,这样就可以不用定义变量,便于简化录制的宏程序
Sub CATMain()
Set partDocument2 = CATIA.Documents.Add("Part")
Set part2 = partDocument2.Part
Set body1 = part2.Bodies.Item("零件几何体")
Set sketches1 = body1.Sketches
Set originElements1 = part2.OriginElements
Set reference1 = originElements1.PlaneYZ
Set sketch1 = sketches1.Add(reference1)
part2.InWorkObject = sketch1
Set factory2D1 = sketch1.OpenEdition()
Set circle2D1 = factory2D1.CreateClosedCircle(0#, 0#, 20)
sketch1.CloseEdition
part2.InWorkObject = sketch1
Set hybridShapeFactory1 = part2.HybridShapeFactory
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirectionByCoord(0#, 0#, 0#)
Set reference2 = part2.CreateReferenceFromObject(sketch1)
Set hybridShapeExtrude1 = hybridShapeFactory1.AddNewExtrude(reference2, 60#, 60#, hybridShapeDirection1)
hybridShapeExtrude1.SymmetricalExtension = 0
body1.InsertHybridShape hybridShapeExtrude1
part2.InWorkObject = hybridShapeExtrude1
part2.Update
End Sub
画圆柱阵列
Sub CATMain()
Set partDocument2 = CATIA.Documents.Add("Part")
Set part2 = partDocument2.Part
Set body1 = part2.Bodies.Item("零件几何体")
Set sketches1 = body1.Sketches
Set originElements1 = part2.OriginElements
Set reference1 = originElements1.PlaneYZ
Set sketch1 = sketches1.Add(reference1)
part2.InWorkObject = sketch1
Set factory2D1 = sketch1.OpenEdition()
'--------------------------------------------
For i = 0 To 99
Set circle2D1 = factory2D1.CreateClosedCircle(50 * i, 0#, 20)
Next
'--------------------------------------------
sketch1.CloseEdition
part2.InWorkObject = sketch1
Set hybridShapeFactory1 = part2.HybridShapeFactory
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirectionByCoord(0#, 0#, 0#)
Set reference2 = part2.CreateReferenceFromObject(sketch1)
Set hybridShapeExtrude1 = hybridShapeFactory1.AddNewExtrude(reference2, 60#, 60#, hybridShapeDirection1)
hybridShapeExtrude1.SymmetricalExtension = 0
body1.InsertHybridShape hybridShapeExtrude1
part2.InWorkObject = hybridShapeExtrude1
part2.Update
End Sub
每次画完都自动更新,这样能实时看到caita的变化
宏Macro文件的3种类型
宏的保存:文件夹,项目,catia文件
保存到文件中的两种后缀格式,catiaScript和vbScript,即catia脚本和vb脚本
catvba模式的导出
宏的默认编辑器设置
宏加入到工具条中
选择catiavba项目作为当前的宏库
工具,自定义选项卡
可以设置图标
按住,拖到工具条中
方式一:工具条中,点击图标运行,显示弹窗
方式二:作为catia脚本,直接双击运行
插曲:工具条的恢复
进程外开发环境搭建和案例
vb.net和vb6.0
VB.NET一种简单,现代,面向对象计算机编程语言,有微软开发,VB.NET是一种基于.NET Framework的面向对象编程语言,它是Visual Basic语言的继承者,但是与早期版本的Visual Basic有很大的不同。VB.NET是一种强类型语言,支持类、接口委托、异常处理、LINQ等现代编程特性,可以开发Windows应用程序、Web应用程序、服务和组价。它还支持多线程和异步编程,并且可以与其他的.NET语言(如C#)进行交互。VB.NET是一种易学易用的语言,适合初学者和专业开发人员
特点:
1.面向对象:VB.NET 是一种完全面向对象的语言,支持封装、继承和多态等面向对象的特性。
2.强类型:VB.NET 是一种强类型语言,需要在编译时进行类型检查,避免在运行时出现类型错误。
3.安全性:VB.NET 具有良好的安全性,支持代码访问权限控制、类型安全、内存管理等功能,可以有效地防止程序运行时出现安全问题。
4.可扩展性:VB.NET 可以轻松地扩展和定制,可以使用 COM 组件、.NET 组件和自定义组件等方式扩展应用程序的功能。
5.多平台支持:VB.NET 可以运行在多个操作系统上,包括 Windows、Linux 和 macOS 等。
6.集成开发环境:VB.NET 可以与 Visual Studio 集成使用,提供了丰富的开发工具和调试功能,可以提高开发效率和代码质量。
7.数据库支持:VB.NET 提供了对多种数据库的支持,包括 ADO.NET、OLE DB 和 ODBC 等,可以方便地访问和操作数据库
VB.NET和VB6.两种不同的Visual Basic版本,它们在语言、架构、开发环境、应用场景等方面都有很大的差异。
不同之处 | ||||||
---|---|---|---|---|---|---|
类型 | 语言 | 架构 | 开发环境 | 应用场景 | 编译器 | 文件格式 |
VB.NET | 完全面向对象语言支持更多语言:泛型,LINNQ,匿名来类型 | .NET Framework支持更多.NET Framework特性:Windows Forms,WPF,ASP.NET | Visual Studio | 构建大型的企业级应用用程序 | .NET | VB或VB.ET |
VB6.0 | 基于事件语言 | COM | 集成开发环境(IDE) | 小型的应用程序和系统内的维护和升级 | Microsoft Vissual Basic 6.0 | .frm、.cls.bas等 |
进程外开发环境搭建
vb.net开发环境搭建
- 新建模块
创建了窗口和模块
《CATIA二次开发技术基础》模板
Imports INFITF
Module Module1
Public CATIA As INFITF.Application
Public Sub Main()
On Error Resume Next '有错误的话会忽略,继续执行下一句
' 如果打开catia,就获取当前的这个
CATIA = GetObject(, "CATIA.Application")
If Err.Number <> 0 Then
' 如果没有打开catia,则打开新的catia
CATIA = CreateObject("CATIA.Application")
CATIA.Visible = True
End If
On Error GoTo 0
End Sub
End Module
添加宏库引用
catia自带的vba开发环境已经引用了很多库
需要在vb中引入import
vs开发环境初步
vs中的立即窗口
Imports MECMOD
Module Module1
Public CATIA As INFITF.Application
Public oPartDoc As PartDocument
Sub Main()
On Error Resume Next '有错误的话会忽略,继续执行下一句
' 如果打开catia,就获取当前的这个
CATIA = GetObject(, "CATIA.Application")
If Err.Number <> 0 Then
' 如果没有打开catia,则打开新的catia
CATIA = CreateObject("CATIA.Application")
CATIA.Visible = True
End If
On Error GoTo 0
oPartDoc = CATIA.ActiveDocument
MsgBox(oPartDoc.Name)
End Sub
End Module
对象浏览器
Imports MECMOD
Module Module1
Public CATIA As INFITF.Application
Public oPartDoc As PartDocument
Public oPart As Part
Public oBodies As Bodies
Public oBody As Body
Sub Main()
On Error Resume Next '有错误的话会忽略,继续执行下一句
' 如果打开catia,就获取当前的这个
CATIA = GetObject(, "CATIA.Application")
If Err.Number <> 0 Then
' 如果没有打开catia,则打开新的catia
CATIA = CreateObject("CATIA.Application")
CATIA.Visible = True
End If
On Error GoTo 0
oPartDoc = CATIA.ActiveDocument
'MsgBox(oPartDoc.Name)
oPart = oPartDoc.Part
oBodies = oPart.Bodies
oBody = oBodies.Item(1)
MsgBox(oBody.Name)
End Sub
End Module
建立模板
可以把设置好库函数的引用的工程文件,作为一个标准的模板,后面直接复制这个标准模板,然后在这上面开发,就不需要每次都要创建各种引用了。
标签:VB,Set,vb,应用程序,part2,CATIA,关闭,NET From: https://blog.csdn.net/Pireley/article/details/140470932