不會的就放這邊

Imports HtmlAgilityPack

GridView1.Rows.Count.ToString 

Dim MyValue As Integer
MyValue = Int((6 * Rnd) + 1)    ' Generate random value between 1 and 6.

LISTBOX.items.count

private void button1_Click(object sender, EventArgs e)
{
    MailMessage mail = new MailMessage();
    NetworkCredential cred = new NetworkCredential("xxx@gmail.com", "password");
    //收件者
    mail.To.Add("ggyy@hotmail.com,ooxx@hotmail.com");
    mail.Subject = "subject";
    //寄件者
    mail.From = new System.Net.Mail.MailAddress("xxx@gmail.com");
    mail.IsBodyHtml = true;
    mail.Body = "message";
    //設定SMTP
    SmtpClient smtp = new SmtpClient("smtp.gmail.com");
    smtp.UseDefaultCredentials = false;
    smtp.EnableSsl = true;
    smtp.Credentials = cred;
    smtp.Port = 587;
    //送出Mail
    smtp.Send(mail);
}

zedGraphControl1.RestoreScale(myPane); //畫面重整

一般而言like搭配萬用字元的使用方式 select * from DataTable where ColumnName like '%ConditionName'

不過access的用法則是..

select * from DataTable where ColumnName like '*ConditionName'

Dim countchartx As Integer '定義在最前面
DataGridView1.DataSource = set1.Tables("1a")  ' 要先把資料庫資料放入資料表!!!


'在程式中

Dim month(DataGridView1.Rows.Count - 1) As String  '定義一個資料表筆數的矩陣
For Me.countchartx = 1 To DataGridView1.Rows.Count - 1
        month(Me.countchartx - 1) = Format(CDate(DataGridView1.Rows(Me.countchartx - 1).Cells(1).Value), "hh:mm:ss")  '把所有資料表的時間存入矩陣中
Next

ZedGraphControl1.GraphPane.XAxis.Type = AxisType.Text
ZedGraphControl1.GraphPane.XAxis.Scale.TextLabels = month  '然後就會放在X軸囉

Console.WriteLine(System.Reflection.Assembly.GetExecutingAssembly().Location)
'C:\My Application\ClassLibrary1.dll

Console.WriteLine(System.Reflection.Assembly.GetExecutingAssembly().CodeBase)
'file:///C:/My Application/ClassLibrary1.DLL

Console.WriteLine(System.Reflection.Assembly.GetExecutingAssembly().EscapedCodeBase)
'file:///C:/My%20Application/ClassLibrary1.DLL

'資料庫讀進來後,在DataGridView1做排序
DataGridView1.Sort(DataGridView1.Columns(0),System.ComponentModel.ListSortDirection.Ascending)

'之後for迴圈用這個修正

  list1.Clear()  '清掉上次資料

  For Me.kgg = 0 To DataGridView1.Rows.Count - 1

                list1.Add(Me.kgg, DataGridView1.Rows(Me.kgg).Cells(5).Value)
   Next

清除LIST1

Dim list1 = New PointPairList() '定義

list1.clear()



Dim myCurve5 As LineItem = myPane5.AddCurve("GapPV1", list5, Color.Blue, SymbolType.None) '不要有點