[VB.Net]讀取拖曳檔案的路徑

-
轉貼文章:六度空間 http://jeremy.tfeng.org/?p=502
此程式碼可讀取到使用者拖曳到視窗裡的檔案路徑

請開啟一個Windows Form 後，分別在以下事件加入程式碼:
(Form1_Load,Form1_DragDrop,Form1_DragEnter)


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.AllowDrop = True
   End Sub

   Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
       Dim DragFilePath As String = CType(e.Data.GetData("FileNameW"), Array).GetValue(0)
       MsgBox(DragFilePath)
   End Sub

   Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
       e.Effect = DragDropEffects.All
   End Sub

   Private Sub Form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter

       e.Effect = DragDropEffects.All

   End Sub

留言

張貼留言

這個網誌中的熱門文章

[Excel]將圖片放置於儲存格中

-
圖片
前言：忽然要將圖片放在Excel儲存格中，結果小卡了一下。  先將儲存格大小調整成比圖片還大一些 點選圖片後，選擇格式>>對齊>>貼齊格線 在圖片上按右鍵>>大小及內容 屬性設定成大小及位置隨儲存格而變 儲存格變小，圖片變扁(左上)；儲存格拉大則圖片變正常(圖片不會變更大) 儲存格隱藏，圖片會跟著一起隱藏(下)
閱讀完整內容

[軟體]AUTOCAD關於開啟圖面時，字型找不到,而要手動指定成 chineset.shx 字型檔問題

-
圖片
再開起別人的CAD檔，常常會出現找不到字型的情形，因為製圖的人電腦上的自行我們不一定都會有，所以當我們開啟時，通常會跳出下列視窗，要求我們選擇替代的字型。 但是由於筆者使在太懶了，每次都要點這樣的視窗實在不再符合筆者的"史代歐"，所以在G大神的指引之下找到了解決方法。 下圖找不到字型GENIE 我們需要更改字體對映檔，將缺的字體自動對映到其他字體上 首先到字體對映檔位置: C:\Documents and Settings\使用者帳號\Application Data\Autodesk\AutoCAD 版本\版本代號\cht\support\acad.fmp  找到acad.fmp點選右鍵>>開啟檔案>>以記事本開啟  在最下面加入 找不到的;要替代的字體.shx ,爾後 CAD 若找不到字型時會自動指定字型檔。 下列兩行則是將GENIE和AE這兩個字體以chineset.shx替代 GENIE;chineset.shx AE;chineset.shx 就降~~~沒了 參考文獻:http://autocad.bestoforum.net/t3380-topic
閱讀完整內容

[MS SQL]查詢資料庫中每個資料表之列數與資料表大小(容量)資訊。Get size of all tables in database

-
圖片
紀錄一下 USE DatabaseName Go SELECT t.NAME AS TableName, --s.Name AS SchemaName, p.rows AS RowCounts, SUM(a.total_pages) * 8 /1024 AS TotalSpaceMB, SUM(a.used_pages) * 8 /1024 AS UsedSpaceMB, (SUM(a.total_pages) - SUM(a.used_pages)) * 8 /1024 AS UnusedSpaceMB FROM sys.tables t INNER JOIN sys.indexes i ON t.OBJECT_ID = i.object_id INNER JOIN sys.partitions p ON i.object_id = p.OBJECT_ID AND i.index_id = p.index_id INNER JOIN sys.allocation_units a ON p.partition_id = a.container_id LEFT OUTER JOIN sys.schemas s ON t.schema_id = s.schema_id WHERE t.NAME NOT LIKE 'dt%' AND t.is_ms_shipped = 0 AND i.OBJECT_ID > 255 GROUP BY t.Name, s.Name, p.Rows ORDER BY t.Name 參考來源： http://stackoverflow.com/questions/7892334/get-size-of-all-tables-in-database
閱讀完整內容