leme

2018年7月10日

摘要： '導入命名空間 Imports NPOI.HSSF.UserModelImports NPOI.HPSFImports NPOI.POIFS.FileSystem Private Sub A1()'方法1-導到Excel Dim workbook As HSSFWorkbook = New HSSF 阅读全文

posted @ 2018-07-10 15:46 leme 阅读(3161) 评论(0) 推荐(0) 编辑

vb.net 日期時間

摘要： Dim dMyDate As DateTime = DateTime.Now‘當前時間日期 DateDiff("h", C13, C3)’ 二時間差 ‘日期格式 C2 = Format(dMyDate, "yyyy-MM-dd_HH:mm:ss") DateTimePicker1.Value = d 阅读全文

posted @ 2018-07-10 15:11 leme 阅读(1378) 评论(0) 推荐(0) 编辑

vb.net 发Mail

摘要： Private Sub A1() '创建发件连接,根据你的发送邮箱的SMTP设置填充 Dim a As System.Net.Mail.Attachment Dim smtp As New System.Net.Mail.SmtpClient("郵箱地址", 25) '发件邮箱身份验证,参数分别为阅读全文

posted @ 2018-07-10 14:13 leme 阅读(205) 评论(0) 推荐(0) 编辑

vb.net 變量及数据类型

摘要： Dim过程级变量 Private模块级变量 Public全局变量 Integer(整型) Long(长整型) Single(單精度浮點型) Double(双精度浮点型) Decimal(十进制型) Short(短整型) Char包含单个字符 String包含任意一串字符布尔类型（Boolean）：阅读全文

posted @ 2018-07-10 14:09 leme 阅读(570) 评论(0) 推荐(0) 编辑

vb.net Function使用

摘要： Public Function colour(ByVal Code As Int16) As Color'顏色 Select Case Code Case 1 colour = Color.White'白色 Case 2 colour = Color.Yellow'黃色 Case 3 colour 阅读全文

posted @ 2018-07-10 13:36 leme 阅读(1714) 评论(0) 推荐(0) 编辑

vb.bet 控件

摘要： Me.ComboBox1.Items.Add(Reader.Item(0)) ‘ComboBox增加內容 Me.ComboBox1.Items.Clear() '清空ComboBox內容 ImeMode 属性 Disable IME 被禁用。如果使用此设置，则用户无法从键盘打开 IME，而且 IME 阅读全文

posted @ 2018-07-10 11:09 leme 阅读(312) 评论(0) 推荐(0) 编辑

2018年7月6日

VB.NET 窗體操作

摘要： Private Sub A1() '加载窗体 frm1.Show() End Sub Private Sub A2() '離開 Process.GetCurrentProcess().Kill() End Sub Private Sub A3() '卸载窗体 Me.Close() End Sub P 阅读全文

posted @ 2018-07-06 20:02 leme 阅读(179) 评论(0) 推荐(0) 编辑

VB.Net DataSet 填充資料庫內容

摘要： '導入命名空間Imports System.Data.OleDb '定義變量 Dim ds As DataSet = New DataSet() Dim i, cn As Integer Dim Sql As String 'Oracle連線 Dim SqlTP As OleDbConnection 阅读全文

posted @ 2018-07-06 10:51 leme 阅读(544) 评论(0) 推荐(0) 编辑

2018年7月5日

VB.NET datagridview的操作

摘要： '空值判斷 If IsDBNull(DataGridView1.Item(1, 1).Value) = True Then DataGridView1.Item(1, 1).Value = "空值" End If '删除所有行 DataGridView1.Rows.Clear() '删除第一行 Da 阅读全文

posted @ 2018-07-05 13:37 leme 阅读(1523) 评论(0) 推荐(0) 编辑

vb.net操作Excel

摘要： Excel2007添加引用Microsoft Excel 12.0 library object '導入命名空間 Imports Microsoft.Office.Interop Private Sub A1() '導出Excel Dim Xls As Excel.Application = New 阅读全文

posted @ 2018-07-05 11:35 leme 阅读(1468) 评论(0) 推荐(0) 编辑

公告