目前分類:VB NET (14)

瀏覽方式: 標題列表 簡短摘要

按鈕大小、高度變更

toolStrip屬性  autosize = false

 

按鈕圖片大小變更

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

, , , ,

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

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

, , , , ,

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

點選 DataGridview 元件

把SelectionMode 屬性改成 FullRowSelect

就可以直接選取一整列囉


goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

    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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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


goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

 

        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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

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

End If


goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

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

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

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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

    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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

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

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

' 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 載入影像

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

在VS.NET 2005裡已經提供了這樣的功能

C#的寫法是 /// (三個/)
VB.NET的寫法是 ''' (三個單引號)

先將類別、屬性、Function建好
最後在你要加上Intellisense說明的地方(類別或屬性或Function的上方)

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()