易截截图软件、单文件、免安装、纯绿色、仅160KB

VB中如何声明及使用多维数组,多层数组及动态数组

声明固定大小的数组  
  有三种方法声明固定大小的数组,用哪一种方法取决于数组应有的有效范围:    
  建立公用数组,在模块的声明段用   Public   语句声明数组。  
  建立模块级数组,在模块的声明段用   Private   语句声明数组。  
  建立局部数组,在过程中用   Private   语句声明数组。    
  设定上下界  
  声明数组时,在数组名之后跟一个用括号括起来的上界。上界不得超过   Long   数据类型的范围(-2,147,483,648   到   2,147,483,647)。例如,下列数组声明可出现在模块的声明段:  
   
  Dim   Counters   (14)   As   Integer                   '15   个元素。  
  Dim   Sums   (20)   As   Double                         '21   个元素。  
   
  为建立公用数组,直接用   Public   取代   Dim。  
   
  Public   Counters   (14)   As   Integer  
  Public   Sums   (20)   As   Double  
   
  在过程之中同样的声明使用   Dim:  
   
  Dim   Counters   (14)   As   Integer  
  Dim   Sums   (20)   As   Double  
   
  第一个声明建立了一个有   15   个元素的数组,其索引号从   0   到   14   。第二个声明建立了一个有   21   个元素的数组,其索引号从   0   到   20   。缺省的下界为   0。  
   
  为了规定下界,用关键字   To   显式提供下界(为   Long   数据类型):  
   
  Dim   Counters   (1   To   15)   As   Integer  
  Dim   Sums &


相关文档:

VB中 Replace 函数

VB中 Replace 函数
描述
返回字符串,其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数:
参数 描述
expression 必选。字符串表达式,包含要替换的子字符串。 
find 必选。被搜索的子字符串。 ......

求注释VB程序,只要大概整句意思即可,急用!!!

Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
        frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
         ......

VB中字符串匹配的多种方式

   这段时间在移植项目的过程中,起初我想判断一个字符串中是否存在某字符(串),直接的使用方法是用instr(start,string1,string2,VB compare),但经过分析在VB中可以只用一下方法来判断!
   1.常用的INStr方法
    Function InStr([Start], [String1], [String2], [Compare A ......

vb shell 应用程序

就这么一个函数就解决了那位仁兄3天多的工作
唉~!真被一个函数玩死了
这里顺便帖出来吧
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Microsoft.VisualBasic.Shell( ......

VB 写COOKIE

Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String) As Boolean
Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" (ByVal lpszUrlName ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号