[VB.Net] 程式自動建立捷徑到桌面上


If (Not File.Exists(String.Format("{0}\程式.lnk", My.Computer.FileSystem.SpecialDirectories.Desktop))) Then '檢查桌面
CreateShortCut("檔案位置", "程式.exe", "描述") '產生捷徑
End If



Sub CreateShortCut(ByRef strFolder As String, ByRef strExe As String, ByRef strName As String)
Dim sc, objWS As Object
objWS = CreateObject("WScript.Shell")
With objWS
sc = .CreateShortCut(.SpecialFolders("Desktop") & "\" & Replace(strExe, ".EXE", ".LNK", 1, , 1))
End With
With sc
.TargetPath = objWS.ExpandEnvironmentStrings(strFolder & "\" & strExe)
.WorkingDirectory = strFolder
.Description = strName
.WindowStyle = 4
.IconLocation = objWS.ExpandEnvironmentStrings(strFolder & "\" & strExe & ",0")
.Save()
End With
End Sub


[WINDOWS 10] [English Version]將預設輸入法切換改為 Ctrl + Shift

從控制台進入到語言設定
> Control Panel\Clock, Language, and Region\Language

從左側選擇進階選項
找到更換語言快速鍵

把切換輸入法改為Ctrl+Shift

OK囉!!

[設計好物]CANVA

推薦網站:https://www.canva.com/

這是線上免費設計卡片或者是一些平面小宣傳廣告用的(例如:Facebook)

裡面有些基本設計或者是收費的設計

最好用的地方是你可以自由設計後轉成圖片檔或者是PDF

轉出後的PDF還可以直接使用Illustrator去修改成自己需要的尺寸

而且在Illustrator中使用，每個頁面都是獨立的物件還可以做更廣泛的應用

真的是無敵好用!!!強力推薦 👍

[Windows Forms] [VB.NET] TEXTBOX 輸入限制 -只能輸入數字

'只能輸入數字
 If e.KeyChar = Chr(48) Or e.KeyChar = Chr(49) Or e.KeyChar = Chr(50) Or e.KeyChar = Chr(51) Or e.KeyChar = Chr(52) Or e.KeyChar = Chr(53) Or e.KeyChar = Chr(54) Or e.KeyChar = Chr(55) Or e.KeyChar = Chr(56) Or e.KeyChar = Chr(57) Or e.KeyChar = Chr(13) Or e.KeyChar = Chr(8) Then
 e.Handled = False
  Else
e.Handled = True
 End If