frm1.vb
来自「Chuong trinh tren PDA cho phep ket noi v」· VB 代码 · 共 40 行
VB
40 行
Imports System.Data
Public Class Frm1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tb As New DataTable()
Me.DataGrid1.DataSource = tb
'tb.Rows(0)(0) = DBNull.Value.ToString
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Me.Close()
'FrmGiaoHang.Show()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim kq() As String
Try
Integer.Parse(e.KeyChar.ToString)
Catch ex As Exception
kq = Me.TextBox1.Text.Split(e.KeyChar.ToString)
Me.TextBox1.Text = kq(0)
End Try
'MessageBox.Show(e.KeyChar.ToString)
End Sub
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?