神马文学网一个相当有用的宏（for vs.net），该宏能大大的提高开发速度
来源：百度文库 编辑：神马文学网 时间：2024/05/04 19:16:17
面的宏用于将剪贴板里面的url指定的文件在vs.net中打开以便编辑，目的是提高打开文件的速度
比如：你在ie中运行一个系统时，某一个页面有错，这个时候你需要修改这个页面，那么你只需要复制该页面的url,然后到vs.net中使用一个运行宏的快捷键就可以打开修改该页面了（最好事先打开了解决方案，这样该文件是作为解决方案中的一个文件打开的，而不是一个单独的与项目无关的文件）。如果不使用宏你将不得不打开解决方案资源管理器，一层一层的展开树，然后找到要修改的文件
Imports EnvDTE
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Threading
Public Module RecordingModule
Dim ClipString As String
Sub TemporaryMacro()
‘// take whatever is on the clipboard and save it to an xml file
‘// intended for cut & paste from QueryAnalyzer
Dim ClipBoardThread As System.Threading.Thread = New System.Threading.Thread(AddressOf getClipString_core)
With ClipBoardThread
.ApartmentState = ApartmentState.STA
.IsBackground = True
.Start()
‘-- Wait for copy to happen
.Join()
End With
ClipBoardThread = Nothing
If ClipString <> "" Then
‘虚拟目录名()
Dim VirtualName = "kxframework"
Dim pos = InStr(LCase(ClipString), "/" & VirtualName & "/")
If (pos = 0) Then
pos = InStr(LCase(ClipString), "\" & VirtualName & "\")
End If
If (pos <> 0) Then
ClipString = Right(ClipString, Len(ClipString) - pos - Len("\" & VirtualName & "\") + 1)
End If
pos = InStr(ClipString, "?")
If (pos <> 0) Then
ClipString = Left(ClipString, pos - 1)
End If
‘组合成正确的物理路径
ClipString = "E:\科信施工项目成本管理系统\" & VirtualName & "\" & ClipString
ClipString = Replace(ClipString, "/", "\")
If System.IO.File.Exists(ClipString) Then
DTE.ItemOperations.OpenFile(ClipString)
Else
MessageBox.Show("文件（" & ClipString & "）未找到！")
End If
End If
End Sub
Sub getClipString_core()
ClipString = Clipboard.GetDataObject().GetData(System.Windows.Forms.DataFormats.StringFormat)
End Sub
End Module
比如：你在ie中运行一个系统时，某一个页面有错，这个时候你需要修改这个页面，那么你只需要复制该页面的url,然后到vs.net中使用一个运行宏的快捷键就可以打开修改该页面了（最好事先打开了解决方案，这样该文件是作为解决方案中的一个文件打开的，而不是一个单独的与项目无关的文件）。如果不使用宏你将不得不打开解决方案资源管理器，一层一层的展开树，然后找到要修改的文件
Imports EnvDTE
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Threading
Public Module RecordingModule
Dim ClipString As String
Sub TemporaryMacro()
‘// take whatever is on the clipboard and save it to an xml file
‘// intended for cut & paste from QueryAnalyzer
Dim ClipBoardThread As System.Threading.Thread = New System.Threading.Thread(AddressOf getClipString_core)
With ClipBoardThread
.ApartmentState = ApartmentState.STA
.IsBackground = True
.Start()
‘-- Wait for copy to happen
.Join()
End With
ClipBoardThread = Nothing
If ClipString <> "" Then
‘虚拟目录名()
Dim VirtualName = "kxframework"
Dim pos = InStr(LCase(ClipString), "/" & VirtualName & "/")
If (pos = 0) Then
pos = InStr(LCase(ClipString), "\" & VirtualName & "\")
End If
If (pos <> 0) Then
ClipString = Right(ClipString, Len(ClipString) - pos - Len("\" & VirtualName & "\") + 1)
End If
pos = InStr(ClipString, "?")
If (pos <> 0) Then
ClipString = Left(ClipString, pos - 1)
End If
‘组合成正确的物理路径
ClipString = "E:\科信施工项目成本管理系统\" & VirtualName & "\" & ClipString
ClipString = Replace(ClipString, "/", "\")
If System.IO.File.Exists(ClipString) Then
DTE.ItemOperations.OpenFile(ClipString)
Else
MessageBox.Show("文件（" & ClipString & "）未找到！")
End If
End If
End Sub
Sub getClipString_core()
ClipString = Clipboard.GetDataObject().GetData(System.Windows.Forms.DataFormats.StringFormat)
End Sub
End Module
一个相当有用的宏（for vs.net），该宏能大大的提高开发速度
一个相当有用的宏（for vs.net），该宏能大大的提高开发速度
Symbian OS开发入门（一） ：基于VS.Net 2003的Symbian开发环境的准备
Symbian OS开发入门（一） ：基于VS.Net 2003的Symbian开发环境的准备
怎样能提高电脑的速度？
相当有用的
教你把网页浏览速度大大提高的七个方法
想提高电脑的运行速度该如何去做？
一个睡五分钟等于六个钟头的方法 ，对健康大大有用
提高速度用的
发现一个确确实实可以提高网页浏览速度的方法
人生哲理：写一个大大的人字
怎样提高电脑的速度
提高XP的上网速度
提高上网速度的方法
提高网上邻居的共享速度
怎样提高打字的速度
闲暇时该做的28件聪明事！（大大改善生活与财富状况）
使用异步 I/O 大大提高应用程序的性能
每天读一遍，坚持27天，你的英语水平大大提高
使Excel操作效率大大提高的十二则技巧
【转】使用异步 I/O 大大提高应用程序的性能
一分钟就能提高你的上网速度_电子猫的天堂
天大的秘密------------发现一个确确实实可以提高网页浏览速度的方法