Dim intResult As Integer = Nothing - 腾讯云开发者社区

文章/答案/技术大牛

发布

房费制——登录优化

euser As New Entity.User Dim euserRecord As New Entity.UserRecord Dim blogin As New...result As Integer result = iuser.AddUserRecord(euserRecord) If result...'用户登录成功加入记录到UserRecord Public Function AddUserRecord(euserRecord As Entity.UserRecord) As Integer...helper As New SqlHelper.sqlHelper Dim intResult = helper.ExecuteNoQuery(strSQL, CommandType.Text..., params) Return intResult Catch ex As Exception Throw New Exception

4372 0

vb.net ExcelHelper类(三)

sheet As Excel.Worksheet = Nothing Dim i As Integer = 1 While i <= Me.WorkSheetCount workSheet =...End If Dim i As Integer = Convert.ToInt32(n / 26) Dim j As Integer = n Mod 26 Dim c1 As Char = Convert.ToChar..., beginRowIndex As Integer, rows As Integer) Dim beginIndex As Integer = beginRowIndex Dim count As...Integer = 0 Dim text1 As String Dim text2 As String If sheet Is Nothing Then Return End If Dim..., rows As Integer) As Integer Dim n As Integer = rowCount Mod rows '余数 If n = 0 Then Return rowCount

1.3K2 0

您找到你想要的搜索结果了吗？

是的

没有找到

VB.NET 实现LED效果源码

Private IMG_MASK As Bitmap = Nothing Private TF As Boolean = False Public LED_UP As Integer...W As Integer = 1 Dim W_W As Integer = 1 Using TB As New Bitmap(W + W_W...For J As Integer = 0 To TXT_MASK.Height - WW Dim Cl As Color = Color.Transparent...Dim X, Y As Integer X = I * 4 Y...AA As Integer = Bts2(2) + LED_UP Dim AB As Integer = Bts2(1) + LED_UP

1.1K2 0

VB.NET DATAGRIDVIEW数据导出Excel

sub datagridviewtoExcel() Dim xlapp As New Excel.Application() xlapp.Visible = True Dim...rowc As Integer = prt_dgv.Rows.Count Dim colc As Integer = prt_dgv.Columns.Count Dim...dCC As Integer = 1 Dim row As Integer = 0 xlapp.Application.Workbooks.Add(True)...xlapp.Caption = pdt_coding.Text & " - " & Now Dim xlbook As Excel.Workbook Dim xlsheet...xlsheet = Nothing xlbook = Nothing xlapp = Nothing End Sub

2.7K2 0

vb.net ExcelHelper类(二)

sheet As Excel.Worksheet = Nothing Dim i As Integer = 1 While i <= Me.WorkSheetCount workSheet =...End If Try Dim sheet As Excel.Worksheet = Nothing sheet = CType(workBook.Sheets.get_Item(sheetIndex...) Try Dim sheet As Excel.Worksheet = Nothing Dim sheetIndex As Integer = 0 Dim i As Integer = 1...sheet As Excel.Worksheet = Nothing '找到名称位sheetName的工作表 Dim i As Integer = 1 While i Nothing Dim sheetIndex As Integer = 0 If ht.Count = 0 Then Return End If Try Dim i As Integer

1.6K2 0

用 VBA 在 PPT 中批量插入图片

插入图片前的PPT页面： VBA 代码： Sub insert_images() ' 定义变量 Dim pptApp As Object, pptPres As Object, slide...As Object, shape As Object Dim workingpath As String, cell_height As Integer, cell_width As Integer..., x As Integer, y As Integer Dim fso As Object, folder As Object, subfolder As Object, file As Object...pptApp.Visible = False workingpath = ActivePresentation.Path '获取当前PPT的路径 ' 在当前演示文稿中插入图片 Dim...Set slide = Nothing Set pptPres = Nothing Set pptApp = Nothing End Sub 运行宏之后的效果：

3.4K4 0

机房收费系统————导出到Excel

i As Integer Dim j As Integer On Error Resume Next If myflexgrid.TextMatrix(1, 0) =...Set exbook = Nothing Set excelApp = Nothing End Sub 法二：数据从SQL Server数据库的记录中导出 Private Sub...cmdExport_Click() Dim i As Integer Dim txtSQL As String Dim MsgText As String Dim mrc...As ADODB.Recordset Dim x1app1 As Excel.Application Dim x1book1 As Excel.Workbook Dim x1sheet1...x1app1.Visible = True Set x1app1 = Nothing End Sub （第一次在csdn上写，还有点小激动呢）发布者：全栈程序员栈长，转载请注明出处

9692 0

VB.net datagridview转Excel,datatable转数组

arr(dt.Rows.Count, dt.Columns.Count - 1) Dim brr(dt.Columns.Count - 1) Dim i As Integer...= 0 Dim j As Integer = 0 For k As Integer = 0 To dt.Columns.Count - 1 brr...Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet '---------------...xlsheet.Select() '--------------------------------------------------- xlsheet = Nothing...xlbook = Nothing xlapp = Nothing End Sub

2.6K2 0

办公用品管理系统VB——库存数量导出EXCEL，SaveEXCEL

As Integer '用作循环，标识MSHFlexGrid总行数 Dim Intcols As Integer '用作循环，标识MSHFlexGrid的总列数...Dim XlsApp As Excel.Application '定义EXCEL对象 Dim XlsSheet As Excel.Worksheet '定义EXCEL表 Dim...找到上面代码的原因了，什么也不说了上代码 Dim i As Integer Dim j As Integer Dim k As Integer Dim xlApp As Excel.Application...xlApp.Visible = True Set xlApp = Nothing 'Excel 处于当前窗体 Set xlBook = Nothing Set xlSheet = Nothing...Private Sub SaveEXCEL_Click() Dim i As Long, j As Long Dim xlsApp As Excel.Application Dim

1.4K2 0

mapx实现热点效果

Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 'StatusBar1....Panels(1).Text = X & "," & Y Dim Lon As Double Dim lat As Double Dim fs As Features ...Dim pnt As New Point Dim lb As MapXLib.Label '±ê×¢¶ÔÏó Map1.ConvertCoord x, y, Lon, lat, miScreenToMap...Map1.Layers(PLayer).SearchAtPoint(pnt) If fs.Count > 0 Then '¶¨Î»¶ÔÏó If Not curftr Is Nothing...ÉèÖÃ Set lb = GetLabel(fs.Item(1).FeatureKey, Map1.Layers(PLayer).Labels) If Not lb Is Nothing

7737 0

基础扩展 | 26. 使用VBA实现二叉排序树

pTree As BinaryTreeItem Dim qTree As BinaryTreeItem Set qTree = Nothing If bstTree Is Nothing...bst As BinaryTreeItem, pst As BinaryTreeItem Dim i As Integer Dim length As Integer length...= UBound(arr) -LBound(arr) + 1 Set bst = Nothing For i = 0 To length - 1 Set pst = New...Sub test() Dim myTree() As New BinaryTreeItem Dim myArr() As Variant Dim bstTree As BinarySortTree...Dim i As Integer '初始化结点数据 myArr = Array(62, 88, 58,47, 35, 73, 51, 99, 37, 93) ReDim

1.4K4 1

VB.NET MDB数据库导出到Excel表生成分析报表

''' ''' Public Sub New(DbPath As String) Dim...>sql语句 ''' Public Function ExecuteNonQuery(SqlStr As String) As Integer...rows As Integer = CmdObject.ExecuteNonQuery() CmdObject.Parameters.Clear()...dt As DataTable = DbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing..., Nothing, "TABLE"}) Dim tableNameList As New List(Of String) For i As Integer

1.9K2 0

基础扩展 | 25. 建立二叉树（使用链式存储实现）

Private Sub Class_Initialize() initBinaryTree End Sub '初始化树 Sub initBinaryTree() Set HeadNode = Nothing...,length As Integer) Dim NewNode As BinaryTreeItem Dim ch As String * 1 Set NewNode = Nothing...CreateBinaryTree =NewNode End Function '前序遍历 Sub PreOrder(Node As BinaryTreeItem) If (Not Node Is Nothing...Sub test() Dim btTree As BinaryTree Dim str1() As String * 1 Dim i As Integer Dim j As...Integer Dim iLen As Integer Dim str2 As String str2 ="ABDHIEJ#CFG" iLen = Len(str2)

1.3K3 0

【摸鱼也要有技术含量】用 Excel 打造翻牌记忆小游戏，老板看了都说我在加班！

把下面代码粘贴到模块中 Dim CardValues(1 To 4, 1 To 4) As String Dim FirstCell As Range Dim GameStarted As Boolean...Sub StartGame() Dim symbols As Variant Dim i As Integer, j As Integer Dim randIndex As Integer..., temp As String Dim k As Integer symbols = Array("A", "B", "C", "D", "E", "F", "G", "H", "A"...点击两个格子配对吧～" End Sub Sub ShowCard(Target As Range) If Not GameStarted Then Exit Sub Dim r As Integer...GameStarted = False End If End If End Sub Function AllMatched() As Boolean Dim i As Integer

1.8K0 0

VB.net-VSTO数据-日期处理-求月数与天数差

注意年月的格式是4位数值的文本格式同理6位的年月日的日期的文本格式也同理的操作就计算出天数差了 4.关键代码： '输入两个形如202207的年月日期4位文本，返回月数差（integer） Public...Function GetmonthDiff(startDateStr As String, endDateStr As String) As Integer Dim startDate...As DateTime Dim endDate As DateTime Dim monthDifference As Integer Try...Dim startDate As DateTime = DateTime.ParseExact(startDateText, "yyyyMMdd", Nothing) Dim endDate...As DateTime = DateTime.ParseExact(endDateText, "yyyyMMdd", Nothing) Dim dayDifference As

3441 0

VBA: 多份文件的批量顺序打印（2）

As Variant, Filename As String Dim arr(), num_row As Integer, ii As Integer, flag As Integer..., temp As Integer Dim Response1, Response2 ThisWorkbook.Activate With fd...vrtSelectedItem Else Set fd = Nothing...Set fd = Nothing MsgBox "打印结束！"...arrSplitStrings() As String Dim num As Integer arrSplitStrings = Split(path, sep)

1.9K4 0

VB.net-VSTO数据-日期处理-求月数与天数差

3351 0

VB.net-VSTO数据-日期处理-求月数与天数差

2741 0

使用FSO修改文件特定内容的函数

Set objFSO = Nothing End Function ””使用FSO读取文件内容的函数 function FSOFileRead(filename) Dim objFSO,objCountFile...set objSubFolders=nothing set fso=nothing end function %> <% ‘bianli(“d:”) ‘遍历d:盘 %> <% ‘替换指定文件内字符串的函数...strCaiPiaoNoArr() As String Dim strSQL As String Dim strCaiPiaoNo As String strCaiPiaoNo = “01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33...” Dim StrTempArr(7) As String Dim strZhongJiangArr(7) As String strCaiPiaoNoArr = Split(strCaiPiaoNo..., “,”) Dim intRand As Integer Dim i As Integer Dim j As Integer i = 0 Dim find As Boolean Do While

2K2 0

小游戏2048

Public Row As Integer, Col As Integer '偏移 Dim D As Object '颜色 Dim RndRng As...i As Integer '列方向 Dim j As Integer '行方向 For i = 5 To 2 Step -1...TempRng As Range Dim i As Integer For i = 4 To 7 Step 1 If Application.WorksheetFunction.Count...X As Integer '空白单元格的某一个区域 Dim y As Integer...Set D = Nothing Start = False Set sht = Nothing End Sub Sub SetUndo() '设置撤销 Dim Rng

1.1K3 0

点击加载更多

房费制——登录优化

vb.net ExcelHelper类(三)

VB.NET 实现LED效果源码

VB.NET DATAGRIDVIEW数据导出Excel

vb.net ExcelHelper类(二)

用 VBA 在 PPT 中批量插入图片

机房收费系统————导出到Excel

VB.net datagridview转Excel,datatable转数组

办公用品管理系统VB——库存数量导出EXCEL，SaveEXCEL

mapx实现热点效果

基础扩展 | 26. 使用VBA实现二叉排序树

VB.NET MDB数据库导出到Excel表生成分析报表

基础扩展 | 25. 建立二叉树（使用链式存储实现）

【摸鱼也要有技术含量】用 Excel 打造翻牌记忆小游戏，老板看了都说我在加班！

VB.net-VSTO数据-日期处理-求月数与天数差

VBA: 多份文件的批量顺序打印（2）

VB.net-VSTO数据-日期处理-求月数与天数差

VB.net-VSTO数据-日期处理-求月数与天数差

使用FSO修改文件特定内容的函数

小游戏2048

相关资讯

热门标签

活动推荐

运营活动

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐