歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

Dim AA as string="555"

Debug.Print(AA.PadLeft(6, "0"))   '顯示為000555

Debug.Print(AA.PadLeft(6, "$"))   '顯示為$$$555 (注意，後面的字串只能一個位元)

先在畫面上拉幾個控制項
TextBox => 輸入「分鍾」，例如: 倒數5分鍾
Button => 開始
Label => 顯示倒數開始
Timer => 跑倒數要用的元件

按鈕大小、高度變更

toolStrip屬性  autosize = false

按鈕圖片大小變更

在Button上把屬性 imagescaling 設為 none 即可

If MsgBox("確定訊息", MsgBoxStyle.OkCancel, "視窗標題") <> MsgBoxResult.Ok Then
    '不執行
    Return
End If

If MessageBox.Show("內容", "標題", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) <> MsgBoxResult.Ok  Then

點選 DataGridview 元件

把SelectionMode 屬性改成 FullRowSelect

就可以直接選取一整列囉

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then
            If e.KeyChar = "." And InStr(TextBox1.Text, ".") > 0 Then
                e.Handled = True
            Else

        For i As Integer = 0 To DataGridView1.ColumnCount - 1
            DataGridView1.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
        Next

        If DataGridView1.Rows.Count <> 0 Then
            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                If (i Mod 2) = 0 Then
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = System.Drawing.Color.LightGreen

If IsDBNull(dtTable.Rows(1).Item("IsTrue")) = True Then

      dtTable.Rows(1).Item("total") = "0"

End If

Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open("C:\Documents and Settings\Administrator\桌面\訂單.xls")
Dim xlSheet As Excel.Worksheet = xlApp.ActiveSheet

DataGridView1.Columns.Add("Test", "Test")

DataGridView 是.NET Framework 2.0 新增的Windows Form 控制項, 這個控制項提供類似Excel 凍結欄位及記錄的功能.

DataGridViewColumn及DataGridViewRow皆有Frozen 屬性, 只要將這個屬性值設為True就可達到凍結的目的.

處理凍結時通常還會將 "分割線" 設為較粗的線條, 
DataGridViewColumn有DividerWidth屬性, DataGridViewRow有DividerHeight屬性, 分別將它們設為大於1的值就會有比較明顯的區隔效果.

例如, 在Form_Load 事件處理凍結效果:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using g As Graphics = Graphics.FromHwnd(Me.Handle)
            Dim xv = PhysicalToPixels(1, g.DpiX)
        End Using
    End Sub

    Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
        '上
        e.Graphics.DrawLine(New Pen(System.Drawing.Brushes.Black, 1), New Point(0, 0), New Point(Label1.Width - 1, 0))
        '左
        e.Graphics.DrawLine(New Pen(System.Drawing.Brushes.Black, 1), New Point(0, 0), New Point(0, Label1.Height - 1))

' VB.Net 把byte array轉成String
Dim b As Byte() = {65, 66, 67, 68, 69, 70, 71}
Dim str As String
Dim enc As New System.Text.ASCIIEncoding()
Response.Write(enc.GetString(b))

' Form Load 事件, PictureBox 讀入圖片

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize ' 設定PictureBox 自動調整大小

PictureBox1.Load("C:\Picture\Genius.jpg") ' PictureBox 載入影像