VB.net
Carpe_D1em
这个作者很懒,什么都没留下…
展开
-
用vb创建一个控制台应用程序
Module Module1 Sub Main() Dim strTmp As String = "abcdefg某某某" Dim i As Integer = System.Text.Encoding.Default.GetBytes(strTmp).Length Dim j As Integer = strTmp.Length ...原创 2018-08-06 16:57:36 · 3384 阅读 · 0 评论 -
vb中调用存储过程并返回一个DataTable结果集
Public Function getNotParameterPR() As DataTable Dim cmd As SqlCommand = getCommand("存储过程名") cmd.CommandType = CommandType.StoredProcedure Dim read As SqlDataReader = Nothing Dim dt A...原创 2018-08-30 09:58:03 · 2091 阅读 · 0 评论 -
DataGridView 按要求屏蔽掉方向键
Private Sub dgv_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvSalesIncluded.KeyDown '取当前行列索引 Dim row = dgv.CurrentCell.RowIndex Dim col = dgv.CurrentCell.ColumnIndex '如果下一行...原创 2018-09-04 20:23:51 · 766 阅读 · 0 评论 -
DataGridView 当前单元格不符合要求 不跳到下一个单元格
'CellValidating事件Private Sub dgvSalesIncluded_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles dgvSalesIncluded.CellValidatingIf dgv.Columns(e.ColumnIndex).Name =...原创 2018-09-04 20:20:48 · 640 阅读 · 0 评论 -
DataGridView中把Enter键的功能(下一行)换成Tab键(同一行的下一列)
Protected Overrides Function processCmdKey(ByRef msg As Message, ByVal keydata As Keys) As Boolean Select Case keydata Case Keys.Enter SendKeys.Send("{Tab}") Retur...原创 2018-09-04 20:16:47 · 2005 阅读 · 2 评论 -
DataGridView取消默认选中的单元格
'取消默认选中行 dgv.ClearSelection()原创 2018-09-04 20:14:37 · 4981 阅读 · 1 评论 -
DataGridView 更改Header样式
'必须先设置 EnableHeadersVisualStyles 属性 才能设置Header颜色dgv.EnableHeadersVisualStyles = Falsedgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Greendgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Gr...原创 2018-09-04 20:08:27 · 3923 阅读 · 0 评论 -
vb.net中DataTable输出定长TXT文件或者CSV文件方法和使用Format占位(0和半角空格)
'DataTalbe输出到TXT/CSV文件Dim fs As FileStream = New FileStream(path, FileMode.Create, FileAccess.Write)Dim sw As StreamWriter = New StreamWriter(fs, System.Text.Encoding.Default)'列名For i = 0 To data...原创 2018-08-28 10:01:58 · 1212 阅读 · 0 评论 -
vb.net修改DataGridView列名、手动向DataTable添加列数据和行数据
'添加列名Dim dt As New DataTabledt.Columns.Add(New DataColumn("列名1"))dt.Columns.Add(New DataColumn("列名2"))dt.Columns.Add(New DataColumn("列名3"))'从数据库中提取出来DataTalbe显示到DataGridView修改列名dgv.DataSource ...原创 2018-08-28 09:57:48 · 7779 阅读 · 1 评论 -
vb.net中DataTable取交差集和遍历DataRow的方法
Dim row As DataRowDim rows As DataRow()For Each row In DataTable1.Rows rows = DataTable2.Select("DataTable1的列名=" & row(0).ToString.Trim ) '条件 If Not rows.Length = 0 Then '差集 ...原创 2018-08-28 08:52:43 · 4908 阅读 · 0 评论 -
vb手动输入字符串(SQL语句)太长时 怎么换行输入
Dim str As String = "abc" & "def" & "ghi"原创 2018-08-28 07:50:40 · 6924 阅读 · 0 评论 -
判断日期格式的正则表达式
Imports VBScript_RegExp_55'正则表达式() Dim b As Boolean Dim res As New RegExp res.Pattern = "\d{4}\-(0?[1-9]|[1][012])\-(0?[1-9]|[12][0-9]|3[01])" b = res.Test(tbBirthd...原创 2018-08-02 19:41:30 · 9990 阅读 · 0 评论 -
vb 把Form窗体嵌入到Panel中
Private Sub btnOtherOperation_Click(sender As Object, e As EventArgs) Handles btnOtherOperation.Click rightPanel.Visible = True Dim form2 As New Form2 form2.TopLevel = False...原创 2018-08-07 09:27:07 · 2105 阅读 · 0 评论 -
vb 插入sqlserver数据库中文乱码问题
VS2012 strSql = "insert into stuInfo values(" & id & ",N'" & tbName.Text & "',N'" & sex & "','" & birthday & "'," & age & &原创 2018-08-02 13:47:00 · 948 阅读 · 0 评论 -
vb字符串数组初始化赋值
Dim str() = {"1","2","3","4","5"}原创 2018-08-30 10:27:31 · 11926 阅读 · 0 评论