[VB.NET] 取範圍內亂數(不重複)

最近因工作需求寫了個範圍內不重複取亂數，怕遺忘先筆記起來，寫法如下：


'宣告陣列長度為5
Dim RandomList(5) As Integer
'宣告變數
Dim i, j As Integer
'宣告布林值
Dim ynum, zero As Boolean
'宣告暫存數
Dim rndnum, temp As Integer
'宣告亂數函數
Dim RandomFactory As New Random()

Do
        '亂數範圍值從0到5
        rndnum = RandomFactory.Next(0, 5)
        ynum = False

        '找到重覆亂數
        For i = 0 To UBound(RandomList)
               '判斷陣列中的0與亂數0(當前只判斷一次)
                If (zero = True And rndnum = 0) = True Then
                        zero = False : Exit For
                End If
                '當亂數重複時候即重新始
                If rndnum = RandomList(i) Then
                        ynum = True : Exit For
                End If
        Next

        '不重覆亂數放置到陣列
        If ynum = False Then
                RandomList(j) = rndnum
                j = j + 1
                If j > UBound(RandomList) Then Exit Do
        End If
Loop

'陣列取亂數值
For Each temp In RandomList
        '這裡寫自己需要的程式碼
        '以下當亂數等於0時候要處理的事件
        If rndnum = 0 Then
        '這裡寫自己需要的程式碼
        End If
Next

[筆記] - 解決遺失MSCOMCTL.OCX的錯誤訊息

程式執行時，出現錯誤訊息：
Component ‘MSCOMCTL.OCX’ or one of its dependencies not correctly registered: a file is missing or invalid.

這個 MSCOMCTL.OCX 是 Microsoft Visual Basic 6.0 程式開發環境所提供的元件，出現這個訊息代表系統內沒有這個檔案。

解決方法:
1.下載 MSCOMCTL.OCX
https://www.microsoft.com/zh-tw/download/details.aspx?id=10019

2.下載到的是 VisualBasic6-KB896559-v1-CHT.exe
若直接執行該檔案後，出現錯誤信息，就用解壓縮程式( 例如：7Zip、WinRAR)解壓縮
解壓縮後，會有好幾個檔案，其中就有 MSCOMCTL.OCX

3.作業系統為 32bit 將 MSCOMCTL.OCX 複製到 C:\Windows\System32  內。
作業系統為 64bit 則複製到 C:\Windows\SysWOW64 內

4.以系統管理員執行 cmd
作業系統為 32bit 輸入 Regsvr32 C:\Windows\System32\MSCOMCTL.OCX
作業系統為   64bit 輸入 Regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX

5.看到 DllRegisterServer in mscomctl.ocx succeeded 的訊息，就代表註冊成功。

6.若出現錯誤信息 "模組 MsComCtl.ocx 已經載入，但是呼叫 DllRegisterServer 失敗，錯誤碼為 0x8002801c"，麻煩以系統管理員身分執行cmd，然後再依照步驟4輸入即可看到成功的提示

[Android Studio] - FindViewById 用法

物件類型 變數名稱 = (物件類型) findViewById(R.id.物件ID)


WebView webview = (WebView) findViewById(R.id.webview);

這樣才能抓取在Layout裡建立好的物件連結到程式碼中。

[筆記] - 隱藏OneDrive在快速存取下方的連結鏈

按下Win+R，輸入"regedit"，按下確定執行。
在"登錄編輯程式"使用搜尋輸入以下內容：


018D5C66-4533-4307-9B53-224DE2ED1FE6

將 System.IsPinnedToNameSpaceTree 的值修改為「0」

修改之後應該會立即消失，如果沒有的話可以重新啟動試試。
※日後如果需要OneDrive的圖示重新顯示，只要把同樣的值改回為1就好了。

[筆記] - 永久關閉Windows10中的Windows Defender

按下Win+R，輸入"gpedit.msc"，按下確定執行。
開啟後依序，電腦設定>系統管理範本>Wndows 元件>Windows Defender
裡面有個 "關閉 Windows Defender" 選項 ，點擊開啟選取 "已啟用(E)" ，並按下確定即可永久關閉。

[筆記] - Ｗindows8/10取消帳戶登入密碼

按下Win+R，輸入"netplwiz"，按下確定執行。
將此選項取消 "必須輸入使用者名稱和密碼，才能使用這台電腦" 。
並在彈出的畫面中，輸入要取消的使用者名稱和密碼，按下確定。

[筆記] - Windows下使用命令提示字元強制刪除檔案

開啟記事本，輸入以下內容，另存新檔將副檔名改為bat即可。


DEL /F /A /Q \\?\%1
RD /S /Q \\?\%1

將欲刪除之檔案拖曳至剛剛所製作的bat檔案上即可強制刪除該檔案以及子資料夾。
※ 若無法刪除，建議重開機至安全模式下執行即可。