月度归档： 2014 年 10 月

‘数组相关
dim 数组长度 as integer=12
dim 数组(数组长度-1) as byte() ‘数组长度-1：为数组下标最大值
msgbox(数组.length) ’12

‘如何让文本框自动滚动
textbox1.appendtext(“test”)
textbox1.scrolltocaret()

‘让listviewItem可见
Listview.FindItemWithText(“test”).EnsureVisible()

‘鼠标坐标
System.Windows.Forms.Cursor.Position
Control.MousePosition

‘权限
Imports System.Security.Principal

Module 权限
Public Function 是否为管理员()
Dim identity As WindowsIdentity = WindowsIdentity.GetCurrent()
Dim principal As WindowsPrincipal = New WindowsPrincipal(identity)
Return principal.IsInRole(WindowsBuiltInRole.Administrator)
End Function
End Module

限制 DataGridView 某列只能输入数字（参考这里）

 Private Sub TextBoxDec_KeyPress(sender As Object, e As KeyPressEventArgs)
        If e.KeyChar <> "8" And Not Char.IsDigit(e.KeyChar) And e.KeyChar <> "." Then
            e.Handled = True
        End If
    End Sub
    Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
        Dim columnIndex As Integer = 4
        If DataGridView1.CurrentCell.ColumnIndex = columnIndex Then
            AddHandler e.Control.KeyPress, AddressOf TextBoxDec_KeyPress
        Else
            RemoveHandler e.Control.KeyPress, AddressOf TextBoxDec_KeyPress
        End If

        Me.Text = DataGridView1.CurrentCell.ColumnIndex.ToString
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub

获取当前程序路径及程序名
Application.ExecutablePath

获取程序启动参数（注：参数前后有双引号）
dim para as String=Microsoft.VisualBasic.Command