- Jul 13 Sat 2013 15:49
-
愛情公寓 自動留言程式 「測試版」
- Feb 11 Mon 2013 23:22
-
目前線程 列出
Dim List As System.Diagnostics.ProcessThreadCollection
List = System.Diagnostics.Process.GetCurrentProcess().Threads()
Dim objThread As System.Diagnostics.ProcessThread
List = System.Diagnostics.Process.GetCurrentProcess().Threads()
Dim objThread As System.Diagnostics.ProcessThread
- Sep 04 Wed 2013 20:42
-
Htmlelement 的子選項用法
- Jul 23 Tue 2013 21:51
-
過濾重複字串 或數字
'過濾重複字串 或數字
Dim ary() As Integer = {2, 4, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3}
' 使用預設的相等比較子來比較值，以便從序列傳回獨特的項目。
Dim ary() As Integer = {2, 4, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3}
' 使用預設的相等比較子來比較值，以便從序列傳回獨特的項目。
- Jul 18 Thu 2013 11:38
-
vb.net Ping對方主機 方式
第一種
Dim host AsString="82.123.23.XX"' use any other machine nameDim pingreq As Ping =New Ping()Dim rep As PingReply = pingreq.Send(host )
Console.WriteLine("Pinging {0} [{1}]", host , rep.Address.ToString())
Console.WriteLine("Reply From {0} : time={1} TTL={2}", rep.Address.ToString(), rep.RoundtripTime, rep.Options.Ttl)
Dim host AsString="82.123.23.XX"' use any other machine nameDim pingreq As Ping =New Ping()Dim rep As PingReply = pingreq.Send(host )
Console.WriteLine("Pinging {0} [{1}]", host , rep.Address.ToString())
Console.WriteLine("Reply From {0} : time={1} TTL={2}", rep.Address.ToString(), rep.RoundtripTime, rep.Options.Ttl)
- Jan 08 Tue 2013 22:29
-
滑鼠拖動視窗
下面是最簡化 的方式 vb6 的 寫法 vb.net 也可以用
Private Declare Function ReleaseCapture Lib “user32” ()AsLong
Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF012
Private Declare Function ReleaseCapture Lib “user32” ()AsLong
Private Declare Function SendMessage Lib “user32”Alias“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF012
- Oct 21 Sun 2012 21:00
-
當控制項已繫結資料時，無法以程式設計的方式將資料列
網路找了一下 ，有些講的很明白 但是，有時並不能對我有所效用
我測試後，在我的方式下能跑的就是這樣
Dim MyDataSet As DataSet
Dim MyDataAd As OleDbDataAdapter
我測試後，在我的方式下能跑的就是這樣
Dim MyDataSet As DataSet
Dim MyDataAd As OleDbDataAdapter
- Oct 11 Thu 2012 19:12
-
DataGridView 相關
'欄位斷行
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
'自動設定高度
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
'增加欄位
DataGridView1.Rows.Add()
DataGridView1.Item(0, 0).Value = "xxxx1" & vbNewLine & "xxxx3"
- Oct 04 Thu 2012 21:42
-
DataGridView 相關
DataGridView 增加行列方式
'增加列
Dim col As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
col.HeaderText = "test"
DataGridView1.Columns.Add(col)
'增加列
Dim col As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
col.HeaderText = "test"
DataGridView1.Columns.Add(col)
- Sep 07 Fri 2012 19:46
-
webbrowser 下拉選單作法 2
範例 擷取網頁碼
<select id="visit_msg_2" name="visit_msg_2" onclick="fnSetRadio(2)">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4 </option>
<option value="5">5</option>
<select id="visit_msg_2" name="visit_msg_2" onclick="fnSetRadio(2)">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4 </option>
<option value="5">5</option>
- Aug 27 Mon 2012 21:53
-
最簡化的下載網頁圖片
- Aug 21 Tue 2012 19:44
-
計算Richtextbox 的行數
一行解決
RichTextLine = Regex.Split(RichTextBox2.Text, "\n").Length
如果你要計算 Textbox 只要把RichTExtbox 改掉就好
RichTextLine = Regex.Split(RichTextBox2.Text, "\n").Length
如果你要計算 Textbox 只要把RichTExtbox 改掉就好
