Dim List As System.Diagnostics.ProcessThreadCollection
List = System.Diagnostics.Process.GetCurrentProcess().Threads()
Dim objThread As System.Diagnostics.ProcessThread
dark99 發表在
痞客邦
留言(0)
人氣()
'Children HtmlElement
'Html 的子選項 Children
'使用方式如下
Dim ElemColl As HtmlElementCollection
dark99 發表在
痞客邦
留言(0)
人氣()
'過濾重複字串 或數字
Dim ary() As Integer = {2, 4, 1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3}
' 使用預設的相等比較子來比較值，以便從序列傳回獨特的項目。
dark99 發表在
痞客邦
留言(0)
人氣()
第一種
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)
dark99 發表在
痞客邦
留言(0)
人氣()
網路找了一下 ，有些講的很明白 但是，有時並不能對我有所效用
我測試後，在我的方式下能跑的就是這樣
Dim MyDataSet As DataSet
Dim MyDataAd As OleDbDataAdapter
dark99 發表在
痞客邦
留言(0)
人氣()
'欄位斷行
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
'自動設定高度
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
'增加欄位
DataGridView1.Rows.Add()
DataGridView1.Item(0, 0).Value = "xxxx1" & vbNewLine & "xxxx3"
dark99 發表在
痞客邦
留言(0)
人氣()
DataGridView 增加行列方式
'增加列
Dim col As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
col.HeaderText = "test"
DataGridView1.Columns.Add(col)
dark99 發表在
痞客邦
留言(0)
人氣()
範例 擷取網頁碼
<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>
dark99 發表在
痞客邦
留言(0)
人氣()
原始來源 藍色小舖 的
hunterpo c＃
http://www.blueshop.com.tw/board/show.asp?subcde=BRD20100129155902S4A&fumcde=FUM20050124192253INM
dark99 發表在
痞客邦
留言(0)
人氣()
一行解決
RichTextLine = Regex.Split(RichTextBox2.Text, "\n").Length
如果你要計算 Textbox 只要把RichTExtbox 改掉就好
dark99 發表在
痞客邦
留言(1)
人氣()
Private Sub ListView_單選(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
'讀取 checkbox 的位置
'單選checkbox 不能複選
If CheckBox1.Checked = True Then
If e.Item.Checked = True Then
For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
ListView1.CheckedItems.Item(i).Checked = False
End If
Next
End If
dark99 發表在
痞客邦
留言(2)
人氣()
網路上找到的範例
If e.Item.Checked = True Then
For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
ListView1.CheckedItems.Item(i).Checked = False
End If
Next
End If
dark99 發表在
痞客邦
留言(0)
人氣()
