大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这个问题可以用注册表解决。
创新互联-专业网站定制、快速模板网站建设、高性价比久治网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式久治网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖久治地区。费用合理售后完善,10年实体公司更值得信赖。
Function getOpenCommand(fileExt As String) as String
Dim fileType as String, openCommand as String
fileExt = "." + fileExt
'取得文件扩展名在注册表里的文件类型名称
'比如.zip的类型名称一般是zipfile
fileType = 读取注册表的classes_root下的子键(fileExt)的默认键值
'取得打开这种文件的程序
openCommand = 读取注册表的classes_root下的子键(fileType + "\shell\open\command")的默认键值
Return getOpenCommand
End Function
读取注册表的HKEY_CLASSES_ROOT下的子键的默认键值的方法可以在网上搜索到。
这样getOpenCommand("doc")就可以得到一个字符串(包括引号):
"C:\Program Files\Word\word.exe" "%1"
这里只需要用Spilt函数把C:\Program Files\Word\word.exe分离出来就好了
先用 SELECT name from sysobjects WHERE xtype = 'u'查出数据库中所有用户表
然后用 select name from syscolumns where id=....查出所有字段
最后一一比较,不过这种做法的效率太低了.
If System.IO.File.ReadAllBytes(文件名1).SequenceEqual(System.IO.File.ReadAllBytes(文件名2)) Then
相等
Else
不相等
End If
vb.net规定如果要比较字符串,不能用“=”,strcomp(str1,str2,n)或者string.compare(str1,str2)
例如:
Dim a As String = "c"
Dim b As String = "c"
Dim n As Integer = String.Compare(a, b)
If n = 0 Then
MsgBox("=")
Else
MsgBox("")
End If