萊恩大叔

Public Function MsgBox( _ ByVal Prompt As Object, _ Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _ Optional ByVal Title As Object = Nothing _ ) As MsgBoxResult 參數 Prompt 必選項。以消息形式顯示在對話框中的 String 表達式。Prompt 的最大長度大約為 1024 個字符，具體取決於所用字符的寬度。如果 Prompt 中包含多個行，則可在各行之間用回車符 (Chr(13))、換行符 (Chr(10)) 或回車換行符的組合 (Chr(13) & Chr(10)) 分隔各行。 Buttons 可選項。數值表達式，它是值的總和，指定顯示的按鈕數目及按鈕類型，使用的圖標樣式，默認按鈕的標識以及消息框的樣式等。如果省略 Buttons，則默認值為零。 Title 可選項。顯示在對話框標題欄中的 String 表達式。如果省略 Title，則將應用程序名放在標題欄中。 設置 下表列出了 MsgBoxStyle 枚舉值。 枚舉 值 說明( 若想要的按鈕和圖示要共存的話，請將代碼相加帶入即可 ) OKOnly 0 只顯示「確定」按鈕。 OKCancel 1 顯示「確定」和「取消」按鈕。 AbortRetryIgnore 2 顯示「中止」、「重試」和「忽略」按鈕。 YesNoCancel 3 顯示「是」、「否」和「取消」按鈕。 YesNo 4 顯示「是」和「否」按鈕。 RetryCancel 5 顯示「重試」和「取消」按鈕。 Critical 16 顯示「關鍵消息」圖標。 Question 32 顯示「警告查詢」圖標。 Exclamation 48 顯示「警告消息」圖標。 Information 64 顯示「信息消息」圖標。 DefaultButton1 0 第一個按鈕是默認的。 DefaultButton2 256 第二個按鈕是默認的。 DefaultButton3 512 第三個按鈕是默認的。 ApplicationModal 0 應用程序是有模式的。用戶必須響...

最近使用圖控開發專案~偶爾還是想偷懶的想要用VBNet寫一些小程式來配合專案的執行 所以程式不想要有重複執行，於是找了些資料。 原來VB.Net內就已經有這個選項 其實也可以用程式與法來作判斷 參考網址: http://eos45.pixnet.net/blog/post/6508784 '檢查程式是否已經開啟 '取得目前程式的Process Dim thisProcess As Process = Process.GetCurrentProcess '以目前的process名稱去尋找目前電腦上所有執行的process '如果找到的數量超過 1 表示之前已經進行呼叫過 Dim myProcess As Process() = Process.GetProcessesByName(thisProcess.ProcessName) If myProcess.Length > 1 Then '結束執行程式 'MessageBox.Show("應用程式已開啟") 'Return Exit Sub End If

'網絡狀況 If My.Computer.Network.Ping("172.18.48.215") Then Label2.Text = "暢通" Else Label2.Text = "不通" End If '機器名稱 Label3.Text = Environment.MachineName 'OS名稱 Label5.Text = My.Computer.Info.OSFullName 'Symantec病毒碼日期 Label10.Text = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\SharedDefs", "DEFWATCH_10", Nothing), 12), 8) 'Inter Explorer版本 Label11.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer", "Version", Nothing) 'CPU Label12.Text = Microsoft.VisualBasic.Trim(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing)) '主板 Label14.Text = M...

在使用File.Copy指令時若存取到系統資料夾(Windows,system32,Program Files....等等)會出現UnauthorizedAccessException的錯誤訊息。 通常會出現在VISTA或WIN7的作業系統中。由於XP以上版本的作業系統被微軟加上了UAC(UserAccountControl)的權限管理功能。所以在做此類的資料夾或檔案存取時，就必須要改變User Account Setting設定。 Win7: 控制台-->使用者帳戶和家庭安全-->使用者帳戶-->變更使用者帳戶控制設定 將設定調整至最低等級(不要通知) VISTA: 不知道，小弟我對這個作業系統有偏見，沒有用過。 程式置放位置(大致上的位置，依照作業系統和使用者設定將會有不一樣的路徑，但程式檔名應該不會改變。) c:\windows\system32\UserAccountControlSettings.exe 在接下來的動作最重要....設定完成後要記得重新開機，要不然會沒作用。(我是受害者之一，浪費了一天的時間在找問題點) 微軟官網 找到的方法，還沒仔細研究先做記錄下來

在做資料夾路徑字串存取時，常常會因為路徑沒有完整而出現錯誤 例如："D:\ABC\"是一個完整的路徑，但若因為人為因素而少了最後面的"\"，變成"D:\ABC"。如此容易造成程式的誤判而產生錯誤。 所以提出了下列的方法解決 '路徑名稱被丟到 Data_source_Path的字串變數中 Dim Data_source_Path as string:Data_source_Path="D:\ABC" '判斷若最後一個字元非"\"則自動補上此字元 If Data_source_Path.EndsWith("\") = False Then Data_source_Path += "\" End If '超方便的 當然這只是一個方法，可以用在很多地方，並不局限於路徑判斷的功用。 2019.07 可以直接用Path.Combine來取代判斷路徑最後是否包含斜線 https://docs.microsoft.com/zh-tw/dotnet/api/system.io.path.combine?view=netframework-4.8

這段程式是由C#轉換而來。 必須引用元件System.IO Imports System.IO '取得資料夾中的子目錄() Dim MyDirectories As DirectoryInfo = New DirectoryInfo("d:\") For Each MyDirectories_name As DirectoryInfo In MyDirectories.GetDirectories ComboBox1.Items.Add(MyDirectories_name) Next

今天寫程式需要用到取得作業系統中Windows資料夾的位置，但是由於微軟作業系統中所有版本的windows資料夾置放位置接不一樣，有的名稱也不一樣，所以不能寫死。所以在網路上找到的資料.... 方法一 TextBox1.Text = Environ("systemroot") '直接印出windows資料夾的路徑 '結果:C:\Windows Environ內的參數請搭配下列系統參數即可(將%%中的參數填入)： Windows系統變數 以下為Windows系統變數(C語言中使用) 1 %SystemDrive%：系統磁碟機，預設是C: 2 %SystemRoot%：系統根目錄，預設是C:\WINNT或C:\WINDOWS 3 %SystemDirectory%：系統目錄，預設是C:\WINNT\System32或C:\WINDOWS\System32 4 %WinDir%：Windows目錄，預設是C:\WINNT或C:\WINDOWS 5 %ProgramFiles%：應用程式目錄，預設是C:\Program Files 6 %Temp%、%Tmp%：暫存檔目錄 %HomeDrive%：使用者目錄的磁碟機 7 %HomePath%：使用者家目錄 8 %OS%：作業系統名稱，其值固定為Windows_NT 9 %UserDomain%：包含使用者帳號的網域名稱，或者電腦名稱 10 %UserName%：使用者帳號名稱 11 %ALLUSERSPROFILE%：All Users設定檔的資料夾位置。 12 %APPDATA%：目前使用者的Application Data資料夾位置。 13 %CD%：目前的工作資料夾。 14 %CLIENTNAME%：目前使用者的NETBIOS電腦名稱。 15 %CMDCMDLINE%：處理目前命令提示字元視窗命令的cmd.exe的完整路徑。 16 %CMDEXTVERSION%：目前Command Processor Extensions的版本。 17 %CommonProgramFiles%：Common Files資料夾的路徑。 18 %COMPUTERNAME%：電腦名稱。 19 %COMSPEC%:：命令提示字元視窗的解譯程式路徑，通...

想了好一陣子，還是考慮將SyntaxHighlighter的程式碼放入到部落格中。  ###程式碼要貼的地方### 在BLOGGER裡編輯HTML，在</head>標籤前， </body>標籤後加入下列程式碼 官方網站 官方開放的連結空間(直接使用放置於官方空間的程式碼) 可是試了好一陣子(將近六小時)，還是沒辦法靠自己的力量和官方網站的說明連結成功。所以我參考了 噗落格 他上面所寫了程式碼拿來參考 以下內容皆為"噗落格"所擷取的內容 <link href='http://alexgorbatchev.com/pub/sh/current/styles/shCore.css' rel='stylesheet' type='text/css'/> <link href='http://alexgorbatchev.com/pub/sh/current/styles/shThemeDefault.css' rel='stylesheet' type='text/css'/> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shCore.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCpp.js' type='text/javascript'></script> <script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCSharp.js' type='text/javascript'></script> <script src='http://alexgorbatchev.c...

引用文件 試用過幾個語法標記顯示的外掛，最後選擇了 google syntax highlighter ，其實每個標記外掛都有它的優缺點，沒有最好的，只好選容易修改成合我意的，修正處如下所述： 1. 中文標示 編輯shCore.js ，搜尋下列字串並取代： expand source 擴展原始碼 view plain 純文字 copy to clipboard 複製 print 列印 The code is in your clipboard now 代碼已複製到剪貼簿 Printing 列印中 2. 斷行 會自動斷行，但這是我不喜歡的功能，有需要我自己會斷； 編輯SyntaxHighlighter.css ，在.dp-highlighter這個類別加入 white-space:nowrap; 純文字 複製 列印 ? .dp-highlighter {    font-family :  "Consolas" ,  "Courier New" , Courier, mono;    font-size :  12px ;    background-color :  #E7E5DC ;    width :  99% ;    overflow :  auto ;    margin :  18px   0px   18px   0px ;    padding-top :  1px ;  /* adds a little border on top when controls are hidden */    white-space : nowrap ;    }   .dp-highlighter { font-family...

比起上一篇的Online這個網站提供的方式似乎更簡單，甚至還包含了行號 連結如下： http://puzzleware.net/CodeHtmler/default.aspx 產生出來的畫面如下(C++) 1 # include <stdio.h> 2 # include <stdlib.h> 3 int main() 4 { 5 printf(測試程式碼高亮顯示); //備註 6 system( "pause" ); 7 }

原本打算使用syntaxhighlighter的方法，但是試了一些結果真的讓網頁開啟非常的緩慢。 後來在Google大神的指示下找到了一個可以直接產生HTML的原碼的方法。 Online syntax highlighting 就是這個網站，它提供了比syntaxhighlighter還要更多的語言支援。 使用方法很簡單，就是在Source code:底下的空格中輸入您要填上的程式碼，在右方的Type:選擇所使用的語言。然後在Style: 選擇要使用的格式再來點選highlight的按鈕就可以了。他將會產生一組HTML碼，直接複製貼上到你部落格的文章編輯區中即可。超好用，也不會影響到網頁開啟的速度。 以下是vb.net的語言來顯示各種Style的顯示方式 White: Dim aa as string '定義aa為一個字串 navy: Dim aa as string '定義aa為一個字串 black: Dim aa as string '定義aa為一個字串 neo: Dim aa as string '定義aa為一個字串 eclipse: Dim aa as string '定義aa為一個字串 grayscale: Dim aa as string '定義aa為一個字串 FMX: Dim aa as string '定義aa為一個字串 home site: 您的 HTML 不被接受: Tag is not closed: PRE Bred3: Dim aa as string '定義aa為一個字串 html Tags: Dim aa as string '定義aa為一個字串

日本電視節目『生活一級棒』生活大師教導了一個方法，大家不妨試試。     方法： 1.買一把菠菜，經過熱水滾燙後，菠菜撈起來只留下滾湯待用。     2..將有黃污漬的地方放入菠菜水中搓揉，再浸泡10分鐘。    3.浸泡後撈起衣物，在以正常的洗衣程序洗淨衣物。完成。衣物又恢復潔白了！     原理：衣服上的黃污漬成分主要是蛋白質，而菠菜經過水煮後會釋出可溶解蛋白質的成分。

跟上一篇文章不同，此篇是去除鍋子外的汙垢。 一樣是在生活一級棒的節目看到的，首先要使用蛋殼，先曬乾微波一分鐘。 把蛋殼裡面的膜去除，然後將蛋殼磨成粉狀(磨到很細)。 再來要搭配牙膏和海綿菜瓜布(不要用綠色那種菜瓜布，那種會刮傷鍋子)來使用 先沾上點牙膏然後沾蛋殼粉然後在鍋子污垢上做清潔的動作。

在生活一級棒的節目上看到的，除去燒焦的鍋子內的汙垢。 燒焦的鍋子內怎麼樣刷都刷不掉，找到了好方法。 首先將燒焦的鍋子內裝滿溫熱水三碗，用過期的洋菜粉半包(似乎很難有過期的，所以不用過期也沒關係) 然後加熱到沸騰後三分鐘，然後像做洋菜的方法一樣等他涼了。涼了之後倒出，如此一來鍋底的汙垢也會 一同被倒出，將可以輕鬆去除80~90%的汙垢。 另外剩下的汙垢怎麼處理呢，請看下一篇如何去除鍋外油污購的方法。 ps:有此方法可知，做洋菜必須要用一個乾淨的鍋子。否則.........

在生活一級棒的節目上看到的，剛好外婆家廚房是開放式的關係超多蟑螂。 所以先記錄起來。  節目中有一個達人提供了兩個方法： 1. 將花生醬放在一個盤子中央，然後旁邊加入肥皂水。    原因：花生醬很香，會吸引蟑螂前來覓食，蟑螂會游泳至花生醬上享用大    餐，此時，肥皂水會洗去蟑螂腹部的油性保護膜，蟑螂就會受到細菌感染而     死 。 2.米酒瓶中留有五分之一的米酒然後裡面加上糖，1~2湯匙然後搖勻。讓酒瓶依  靠著牆角傾斜(當然是要放在蟑螂的出沒處)。  原因：酒味很香(所以只要是很香的酒都可以)，然後小強又很愛吃糖，所以小強 會因為貪食而掉入瓶中，且酒瓶很光滑所以要依靠著牆角小強才能爬進去，但強兒 就會因此而爬不出來。(不過會很噁心，最後會整瓶都是強兒的屍體)