不會的就放這邊

// === 對 Access 資料庫下SQL語法 ===

// Transact-SQL 陳述式
String strSQL = "INSERT INTO 資料表1 (A) VALUES('" + A4.Text + "')";

VB code

    Private Sub DataGridView1_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
        Me.Text = click_count
        click_count = click_count + 1

        Try
            If click_count = 1 Then
                ' dd1.Text = DataGridView1.CurrentCell.Value.ToString
                dd1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
            End If

            If click_count = 2 Then
                'dd2.Text = DataGridView1.CurrentCell.Value.ToString
                dd2.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
                click_count = 0
            End If

        Catch ex As Exception
            MessageBox.Show("GGGGGGGGGGG")
        End Try

    End Sub

 DataGridView顯示最新的行數

DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView1.Rows.Count - 1

[VB教學]用圖片當Button且不要外框

https://social.msdn.microsoft.com/Forums/en-US/c8272632-f2c3-4492-b5df-b8739a3c695d/how-i-can-change-ip-mask-and-gw?forum=Vsexpressvb

只能在執行檔直接打開,在debug模式無法

For count As Integer = 1 To 20

Me.Controls("PictureBox" & count).BackColor = Color.Green

功能有

二進位轉十進位 二進位轉化為八進位 二進位轉化為十六進位 八進位轉化為十進位 八進位轉化為二進位 八進位轉化為十六進位 十進位轉二進位 十進位轉化為八進位 十進位轉化為十六進位 十六進位轉化為二進位 十六進位轉化為八進位 十六進位轉化為十進位 16進制轉ASC 10進制長整數轉4位16進制字串 10進制長整數轉2位16進制字串 ASCII字串轉16進制字串 反16進制數轉10進制數,共8位 反16進制數轉10進制數,共6位 反16進制數轉10進制數,共4位 10進制數轉反16進制數,共8位 0進制數轉反16進制數,共6位 10進制數轉反16進制數,共4位 記錄集轉二進位流 ASCII碼轉二進位流 二進位流轉ASCII碼

可能轉東西的時候重複轉

例如

a=hex(fuck)

http://www.dotblogs.com.tw/chou/archive/2009/07/31/9774.aspx

ASK

我的ListBox和ComboBox內有第1~第5 項目!!
而我想用Button1和Button2控制上一個下一個選項
如何讓ListBox和ComboBox同樣顯示是第一個或第X個

如下程式碼，user4data是一個十六進制的值，當加上&H變成一個十六進位的數值，之後外面包一個val，變成int，之後Mod2意思是取得bin的最小位元，

InOutMoveSwitch1.Text = Val("&H" & Mid(user4data, 1, 1)) Mod 2
InOutMoveSwitch2.Text = (Val("&H" & Mid(user4data, 1, 1)) \ 2) Mod 2

範例https://drive.google.com/file/d/0B5gm0awGSGVOLXh6cWhvREp6Q0E/view?usp=sharing

第一步：工具->選項->環境和方案->一般->顯示進階組建組態

第二步：建置->組態管理員->使用中的方案平台->新增->x86

第三步：您的專案屬性->編譯->平台->x86

DataGridView1.Rows(i).DefaultCellStyle.BackColor = System.Drawing.Color.LightGreen

Dim str As String = "Provider=Microsoft.Jet.Oledb.4.0;Data source=bad.mdb"
Dim conn As OleDbConnection = New OleDbConnection(str)

Dim str As String = "Provider=Microsoft.Jet.Oledb.4.0;Data source=bad.mdb"
Dim conn As OleDbConnection = New OleDbConnection(str)
' TODO: Modify the connection string and include any