個人記事

下面是最簡化 的方式  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

紫色這段  最好是放在 時間裡面 這樣才能有效果（因為一直迴圈跑）

　　ReleaseCapture

　 移動視窗

　　SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

網路找了一下 ，有些講的很明白 但是，有時並不能對我有所效用

我測試後，在我的方式下能跑的就是這樣

Dim MyDataSet As DataSet
Dim MyDataAd As OleDbDataAdapter

'開啟連結
conn.Open()

Dim my1

my1 = "Select * from table2"
MyDataAd = New OleDbDataAdapter(my1, conn)
MyDataSet = New DataSet
MyDataAd.Fill(MyDataSet, "table2")
DataGridView1.DataSource = MyDataSet.Tables("table2")
'關閉連結
conn.Close()

MyDataSet.Tables("table2").Rows.Add()

'欄位斷行
DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.True
'自動設定高度
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
'增加欄位
DataGridView1.Rows.Add()
DataGridView1.Item(0, 0).Value = "xxxx1" & vbNewLine & "xxxx3"

DataGridView1.Rows.Add()
DataGridView1.Item(0, 1).Value = "xxxx2" & vbNewLine

DataGridView 增加行列方式

'增加列
Dim col As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
col.HeaderText = "test"
DataGridView1.Columns.Add(col)

'增加Combobox
Dim col2 As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
col2.HeaderText = "test"
DataGridView1.Columns.Add(col2)

'增加行
DataGridView1.Rows.Add()

範例 擷取網頁碼

<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>

vb.net 

寫法

如下

For Each MyWeb1 As HtmlElement In web.WebBrowser2.Document.GetElementsByTagName("option")
If MyWeb1.GetAttribute("value") = "2" Then
MyWeb1.SetAttribute("Selected", "Ture")

MyWeb1.InvokeMember("click")
'web.WebBrowser2.Navigate("fnSetRadio(2)")
End If
Next