· Public Sub distinctCount()
'求Col列中StartRow到EndRow范围中不重复的个数
'本例是计算标题为sheet1的Excel表中的A1:A240的不重复值的个数'修改下面四行的结尾值Dim sheetsCaption As String: sheetsCaption = "Sheet1"Dim Col As String: Col = "A"Dim StartRow As Integer...
· 显式的数组范围你现在可以使用显式的数组范围来声明数组，这样的声明更加清晰可读了：
Dim a(10) As Integer '旧方式
Dim b(0 To 10) As Integer '新方式Visual Basic中的数组范围仍然是以零为起始，所以如果你想声明一个不是以零为起始范围的数组，你就会得到一个编译器错误。小结Visual Basic 20...
· 'Form1 窗体
Dim userID As String
Dim mobileNo As String
Dim checkRnd As String
Dim longin As Boolean
Dim checkRndBox As String
Public fileno As Variant
Dim ys As Integer
Dim su As Long
Dim sum As Long
Dim pas As StringPrivate Sub Check2_Click()
On Error GoTo err1
If Check2.Va...
· ---------VB应用：在TEXTBOX中使用逗号区分数据------------主要作用是在查询数据库时，要求同一字段的多条件的查询，SQL语句的生成，下面代码是利用一个TextAfter的数组存放用逗号分隔开的数据。Dim intTextLen, i, k As IntegerDim TextBefore, TextAfter(100) As StringintTextLen = Len(TextBo...
· ----------VB.NET 导出数据到Excel中-------------Dim oExcel As New Excel.ApplicationDim obook As Excel.WorkbookDim oSheet As Excel.WorksheetDim DataArray(2000, 2000) As Integerobook = oExcel.Workbooks.Open("c:\1.xls")oSheet = obook.Worksheets(1)oSheet.Name = "ok&...
· ODBC New version:
"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;" Old version:
"Driver={Microsoft ODBC Driver for Oracle};ConnectString=OracleServer.world;Uid=myUsername;Pwd=myPassword;" OLEDB, OleDbConnection (.NET)...
· Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As IntegerConst EWX_FORCE As Short = 4Const EWX_LOGOFF As Short = 0Const EWX_REBOOT As Short = 2Const EWX_SHUTDOWN As Short = 1Dim retval As Integer' 定义Esc按...
设为首页
收藏本站
作者：黄振安
您现在的位置： 拓文网络 → 文章中心 → .NET编程
