VB.NET的一些操作

Dim WYY As Integer

Dim WMM As Integer

WYY = Year(Today)

WMM = Month(Today)

 

Messagebox提示信息的返回值MsgBoxResult.Yes

 

增加一个事件（相当于重载）

AddHandler _txtHjiMinValue_0.TextChanged, AddressOf numTxtBox_TextChanged

删除一个事件

RemoveHandler _txtHjiMinValue_0.TextChanged, AddressOf numTxtBox_TextChanged

 

Keydown的key.value,8是backspace,46是delete

Keypress的时候，忽略输入字符

If e.KeyChar < Chr(Keys.D0) Or e.KeyChar > Chr(Keys.D9) Then

   e.KeyChar = Chr(Keys.None)

   '或者

   'e.Handle = false

'else

   'e.Handle=true

End If

 

 

'退出时根据判断，不关闭窗体 Private Sub frmM10V041S_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Try Dim Responce As Object If EditDiv = True Then Responce = Messagebox.Show(“退出吗？”) Select Case Responce Case MsgBoxResult.No e.Cancel = True End Select End If Catch ex As Exception End Try End Sub

 

'达到最大长度后不好输入 Private Sub cmbSekkei_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSekkei.TextChanged If StrLenB(sender.Text, 32) = False Then sender.Text = bSubstring(sender.Text, 32) sender.SelectionStart = sender.Text.Length End If End Sub Public Shared Function StrLenB(ByRef str As String, ByVal len As Integer) As Boolean Try If System.Text.Encoding.Default.GetByteCount(str) <= len Then Return True Else Return False End If Catch ex As Exception End Try End Function