精华内容
下载资源
问答
  • 输入输出知识点(1) inputbox函数inputbox用于接收用户的键盘数据的输入,只接收一个数据输入...和““空标题不一样Inputbox返回的数据类型是string,因此通常返回数值类型的时候需要加val函数可以把字符串转换成数值...

    558477214f33d8c8bb10759fe9517c9c.png

    356cccb69bebcd1165d0f1ba35ba87f2.png

    输入输出知识点

    (1) inputbox函数

    inputbox用于接收用户的键盘数据的输入,只接收一个数据输入 

    inputbox的语法格式:inputbox(“提示信息”,”标题”,”默认值”)

     提示信息长度不能超过1024字节

     对话框标题如果不写,默认为工程1,和““空标题不一样

     Inputbox返回的数据类型是string,因此通常返回数值类型的时候需要加val函数可以把字符串转换成数值。

    ccda690c7a1f92989c2507386d77b7cd.png

    (2) msgbox函数

    msgbox函数用于进行消息的提示,并且接受用户的反馈的单击按钮信息

    msgbox的语法格式:

    msgbox(“提示信息”,对话框按钮组合方式+图标+默认按钮,”标题”)

     提示信息长度不能超过1024字节

     对话框标题如果不写,默认为工程1,和““空标题不一样

    Msgbox返回的数据类型是integer类型,即用户单击了消息框按钮后返回vbyes,vbno等VB常量,详细请参考书上对应的表格

    (3) msgbox语句

    msgbox语句和msgbox函数的相同之处都是给出一个消息提示

    msgbox语句和msgbox函数的不同之处是语句没有返回值,即用户单击了消息框按钮后,也没有任何的信息返回

     其他语法规则,包括对话框的组合方式都和msgbox函数是完全一样的

    (4) print方法

    print方法用于在form上或者在打印机上输出数据 

    print单独写是打印一个空行 

    print后面加;是连续在一行输出

    print后面加,是以14个字符为一个输出区输出各表达式

     tab(n)是绝对距离 

    spc(n)是相对距离

    36f1a5f4e6eefd52328ec39dfc845ef4.png

    1734e12d64ea8e5b8da2ce3e730765c1.png控件综合部分764f8568511f84b3db050bb056a03fc4.png

    标签

    类名叫label,实例化对象名字默认叫label1,即name属性

    Caption:显示标签的文本内容,例如label1.caption=”欢迎vb” 

    Backstyle:设置标签透明效果,0为透明,1为不透明

    601101cf2183a254ae5ebf7231e3b24e.png

    文本框

     类名叫textbox,实例化对象名字默认叫text1,即name属性

    Text:用来显示或者获取文本框的内容,例如:text1.text=”12”显示12到

    文本框,a=text1.text获取文本框输入的内容

    Alignment:文本框的对齐方式 

    Enable:设置文本框是不是可用 

    Visible:设置文本框可见与否

    Tooltiptext:设置鼠标放置上去后的提示信息

     Passwordchar:输入或者显示密码的符号

     Maxlength:设置输入字符的最大长度,为0可以输入任意长度 

    Change事件:文本框内容发生变化的时候就触发

    b4c764b17a652d63845f04d16af780b8.png

    命令按钮

    类名叫commandbutton,实例化对象名默认叫command1,即name属性

    Canel:设置按钮是否为当前窗体中默认取消按钮,ESC时触发 

    Default:设置按钮是否为当前窗体默认确定按钮,ENTER时触发

    计时器

     类名叫timer,实例化对象名默认叫timer,即name属性 

    Enable:设置文本框是不是可用

    Interval:设置计时间隔,单位毫秒

    图形按钮

    类名叫pictureBox,实例化对象名默认叫picture1,即name属性

    Picture:设置该属性装载图片,格式Picture1.picture=loadpicture(“URL”)

    0f8f197d59141a98d36e67291b5e0894.png

    单选按钮

     类名叫optionbutton,实例化对象名默认叫option1,即name属性

     Caption:显示单选按钮的文本内容

     Value:确定单选按钮是不是被选中,值为true和false

    If option1.value=true then

    Label1.caption=option1.caption

    Elseif option2.value=true then

    Label1.caption=option2.caption

    End if

    复选按钮

    类名叫checkbox,实例化对象名默认叫check1,即name属性 

    Caption:显示复选按钮的文本内容

     Value:确定复选按钮是不是被选中,值为0和1,2分别表示为未选中,

    选中,不可以使用

    If check1.value=1 then

    Label1.caption=check1.caption

    endif

    If check2.value=1 then

    Label1.caption=check2.caption

    End if

    滚动条

    类名叫scrollBar,实例化对象名默认叫scroll1,即name属性 

    Max:滚动条的最大值

     Min:滚动条的最小值

     Smallchange:单击滚动条箭头时value的变化量

    Largechange:单击滚动条空白时value的变化量 

    Value:滑动块所处的位置

    Scroll事件:滑动块实时移动的时候一直触发

     Change:单击空白,单击箭头,滑动块移动鼠标释放的时候触发一次

    b2bf18edbe504bc9ac7e7769a7ff6e83.png

    列表框

    类名叫listbox,实例化对象名默认叫list1,即name属性

    List:列表框第i-1项的内容,存放数据的地方,访问用下标list(1) 

    Listcount:表示列表框的列表项数

     Listindex:选中项下表,例:被选中项内容:list1.list(list1.listindex)

    Selected:下标表示项选中与没选中的状态

     Additem:在列表框指定位置插入一行文本,例:插入到最后

    List1.additem “aaaa” ,list1.listcount-1

    Removeitem:删除列表项,例:删除当前选中项

    List1.remveitem list1.listindex 

    Clear:清空列表框

    组合框

     类名叫combobox,实例化对象名默认叫combo1,即name属性

    组合框是组合的textbox和listbox,所以有这两个控件共同的属性

    使用的时候只是对象名要变成combo1,其他属性与列表框类同。4f5f534f9149abad45ccaf67c7f43ffc.png

    END

    VB学习有问题,关注跟我学VB!

    大家在学习过程中有学习问题,可以添加老师微信号:vbyjk521 ,学习问题在线解答。

    a6c526adc2f1cbd7184497303541786c.png


    3429b031bcae83c495156188a496d92b.png                      
    展开全文
  • VBString的用法及原理

    千次阅读 2018-08-24 12:43:00
    在各种不同开发语言中,字符串类型显然是最常见,也是最常用的。常用代表它最易用,是这样吗?未必,越简单,越普通,你会忽视,内里...一:先来总结一下,常用编程语言的字串表达方式:C:char(wchat_t)*或[]:字符数组来...

    在各种不同开发语言中,字符串类型显然是最常见,也是最常用的。 
        常用代表它最易用,是这样吗?未必,越简单,越普通,你会忽视,内里隐藏着的陷井更容易使你中招。它往往是绊脚石,或者程序中性能的瓶颈。 
        本身,我对VB语言及相关应用并不太熟,只不过近期编码用到,有些体会。

    一: 先来总结一下,常用编程语言的字串表达方式: 
    C:      char(wchat_t) * 或 []:  字符数组来表示字符串,以0结尾,无长度标识。
              配一堆操作函数,不好记,不好用。 
    C++:  std::string  basic_string<>的特化版本. 注意:其内在的数据区由默认的内存管理器分配。
             对象哈,提供还算好用的方法。 
    MFC: CString 标准的C++类. 数据项:LPTSTR 一堆可用的方法。 
    Windows普通API DLL:       LPTSTR 采用C标准的0结束字串 
    Windows扩展COM中:         BSTR  OLE标准, 头上带长度标识的字符串. 
    Java中:                            ;" /> VB中:                              String   实际上就是OLE标准的BSTR 
    好了,我们关心的是BSTR。 
    看看BSTR到底是什么东东。
    1.0:看看在Windows SDK中的定义:
    typedef OLECHAR* BSTR;
    typedef WCHAR OLECHAR;
    typedef wchar_t WCHAR;
    所以,它实际上是宽字符指针。

    1.1:它的内存结构呢?很容易查到资料。
    前置四字节,内置字串的长度,后面是字串内容,原则上并不以'/0'结尾,长度由前置值决定。
    所以,它又不简简单单就是宽字符指针。但从基本类型定义上来看,它与宽字符指针是可以划等号的。

    1.2:那VB中的String也就明白了。实际上是地址,是字串的首地址(注意:不是长度的首地址) 
    另外,String是可以装载中间带'/0'字符的字串的,只不过,一些显示函数可能将其省略。
    如:dim str as string
         str = "ab" & chr(0) & "cd"
         MsgBox str   '输出:ab
         Debug.Print str '输出 ab cd

    1.3:可以看出,它很特珠,Windows提供几个函数,用来分配和释放它。
    分配:SysAllocStringLen      SysAllocString
    释放:SysFreeString
    取长度:SysStringLen
    注意:分配得到的BSTR,实际上仍然是以'/0'结尾。SysStringLen似乎有点儿英雄无用武之地,呵。
    比如:SysAllocStringLen 的说明文档:
    Allocates a new string, copies cch characters from the passed string into it, and then appends a null character.
    比如:SysAllocString,我们可以通过例子:
     BSTR bstrVal = ::SysAllocString(L"abcd");
     for(int n=0;n<::SysStringLen(bstrVal)+1;n++)
     {
      TRACE(_T("/n%d"),*(bstrVal+n));
     }
     ::SysFreeString(bstrVal);
    输出:
    97
    98
    99
    100
    0
    仍然有0。

    1.4:VC中的用法:
    无论用MFC,还是ATL,实际上,由于BSTR并不是基本类型,而它的相关操作函数也是沿用的以'/0'结尾的函数,所以,虽然它在字串中可以带'/0',但实际上,经过相关操作后,'/0'后的内容会丢掉,这要小心。比如,我们看看CString的构造:
    CString::CString(LPCWSTR lpsz)
    {
     Init();
     int nSrcLen = lpsz != NULL ? wcslen(lpsz) : 0;
     if (nSrcLen != 0)
     {
      AllocBuffer(nSrcLen*2);
      _wcstombsz(m_pchData, lpsz, (nSrcLen*2)+1);
      ReleaseBuffer();
     }
    }

    小结:BSTR有长度标识,但是MS在实现时,为了兼容以前的字串操作,再加上BSTR并不是基本类型,所以,它的分配函数和一些操作函数都是把它当作'/0'结尾来处理。千万要注意。最好也不要用它来装载中间带'/0'的字串,因为,说不定什么时候,它就丢掉了。

    二:  VBr的应用中将麻烦的地方,应该集中在以下几个方面: 
    2.1: VB调用Windows API DLL
     
    2.1.1: 字串作为输入参数 
       这还用说吗? 
       在API中如果是LPTSTR,在VB中直接转为Byval s as String 
       原因?  为什么 BSTR可以直接转为 LPTSTR ? 
       前面其实已经讲了,再说一次吧。 
       BSTR实际上是指针,指向字串头.所以,采用ByVal指向的刚好是字串的首地址,也就是LPSTR,嘿嘿,刚刚好,符合需要,真是巧啊。 

    2.1.2: 字串作为输出参数 
    这个麻烦一点,举个例子吧. 
    如: 
        UINT GetWindowsDirectory( 
          LPTSTR lpBuffer, 
          UINT uSize 
       ); 
    使用API Viewer得到声明 
       Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ 
          (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
    代码: 
        Dim sTemp As String * MAX_PATH 
        Dim lsize As Long 
        Dim str As String 
        lsize = GetWindowsDirectory(sTemp, MAX_PATH) 
        str = Left(sTemp, lsize) 
        MsgBox "Windows路径:" & str & "长度:" & Len(str) 
    注意一下: 
    A: 引用的Windows API是A版,而不是W版,如果是W版会有错误. 
    原因,我的猜测是:   VB的API调用机制中,字串强制做了UNICODE到ANSI的转换.API的DLL没法告知调 
    用端,它是Unicode版还是ANSI版.如果是OCX或COM就没问题了,因为它们有标识。没办法,只能用一种了, MS选了A版。 
    B: 参数是ByVal 
    道理同作为输入时,实际上传的指针,所以,指向的内容是可以修改地,也就可以返回了。 
    C: 根据API的使用说明,可得到 
    [out] Pointer to the buffer to receive the null-terminated string containing the path. 
    需要调用方分配空间,因此, sTemp需要给足够长度的空间. 
    D: 返回的0结尾的字串,可以用left达到目的. 
    因为:VB的String对应的是BSTR类型,长度由前置字节决定,而不是0字符决定. 

    2.1.3: 字串作为Return值 
    这种API是不是存在呢?系统级的没看见,一般不会这样用,因为这存在内存分配的问题. 
    但我自已好像写过,处理方式是: 
    VB声明中可以使用long返回,然后用lstrcpy进行转换, 
    说起lStrCpy就不得不说说它的作用了,它实在是很关键,它很神奇,它可以把 
    地址指向的字符串拿出来。 
    我们来看看原理: 
    lStrcpy本身只是简单的复制字符串的函数: 
    Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long 如果按照API View中的声明,是不行的.它确实就是字串拷字串,没办法把字址指向的字串拷到另一串. 
       好了,需要小小改动一下: 
       首先:目的地没错,确实应该是指向字串的首地址.用Byval String就可以.第一个参数OK。 
       源串呢? 因为你传入的实际上不是String,而是long啊(上例返回的是long噢),那当然应该将声明改成long,否则,传入的String会变成啥,啥都不是呢?就这么简单。 

    2.1.4: LPTSTR 都可以用VB的byval String替代吗? 
    如果在结构体里,可就不是这样了.
    如:EnumForms  枚举某个打印机的所有打印纸型。 
    Public Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" (ByVal hPrinter As Long, _ ByVal Level As Long, ByRef pForm As FORM_INFO_1, ByVal cbBuf As Long, ByRef pcbNeeded As Long, _ 
     ByRef pcReturned As Long) As Long 
    对于 FORM_INFO_1的定义: 
    Public Type FORM_INFO_1 
            Flags As Long 
            pName As String 
            Size As SIZEL 
            ImageableArea As RECTL 
    End Type 
        如果按上述的方法调用,会出现异常.估计是在拷贝数据时,String实际上是不同于LPTSTR的,因为它的前面还有四字节是标识长度的,如果定义为String,那在构造pName之前的长度,必将动到它不应该动到的地方,这样,就错了.想来不会异常退出的,但却退出了,不知原因(我没弄明白) 

      所以,此种情况,应该将pName变为long,然后再用2.1.3提到的方法,将字串拷贝出来使用. 
             这样,就OK了。 

    引申一下: 
        对于一些API中大的结构体中的指针类型,我们完全可以用long来取代它,然后传递0&,因为,大多数情况,我们是不需要传入任何参数的,避免定义很多我们并不需要的类型.这样就降低了API使用的复杂性。 

    2.2 : VB调用COM组件(或OCX控件) 
    这似乎没啥可说的,COM组件的接口一般都是标准的BSTR,与VB的String完全兼容. 
    VB调用端没啥问题,倒是书写COM的程序需要注意: 
    2.2.1: 应用端可能会传入空指针.比如传入vbNullString,这需要留意. 
    2.2.2: BSTR的释放与普通LPTSTR可不同,使用前需要初始化,使用后要释放,当然,VB无此烦恼. 

    3: VB字串的连接操作. 
        当我们要序列化生成文本文件时,大都喜欢先将内容写入字串,然后再一次写了文件.否则多次写入文件,似乎有效率低之嫌,但如果字串为多次累加而成,那么使用VB字串的连接操作,将是效率极差的做法,这也变成性能低下的重要原因. 
        分析一下原因: 
        对于String的连接,系统的做法一定是重分配空间,搬移到新空间,拷贝进新内容.如果连接次数较多,且较细,那将是灾难性的。(类似MFC的CString的做法,假设我们要写一个100K长度的字串,但每次添加一个字符,那你可以试试它的速度) 
       如何解决? 
       很简单,采用预分配内存块, 当内存块不够用时,自动增加指定块的增量(当然每次增长的内存块这个阀值需要慎重考虑) 
       这样,减少搬移操作,效率自然提升。 
       具体实现:可以使用内存操作API实现.VB会麻烦一点(需要用API生成全局内存,自行完成搬移,拷贝), 
    VC可以直接使用CMemFile简单搞定. 

    4: VB字串多语言化 
    4.1: 一般的做法是: 将原生串与多语言串做成Key.Value Pair结构。多语言信息为Value,然后做一个简单的Hashc ode来索引,或者干脆用Hash Map来实现 (为了更高效,更容易使用已有容器,最好借助于C++编写相关支持)。
    4.2: 为了使UI上的字串也能多语言化,需要保证字串信息为动态加载。 
    4.3: 对于控件的字体编码字符集也需要处理,以保证正确显示

    转载于:https://www.cnblogs.com/forever5325/p/9529135.html

    展开全文
  • VB编程:VB获取快捷方式对应的目标路径。 比如,我们想获取桌面上腾讯QQ快捷方式对应的路径,也就是想知道QQ运行程序的安装位置。 我们先做一个函数,专门用于取得一个程序的快捷方式对应的路径名。函数代码如下: ...

    VB编程:VB获取快捷方式对应的目标路径。

    比如,我们想获取桌面上腾讯QQ快捷方式对应的路径,也就是想知道QQ运行程序的安装位置。

    我们先做一个函数,专门用于取得一个程序的快捷方式对应的路径名。函数代码如下:

    Function GetTargetPath(ByVal LinkName As String) '得到快捷方式的程序的路径
    On Local Error Resume Next
    Dim Obj As Object
    Set Obj = CreateObject(“Wscript.Shell”)
    Dim ShortCut As Object
    Set ShortCut = Obj.CreateShortcut(LinkName)
    GetTargetPath = ShortCut.TargetPath
    ShortCut.Save
    End Function
    下面我们在窗体的load事件中取得QQ的安装路径:

    Private Sub Form_Load()
    MsgBox GetTargetPath(“C:\Users\Administrator\Desktop\qq.lnk”) '这个是快捷方式所在的路径
    End Sub

    展开全文
  • vb编程给u盘加密

    2019-09-21 17:05:04
    你是使用u盘加密软件还是使用其他的一些什么方法,那么我现在给大家介绍一个新的方法,就是使用vb编程来给u盘加密。Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串 Dim c$ c$ = "" ...
    大家一般情况下是怎么给u盘加密的呢?你是使用u盘加密软件还是使用其他的一些什么方法,那么我现在给大家介绍一个新的方法,就是使用vb编程来给u盘加密
    Function ByteToBin(m As Byte) As String ' 将字节型数据转换成八位二进制字符串
    Dim c$ c$ = "" Do While m <> 0 r = m Mod 2 m = m 2 c$ = r & c$ Loop c$ = Right("00000000" & c$, 8)
    ByteToBin = c$ End Function Function Reverse(m As String) As String ' 将八位二进制字符串颠倒顺序
    Dim i%, x$ x = "" For i = 1 To 8 x = Mid(m, i, 1)
    & x Next i Reverse = x End Function Function BinToByte(m As String) As Byte ' 将八位二进制串转换成十进制
    Dim x As String * 1, y%, z% z = 0 For i = 1 To 8 x = Mid(m, i, 1)
    y = x * 2 ^ (8 - i) z = z + y Next i BinToByte = z End Function Private Sub Command1_Click() Dim x As Byte, i%, fname$ fname = InputBox("请输入要加密的文件名!注意加上路径名:")
    If Dir(fname) = "" Then MsgBox "文件不存在!"
    Exit Sub End If Open fname For Binary As #1 ' 以二进制访问模式打开待加密文件 For i = 1 To LOF(1) ' LOF函数是求文件长度的内部函数 Get #1, i, x ' 取出第i个字节 x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数 Put #1, i, x ' 将加密后的这个字节写回到文件原位置 Next i Close MsgBox "任务完成!" End Sub
    以上方法就可以通过vb编程来给u盘加密,以上方法还适用于移动硬盘加密,你可以试试看看效果怎么样?

    转载于:https://www.cnblogs.com/cksis/archive/2012/06/28/2567702.html

    展开全文
  • 今天学习了刘金玉老师VB编程教程的第9期和第10期,学习的主要内容是string变量类型的运用和Boolean布尔变量类型。一、string变量类型的运用(一)string类型:字符串类型变量,用来储存文本类数据。(二)string变量的...
  • 12864液晶vb编程资料

    2011-05-26 14:03:56
    string是字符串,在内存中占4个字节,最多可以存2^31个字符长的字符串 integer是整形,在内存中占4个字节; double是双精度浮点数,占8个字节;
  • 1、运行效果 2、程序代码 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ...Dim q As String Dim p As String Private Sub ...
  • 今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据...
  • VB编程:获取文件夹下所有文件-1

    千次阅读 2017-03-10 18:24:53
    Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String) As Long  DoEvents  Static Files As Long  Dim sDir As String  Dim sSubDirs() As String  Dim Index As Lo
  • VB编程中的一些经验 (转)[@more@]VB编程中的一些经验 1. 假设VB中有如下的变量声明:dim s1, s2 as string则s1是一个variant型变量,而s2是一个string型变量如果想要声明两个st...
  • Vb编程引用Word书签

    2008-10-22 13:25:36
    VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close ...
  • Private Declare Function GetSystemDirectory Lib "kernel32" Alias "... (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim strtemp As String * 60 Private Sub Co...
  • 程序代码 Private Sub Command1_Click()  Dim j As Integer  Dim i(100) As String  Text2 = ""  For j = 1 To Len(Text1)   i(j) = Mid(Text1, j, 1)   Text2 = Text2 &amp; i(j...
  • VB编程:自定义过程改变窗体颜色-53

    千次阅读 2017-02-07 10:45:34
    Dim A(5) As String Private Sub Combo1_click()    A(5) = Combo1.Text End Sub Private Sub Command1_Click()    CB A(5), Form1 End Sub Private Sub Form_Load()    Dim i As Intege...
  • VB编程中的一些经验

    2002-03-22 17:37:00
    VB编程中的一些经验1. 假设VB中有如下的变量声明: dim s1, s2 as string则s1是一个variant型变量,而s2是一个string型变量如果想要声明两个string变量s1和s2应该用: dim s1 as string, s2 as string2. VB中的...
  • vb编程的七个优良习惯(转) - []Tag: vb 1、"&"替换"+".在很多人的编程语言中,用“+”来连接字符串,这样容易导致歧义。良好的习惯是用“&”来连接字符串.不正确:dim sMessage as string sMessage="1"+"2"正确:dim...
  • 运行效果: 程序代码: Private Sub Command1_Click()  Dim myarray() As String  Dim myrows  With Text1   myarray = Split(.Text, vbCrLf)   myrows = UBound(myarray)   Randomi...
  • Dim myarray(10) As String  '定义全局变量,文字数组 Dim i As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)  If KeyCode = 37 Then    '键盘按键左边←  ...
  • 运行效果:   运行代码: Private Sub Command1_Click()  Dim myrows  '定义段落数 ...myarray() As String  '声明数组,保存文本  With Text1   myarray = Split(.Text, vbCrLf)   If T...
  • 所以要加1 MyDllFileBuffer = VirtualAllocEx(MyRemoteProcessId, 0, MyDllFileLength, MEM_COMMIT, PAGE_READWRITE) ‘在指定进程里申请一块内存区域出来供我们存放字符串“c: est.dll“ ‘传string给api时,byval...
  • VB编程:获取字符串中数字个数-50

    千次阅读 2017-02-06 09:59:38
    程序代码: Private Sub Form_Click()  Dim i As Integer, j As Integer  j = 0  ‘ 计数  Dim str As String  str = "abcs123"  For i = 1 To Len(str)  ...
  • VB 编程中 SendKeys 语句的妙用

    万次阅读 2010-08-24 11:32:00
    原文出处http://www.why100000.com/_zhan_zhang_zhuan_qu/my_articles/2001/vb_sendkeys.htm<br />  在 VB 编程中有一些大家不太常用的语句,似乎已经被大家忘记了。实际上巧妙应用这些语句常常可以制...
  • VB编程之提速攻略

    2007-07-24 09:57:00
    ● 判断空字符串 判断空字符串的常用方法是使用下面的语句:If my_string = "" Then... ,但是请采用另外一种方法,就是判断字符串的长度是否为0,这要比前者运行快,代码是: If Len(my_string) = 0 Then ... 。 ...
  • 今天学习了刘金玉老师零基础VB教程的第64期,学习的主要内容是自定义数据类型。一、常用的数据类型1、integer整型2、long长整型3、single单精度浮点型4、double双精度浮点型5、date日期时间型6、boolean布尔类型7、...
  • 把excel中的数据导入SQL SERVER数据库(access数据类似):Private Sub Command1_Click()Dim strconn As String ' 定义Excel 连接字符串Dim cn As ADODB.Connection ' 定义Excel 连接Set cn = New ADODB.Connection' ...
  • 今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据...

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 249
精华内容 99
关键字:

vb编程string