Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码如何改为狐表？


  共有699人关注过本帖树形打印复制链接

主题：代码如何改为狐表？
帅哥哟，离线，有人找我吗？
lgz518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		代码如何改为狐表？  发帖心情 Post By：2024/11/1 9:36:00 [显示全部帖子]

Imports CADExplorer
Imports CADExplorer.Objects
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 
        Dim dwgFilePath As String = "C:\path\to\your\file.MP3"
        Dim application As New Application()
        Dim document As Document = application.Documents.Open(dwgFilePath)
 
        ' 
        PictureBox1.Image = document.ToImage(ImageType.Bitmap, 0)
 
        ' 
        document.Close()
        application.Quit()
    End Sub
End Class

上面代码如何改为狐表？
[此贴子已经被作者于2024/11/1 12:53:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lgz518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1271 积分：8670 威望：0 精华：0 注册：2019/6/13 9:57:00 		  发帖心情 Post By：2024/11/1 12:51:00 [显示全部帖子]

Imports Microsoft.Win32
 
Module RegistrySettings
    Sub Main()
        Dim exePath As String = "C:\Program Files (x86)\阿明音乐\阿明音乐.EXE"
        SetFileAssociation(".MP3", "阿明音乐", exePath)
        Console.WriteLine("请重启计算机以应用更改。")
    End Sub
    Sub SetFileAssociation(fileExtension As String, progId As String, exePath As String)
        Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(fileExtension)
            key.SetValue(Nothing, progId)
        End Using
 
        Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(progId)
            key.SetValue(Nothing, "阿明音乐")
        End Using
 
        Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(progId & "\shell\open\command")
            key.SetValue(Nothing, Chr(34) & exePath & Chr(34) & " "%1"")
        End Using
    End Sub
End Module

网上找
上面代码如何改为狐表？红字代码是什么意思，没看懂？
[此贴子已经被作者于2024/11/1 12:52:46编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询