史萊姆論壇

返回   史萊姆論壇 > 綜合討論二區 > 生活話題、日常閒聊、喇勒唬爛灌水區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』


發文 回覆
 
主題工具 顯示模式
舊 2024-03-08, 11:23 AM   #1 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:42 | 在線時長:2020小時 | 升級還需:1小時級別:42 | 在線時長:2020小時 | 升級還需:1小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3056
精華: 0
現金: 15252 金幣
資產: 2678882 金幣
預設

語法:
想要發布單一檔案則需要在 csproj 檔案中增加 PublishSingleFile 
<Project Sdk="Microsoft.NET.Sdk">
 
    <PropertyGroup>
        <OutputType>WinExe</OutputType>
        <TargetFramework>net7.0-windows</TargetFramework>
        <Nullable>enable</Nullable>
        <UseWindowsForms>true</UseWindowsForms>
        <ImplicitUsings>enable</ImplicitUsings>
        <PublishSingleFile>true</PublishSingleFile>
    </PropertyGroup>
 
</Project>
感謝,只要在這裡加上<PublishSingleFile>true</PublishSingleFile>就行了

附帶一聊,M$好像已經不再對basic 做更新了,連帶網站都取消basic 的教學範例
__________________
『唸金母心咒:嗡。金母。悉地。吽。』
持此咒者,可免一切瘟疫,一切瘟神抱頭四散。

魔術就是欣賞神奇的效果
如果魔術的秘密被破解了
那魔術就失去欣賞的價值
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1574 篇, 收花: 3929 次
回覆時引用此帖
向 魔術王子 送花的會員:
mini (2024-03-08)
感謝您發表一篇好文章
舊 2024-03-08, 01:50 PM   #2 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:42 | 在線時長:2020小時 | 升級還需:1小時級別:42 | 在線時長:2020小時 | 升級還需:1小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3056
精華: 0
現金: 15252 金幣
資產: 2678882 金幣
預設

語法:
Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
    Private Structure SHFILEINFO
        Public hIcon As IntPtr ' : icon
        Public iIcon As Integer ' : icondex
        Public dwAttributes As Integer ' : SFGAO_ flags
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> Public szTypeName As String
    End Structure
    Private Declare Ansi Function SHGetFileInfo Lib "shell32.dll" (ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer, ByVal uFlags As Integer) As IntPtr
 
    Private Const SHGFI_ICON = &H100
    Private Const SHGFI_SMALLICON = &H1
    Private Const SHGFI_LARGEICON = &H0         ' Large icon
    Private nIndex = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.Items.Clear()
        Me.ListView1.View = View.Details
        Me.ListView1.SmallImageList = Me.ImageList1
        Me.ListView1.Columns.Add("檔案名稱", 500, HorizontalAlignment.Left)
        Me.ListView1.Columns.Add("修改日期", 160, HorizontalAlignment.Left)
        Dim shinfo As SHFILEINFO
        shinfo = New SHFILEINFO()
        Dim spd() As String = {"桌面", "文件", "下載"}
        For Each dn As String In spd
            Dim bn As New ToolStripButton(dn)
            Select Case (dn)
                Case "桌面"
                    SHGetFileInfo(My.Computer.FileSystem.SpecialDirectories.Desktop, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
                    bn.ToolTipText = My.Computer.FileSystem.SpecialDirectories.Desktop()
                Case "文件"
                    SHGetFileInfo(My.Computer.FileSystem.SpecialDirectories.MyDocuments, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
                    bn.ToolTipText = My.Computer.FileSystem.SpecialDirectories.MyDocuments
                Case "下載"
                    SHGetFileInfo(My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", False).GetValue("{374DE290-123F-4565-9164-39C4925E467B}"), 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
                    bn.ToolTipText = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", False).GetValue("{374DE290-123F-4565-9164-39C4925E467B}")
            End Select
            bn.Image = System.Drawing.Icon.FromHandle(shinfo.hIcon).ToBitmap
            ToolStrip2.Items.Add(bn)
            AddHandler bn.Click, AddressOf ToolStripButton_Click
        Next
        Dim drives() As String = Directory.GetLogicalDrives()
        For Each drv As String In drives
            Dim bn As New ToolStripButton(drv)
            SHGetFileInfo(drv, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
            bn.Image = System.Drawing.Icon.FromHandle(shinfo.hIcon).ToBitmap
            ToolStrip2.Items.Add(bn)
            AddHandler bn.Click, AddressOf ToolStripButton_Click
        Next
 
        FileSystemWatcher1.Path = My.Computer.FileSystem.CurrentDirectory
        FileSystemWatcher1_Changed(sender, Nothing)
    End Sub
 
    Private Sub FileSystemWatcher1_Changed(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Changed
        ImageList1.Images.Clear()
        Me.ListView1.Items.Clear()
        Dim hImgSmall As IntPtr  'The handle to the system image list.
        Dim shinfo As SHFILEINFO
        Dim nIndex As Integer = 0
        shinfo = New SHFILEINFO()
        Dim dir As New DirectoryInfo(FileSystemWatcher1.Path)
        Dim dirs As DirectoryInfo() = dir.GetDirectories("*.*")
        Dim diNext As DirectoryInfo
        For Each diNext In dirs
            hImgSmall = SHGetFileInfo(diNext.FullName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
            Dim myIcon As System.Drawing.Icon
            myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
            ImageList1.Images.Add("dir", myIcon) 'Add icon to imageList.
            Dim lvItem As New ListViewItem(diNext.Name, "dir")
            lvItem.SubItems.Add(diNext.LastWriteTime)
            Me.ListView1.Items.Add(lvItem)
        Next
        For Each f In dir.GetFiles("*.*")
            hImgSmall = SHGetFileInfo(f.FullName, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON)
            Dim myIcon As System.Drawing.Icon
            myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon)
            ImageList1.Images.Add(f.Extension, myIcon) 'Add icon to imageList.
            Dim lvItem As New ListViewItem(f.Name, f.Extension)
            lvItem.SubItems.Add(f.LastWriteTime)
            Me.ListView1.Items.Add(lvItem)
        Next
    End Sub
    Private Sub ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        FileSystemWatcher1.Path = DirectCast(sender, ToolStripButton).ToolTipText
        FileSystemWatcher1_Changed(sender, Nothing)
    End Sub
End Class
Vb
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1574 篇, 收花: 3929 次
回覆時引用此帖
舊 2024-03-08, 08:26 PM   #3 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設

引用:
作者: 魔術王子 查看文章
語法:
想要發布單一檔案則需要在 csproj 檔案中增加 PublishSingleFile 
<Project Sdk="Microsoft.NET.Sdk">
 
    <PropertyGroup>
        <OutputType>WinExe</OutputType>
        <TargetFramework>net7.0-windows</TargetFramework>
        <Nullable>enable</Nullable>
        <UseWindowsForms>true</UseWindowsForms>
        <ImplicitUsings>enable</ImplicitUsings>
        <PublishSingleFile>true</PublishSingleFile>
    </PropertyGroup>
 
</Project>
感謝,只要在這裡加上<PublishSingleFile>true</PublishSingleFile>就行了

附帶一聊,M$好像已經不再對basic 做更新了,連帶網站都取消basic 的教學範例
那篇說此方法還是會生出兩個檔案 ?

windows 1X 只要 VB 還能執行就好
當初 Win 10說不再支援 VB 6

以前用 VB6寫的目前也運行無誤 ... (也能安裝 VB 6無誤)
用好一點的 PC去跑
用起來感覺能再跑個 10幾 20年 (模擬程式命中率也不低)
mini 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2024-03-09)
感謝您發表一篇好文章
舊 2024-03-12, 10:55 AM   #4 (permalink)
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:42 | 在線時長:2020小時 | 升級還需:1小時級別:42 | 在線時長:2020小時 | 升級還需:1小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 3056
精華: 0
現金: 15252 金幣
資產: 2678882 金幣
預設

引用:
作者: mini 查看文章
那篇說此方法還是會生出兩個檔案 ?

windows 1X 只要 VB 還能執行就好
當初 Win 10說不再支援 VB 6

以前用 VB6寫的目前也運行無誤 ... (也能安裝 VB 6無誤)
用好一點的 PC去跑
用起來感覺能再跑個 10幾 20年 (模擬程式命中率也不低)
我們公司也是有人一直用vb6 不肯用新版,當然我有用過vb6 vb2008 vb2013 ,這三款元件名稱完全不同,轉換會有陣痛期,不過除這原因,是否還有其他不想換的原因
因為新版有蠻多很炫的功能,而且使用上也比舊版更容易
魔術王子 目前離線  
送花文章: 1542, 收花文章: 1574 篇, 收花: 3929 次
回覆時引用此帖
向 魔術王子 送花的會員:
mini (2024-03-13)
感謝您發表一篇好文章
舊 2024-03-12, 08:28 PM   #5 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設

引用:
作者: 魔術王子 查看文章
我們公司也是有人一直用vb6 不肯用新版,當然我有用過vb6 vb2008 vb2013 ,這三款元件名稱完全不同,轉換會有陣痛期,不過除這原因,是否還有其他不想換的原因
因為新版有蠻多很炫的功能,而且使用上也比舊版更容易
讓人想起件事
現在AI很夯
那些名人說 叫大家不用因為AI是新興產業
而去學 AI大模型如何寫(程式設計),因為以後寫程式交給AI就可以
這是
有點對也有點不對的說法

因為
要了解一個產業
你必須學些基礎,比如人類發明計算機,並不會因此不去學數學
根據你的領域去使用工具,你可以把程式都交給AI寫,但你有可能會錯過一些東西
人的發明應用很多時候是意外下的產物
如果哪天人們把程式寫作完全外包給AI
或許會扼殺 "下一個劃時代的發明"
而是
你可以把已經有的經驗交給它實現
節省時間去做更有意思的事物
創作就是其中之一
這個想法
與現在AI的發明之情境同樣不謀而合 (學新的程式語言與初衷有偏,是為了創作去學工具,而不是為了學工具去創作)
什麼層面使用什麼樣的深度
不是系統工程師就學到此就好了

大概再過個 5年吧~ (AI更普及,人人都能負擔起高檔的AI PC助理)
以後學校就不是教你寫程式,而是教幾堂程式概念後
就教你如何使用AI這個工具去天馬行空

此帖於 2024-03-12 08:38 PM 被 mini 編輯.
mini 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2024-03-12)
感謝您發表一篇好文章
舊 2024-03-12, 10:37 PM   #6 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設

當然AI輔助程式寫作是不可能一步到位
比較可能的發展就像
Photoshop 出 了個 AI外掛功能

到時程式寫作也是
可能是各語言的IDE出現 "AI助理" 幫你寫小功能
再由你自己組裝連結

再發展到
由你指示哪一個語言一步步幫你整合
你只要畫出介面或功能區塊圖 就好

最後才發展到全口頭開發
mini 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2024-03-14)
感謝您發表一篇好文章
舊 2024-03-15, 03:09 PM   #7 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設

引用:
作者: mini 查看文章
當然AI輔助程式寫作是不可能一步到位
比較可能的發展就像
Photoshop 出 了個 AI外掛功能

到時程式寫作也是
可能是各語言的IDE出現 "AI助理" 幫你寫小功能
再由你自己組裝連結

再發展到
由你指示哪一個語言一步步幫你整合
你只要畫出介面或功能區塊圖 就好

最後才發展到全口頭開發
話才沒講完多久
首位AI軟體工程師Devin誕生能寫程式、除錯、建立網站

機器人新創募資報捷Figure獲6.7億美元資金

文中有提到一句
【該公司將用籌來的資金擴大AI訓練、機器人製造,並聘請更多工程師。】
讓人噴飯,是在騙智障嗎?
等這位超級AI軟體工程師利用了人類智慧訓練完成後
這些人就變成米蟲,老闆就把你們解聘
一個軟體工程師在怎麼厲害也比不過 所有程式語言精通的 一位AI軟體工程師厲害 吧~
到時候老闆只留有創意的員工
做死做活腦袋著火的前員工
去當外送員都沒得當(因為現在已經有天上飛的與地上走的之外送員)

================
目前的 AI是 生成式AI,也就是能某種程度的無中生有
現在人們會說人類只要能保持創意就不用怕 AI
但其實現在的AI已經有創意的影子
【一本正經地胡說八道】其實就是某一種程度的創意,只要未來兩家不同的 AI能對話
只要硬體繼續突破
人類花以年為單位的進化
AI則是以分秒為單位在進化
到時AI就極可能能達到真正人類創作的地步

這其實真的很恐怖,以後AI不再是工具
可能先成為事業夥伴(諮詢師)
接著是董事(找一位街友掛名)
最後成為老闆(轉投資後變某公司的公司的實際出資者),人類只能做女僕般的工作
哈~ 離人類毀滅不遠了
只希望活的時候不會見到 (離開地表後就不關我的事)

此帖於 2024-03-15 03:39 PM 被 mini 編輯.
mini 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2024-03-15)
感謝您發表一篇好文章
發文 回覆



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 01:49 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1