精华内容
下载资源
问答
  • VB中关于自定义模块type的使用

    千次阅读 2019-01-22 15:36:23
    解析:TYPE自定义类别,后引用进行文本的写入

    在这里插入图片描述
    解析:TYPE自定义类别,后引用进行文本的写入

    展开全文
  • VBType类型命令

    千次阅读 2014-05-02 14:37:39
    在模块级别使用,用于定义包含一个或多个元素的用户自定义的数据类型。 语法: [Private | Public] Type varname elementname [([subscripts])] As type [elementname [([subscripts])] As type] . . . ...

    Type类型饬令

    VB:Type类型饬令 - 胡子 - 网络笔记 VB:Type类型饬令 - 胡子 - 网络笔记 Type

    在模块级别中使用,用于定义包含一个或多个元素的用户自定义的数据类型。

    语法:
    [Private | Public] Type varname
    elementname [([subscripts])] As type
    [elementname [([subscripts])] As type]
    . . .
    End Type

    Public 可选的。用于声明可在所有工程的所有模块的任何过程中使用的用户定义类型。

    Private 可选的。用于声明只能在包含该声明的模块中使用的用户自定义的类型。

    varname 必须的。用户自定义类型的名称;遵循标准的变量命名约定
    elementname 必须的。用户自定义类型的元素名称。除了可以使用的关头字,元素名称也应遵循标准变量命名约定。

    subscripts 可选的。数组元素的维数。当定义大小可变的数组时,只须圆括号。subscripts 参数使用如下语法:
    [lower To] upper [,[lower To] upper] . . .
    如果不显式指定 lower,则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0。

    type 必须的。元素的数据类型;可以是Byte、Boolean、Integer、Long、Currency、Single、Double、 Decimal(目前尚不撑持)、Date、String(对变长的字符串)、String * length(对定长的字符串)、Object、Variant、其它的用户自定义的类型或对象类型。

    说明:
    Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后,便可以在该声明范围内的任何位置声明该类型的变量。可以使用 Dim、Private、Public、ReDim 或 Static 来声明用户自定义类型的变量。

    在标准模块中,用户自定义类型按缺省设置是公用的。可以使用 Private 关头字来改变其可见性。而在类模块中,用户自定义类型只能是私我爱男闺蜜有的,且使用 Public 关头字也不克不及改变其可见性。

    在 Type...End Type 块中不允许使用行号和行标签。

    用户自定义类型经常用来暗示数据记录,记录一般由多个不同数据类型的元素组成。

    下面的示例演示了一个用户自定义类型的大小固定的数组的用法:

    Type StateData
    CityCode (1 To 100) As Integer ' Declare a static array.
    County As String * 30
    End Type

    Dim Washington(1 To 100) As StateData

    在上述示例中,StateData 中包括了一个 CityCode 静态数组,且记录Washington 的结构与 StateData 相同。

    当在用户自定义类型中声明大小固定的数组时,必须用数字文字或常数而不克不及用变量来声明数组的维数。

    数组的下界由 Option Base 语句的设置确定。

    例:该示例使用 Type 语句,定义用户自定义的数据类型。Type 语句只能在模块级使用。如果要在类模块中使用,则必须在 Type 语句前冠以关头字 Private。

    Type EmployeeRecord '创建用户自定义的类型。
    ID As Integer '定义元素的数据类型。
    Name As String * 20
    Address As String * 30
    Phone As Long
    HireDate As Date
    End Type
    Sub CreateRecord()
    Dim MyRecord As EmployeeRecord '声明变量。

    '对 EmployeeRecord 变量的赋值必须在过程内进行。
    MyRecord.ID = 12003 '给一个元素赋值。
    End Sub


    展开全文
  • VB中Http请求测试

    2021-03-10 16:42:42
    最近帮助公司维护一个VB的项目,需要用到Http请求与Java服务进行通信,这里记录下VB端的实现和代码。 1.1页面 1.2代码 'POST发送 Private Sub button1_Click() Dim str As String str = Text3.Text Dim ...

    最近帮助公司维护一个VB的项目,需要用到Http请求与Java服务进行通信,这里记录下VB端的实现和代码。

    1.1页面

    在这里插入图片描述

    1.2代码

    gitLab地址:https://gitlab.com/982837387/vbhttpdemo

    
    'POST发送
    Private Sub button1_Click()
    
        Dim str As String
        str = Text3.Text
        
        Dim JsonStr As String
        JsonStr = Text2.Text
        
        
        MsgBox "Input JSON string: " & JsonStr
        
        
       '发送http post请求
        Dim responseStr As String
        responseStr = HttpPOST(str, JsonStr)
       
       '文本框赋值
        Text1.Text = responseStr
     
    End Sub
    
    'GET发送
    Private Sub button2_Click()
        Dim str As String
        str = Text4.Text
        
        Dim JsonStr As String
        JsonStr = Text2.Text
        
        Dim accessToken As String
        Dim api As Boolean
        accessToken = JSONParse("accessToken", JsonStr)
        api = JSONParse("api", JsonStr)
    
        '发送http post请求
        Dim responseStr As String
        responseStr = HttpGET(str, accessToken, api)
    
        '文本框赋值
        Text1.Text = responseStr
    End Sub
    
    'POST请求
    '函数返回值是返回信息
    'Url:发送的Url地址
    'PostMsg:要发送的数据
    
    Function HttpPOST(URL As String, PostMsg As String) As String
    On Error GoTo er
    Dim XMLHTTP As Object
    Set XMLHTTP = CreateObject("Msxml2.XMLHTTP")
    If Not IsObject(XMLHTTP) Then
        Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
        If Not IsObject(XMLHTTP) Then Exit Function
    End If
    
    '' 同步接收数据
    XMLHTTP.Open "POST", URL, False
    XMLHTTP.SetRequestHeader "CONTENT-TYPE", "application/json"
    XMLHTTP.Send (PostMsg)
    
    Do While XMLHTTP.ReadyState <> 4
        DoEvents
    Loop
    
    If XMLHTTP.Status = 200 Then
        HttpPOST = XMLHTTP.ResponseText
    Else
        HttpPOST = ""
    End If
    
    Exit Function
    er:
        MsgBox "发送POST请求失败!", , "提示"
    End Function
    
    
    'GET请求
    
    Function HttpGET(URL As String, accessToken As String, api As Boolean) As String
    On Error GoTo er
    Dim XMLHTTP As Object
    Set XMLHTTP = CreateObject("Msxml2.XMLHTTP")
    If Not IsObject(XMLHTTP) Then
        Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
        If Not IsObject(XMLHTTP) Then Exit Function
    End If
    
    '' 同步接收数据
    XMLHTTP.Open "GET", URL, False
    XMLHTTP.SetRequestHeader "accessToken", accessToken
    XMLHTTP.SetRequestHeader "api", api
    XMLHTTP.SetRequestHeader "CONTENT-TYPE", "application/json"
    XMLHTTP.Send
    
    Do While XMLHTTP.ReadyState <> 4
        DoEvents
    Loop
    
    If XMLHTTP.Status = 200 Then
        HttpGET = XMLHTTP.ResponseText
    Else
        HttpGET = ""
    End If
    
    Exit Function
    er:
        MsgBox "发送GET请求失败!", , "提示"
    End Function
    
    
    '方法一
    Public Function POST(ByVal URL As String, ByVal JSONData As String) As String
        Dim HTTP As Object
        Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
        HTTP.Option(6) = False
        HTTP.Option(4) = 13056
        HTTP.Open "POST", URL
        HTTP.SetRequestHeader "Content-Type", "application/json"
        HTTP.SetRequestHeader "Content-Length", LenB(StrConv(JSONData, vbFromUnicode))
        HTTP.Send JSONData
        
        POST = HTTP.ResponseText
        Set HTTP = Nothing
    End Function
    
    
    
    Public Function JSONParse(ByVal JSONPath As String, ByVal JSONString As String) As Variant
        Dim JSON As Object
        Set JSON = CreateObject("MSScriptControl.ScriptControl")
        JSON.language = "JScript"
        JSONParse = JSON.Eval("JSON=" & JSONString & ";JSON." & JSONPath & ";")
        Set JSON = Nothing
    End Function
    
    
    Private Sub Command1_Click()
    '文本框赋值
        Text1.Text = ""
    End Sub
    
    

    2.测试结果

    post请求
    在这里插入图片描述

    get请求
    在这里插入图片描述

    展开全文
  • VB6 Run time error

    2013-05-10 09:47:52
    VB6 Type Mismatch error
  • 从windows 95开始,微软为我们提供...下面我们就来着手设计一个vb程序的文件搜索器。首先,进入vb中,建立一个新的表单。在表单上建立一个驱动器列表框(drivelist),一个目录列表框(folderlist),一个检查框(subc...

    ef6b33f0ac6f0ae3adfd93af3940aa32.png

    从windows 95开始,微软为我们提供了一个好用的文件搜索器。使用这个搜索器,我们可以方便快捷的查找到符合条件的文件。但有时我们在程序设计中也需要这一功能,能否在自己的程序中实现呢?答案当然是肯定的。下面我们就来着手设计一个vb程序中的文件搜索器。

    首先,进入vb中,建立一个新的表单。在表单上建立一个驱动器列表框(drivelist),一个目录列表框(folderlist),一个检查框(subcheck),一个listview控件(filelist),两个文本框(filename,filesize)和两个按钮(cmdsearch,cmdexit)。需要注意的是listview 控件是 mscomctl.ocx 文件中一组 activex 控件的一部分。若要在应用程序中使用 listview 控件,必须将 mscomctl.ocx 文件添加到工程中。选择listview控件,点击鼠标右键,在弹出菜单中选择“属性”。在属性窗口的“列首”页中设置将要显示的列,连续按动“插入列”5次。排列好各控件的位置,然后加入以下代码:

    option explicit

    dim filesys as scripting.filesystemobject

    private sub cmdexit_click()

    end

    end sub

    private sub drivelist_change()

    folderlist.path = drivelist

    end sub

    private sub form_load()

    dim i as integer

    set filesys = new scripting.filesystemobject

    folderlist.path = left(drivelist.drive, 2) & "\"

    with filelist.columnheaders.item(1)

    .alignment = lvwcolumnleft

    .text = "文件名"

    .width = 2000

    end with

    with filelist.columnheaders.item(2)

    .alignment = lvwcolumnright

    .text = "大小(kb)"

    .width = 1500

    end with

    with filelist.columnheaders.item(3)

    .alignment = lvwcolumnleft

    .text = "类型"

    .width = 1500

    end with

    with filelist.columnheaders.item(4)

    .alignment = lvwcolumnleft

    .text = "路径"

    .width = 2000

    end with

    with filelist.columnheaders.item(5)

    .alignment = lvwcolumnleft

    .text = "修改时间"

    .width = 2000

    end with

    end sub

    private sub form_unload(cancel as integer)

    set filesys = nothing

    end sub

    private sub cmdsearch_click()

    dim sfolderstart as scripting.folder

    set sfolderstart = filesys.getfolder(folderlist.path)

    filelist.listitems.clear

    addfiles sfolderstart

    if filelist.listitems.count = 0 then msgbox _

    "没找到任何符合条件的文件!",vbokonly + vbinformation, "提示信息"

    end sub

    private sub addfiles(sfoldersearch as scripting.folder)

    dim sfolder as scripting.folder

    dim sfile as scripting.file

    dim sngfilesize as single

    dim lngsize as long

    dim itm as listitem

    if subcheck.value = 1 then

    if sfoldersearch.subfolders.count then

    for each sfolder in sfoldersearch.subfolders

    addfiles sfolder

    next sfolder

    end if

    end if

    sngfilesize = filesize * 1000

    for each sfile in sfoldersearch.files

    with sfile

    if .size >= sngfilesize and iif(filename.text < > "", _

    instr(.name, filename.text) > 0, true) then

    set itm = filelist.listitems.add(text:=.name)

    lngsize = .size / 1000

    with itm

    .subitems(1) = format(lngsize, "#,###")

    .subitems(2) = sfile.type

    .subitems(3) = sfile.parentfolder

    .subitems(4) = sfile.datelastmodified

    end with

    end if

    end with

    next sfile

    set itm = nothing

    set sfolder = nothing

    end sub

    运行后,选择相应目录,再在filename文本框中输入要查找的文件名或文件名的一部分,然后再在filesize文本框中输入文件的大小,按下搜索按钮即可搜索到相应文件。当然,这只是个功能较为简单的文件搜索器,有兴趣的读者可以使用scripting.filesystemobject对象的属性为其添加一些更为有用的功能。

    2829f2ca24f0d0090cbba57f30759f23.png

    在VB中直接用ODBCAPI访问数据库.doc

    下载Word文档到电脑,方便收藏和打印[全文共1745字]

    编辑推荐:

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    8b95f2eb3d3f7ce4dc3bf1178c74941e.png

    下载Word文档

    展开全文
  • ") Set tdTable = dbDataBase.CreateTableDef(TableName) Set fldField = tdTable.CreateField(DefaultFieldName, FieldType, FieldSize) tdTable.Fields.Append fldField dbDataBase.TableDefs.Append tdTable Set...
  • VB中String的用法及原理

    千次阅读 2018-08-24 12:43:00
    在各种不同开发语言,字符串类型显然是最常见,也是最常用的。...本身,我对VB语言及相关应用并不太熟,只不过近期编码用到,有些体会。一:先来总结一下,常用编程语言的字串表达方式:C:char(wchat_t)*或[]:字符数组来...
  • vb6.0里的type定义数组和直接定义成全局变量的数组有什么不同,type的数组需要分配内存空间么?怎么给type里的数组分配内存空间啊?
  • VB中函数表

    2021-07-28 09:09:08
    VB.NET函数表(2009-03-21 14:48:02)转载var$tag='it'; var $tag_code='0f51bb338ff0e9134e095b3b11d3ee5d'; var$r_quote_bligid='4d93071c0100ckub'; var $worldcup='0'; var$worldcupball='0'; 标签:itS...
  • 很全的vb6源代码库

    2018-01-09 15:15:34
    很全的vb6源代码库 ,可以作为学习参考。 Prefix Type C Class F Form T User-defined type X ActiveX control D ActiveX document P Property page E Enum I Interface class for Implements G Global ...
  • VB常用函数(很全)

    2020-12-20 14:31:12
    VB常用函数(很全)》由会员分享,可在线阅读,更多相关《VB常用函数(很全)(7页珍藏版)》请在人人文库网上搜索。1、VB常用函数Time返回系统时钟的当前时间。Date返回系统时钟的当前日期。Now返回代表当前日期和时间...
  • 笔者在开发”凉山州林业局”天然林资源保护综合管理系统,需要为程序建立SqlServer数据库的运行环境。为了方便用户,笔者开发了这个数据库配置工具。完成在SQLServer数据库建立设备,建立数据库,建立表格,分配...
  • 烈火网(LieHuo.Net)教程 JavaScript/VB Script脚本程序一般有两种执行方式,一种是嵌入在宿主程序里面执行,比如在IE浏览器里面执行;另外一种,在资源管理器里面双击执行(虽然还是通过另外一个程序解释执行,但是给...
  • 关于VB中的WithEvents关键字理解

    千次阅读 热门讨论 2017-12-17 23:25:48
    【前言】  最近敲机房敲到了日结账单,对于报表和VB的交互我们还是第一次接触,但是我们却可以借助巨人的肩膀。但是我在看巨人博客的时候,发现在定义报表对象的时候却有一些不同。带着这样的疑问,我就想知道到底...
  • The concept in the VB implementation is to pass to a routine the address to ping, and a message under 32 bytes that the ping should return if suclearcase/" target="_blank" >ccessful. This routine ...
  • Visula Basic 6.0调用c++,一个结构体的分配,里面有一个bstr类型的字符串,怎么拿值呢?
  • " & SoundDeviceInfo("MediaType").ToString()) ListBox1.Items.Add("CD-Rom Volume Name: " & SoundDeviceInfo("VolumeName").ToString()) ListBox1.Items.Add("CD-Rom Size: " & SizeInMBs & " MBytes") ListBox1...
  • VB中的POINTAPI

    千次阅读 2013-11-21 13:03:09
    看看vb中的一个函数的声明: Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) 其实在这个声明X就是当前的X坐标,Y就是当前的Y坐标,如果要用的话,直接拿来用的就好。 当然了,不是所有...
  • VB基本函数大全

    2021-07-28 09:33:22
    VB中整除运算符 \ 与取整函数 INT 的作用是否相同性质不同。一个是运算符,一个是函数。整除,顾名思义,有除法在里面,而取整只是删除零头而已。但它们在某种情况下可以相互替换,如:3\2=Int(3/2) Int(10.11)=...
  • ",16, cProgramName End EndIfEndWith End Sub'********************************************************* '* 名称:FieldType '* 功能:返回字段类型 '* 用法:FieldType(nType as integer) '*******************...
  • 来源:网络|2007-2-9|(有7084人读过)主题:用户名,密码提交到网页上的登录页:首先在程序加入Webbrowser控件假设你的HTML页面表单代码如下...然后VB中的代码如下:PrivateSubCommand1_Click()WebBrowser1.Navigate...
  • 对象变量及其在VB编程的妙用焦纯杨国胜王健琪一、对象变量的声明及其类型对象变量是这样一类变量:它指向某一类对象,并具有此类对象的所有性质和属性,对象变量可看作是一个指针,指向项目某一特定类型的对象,...
  • &H205 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIP End Type Private nfIconData As ...
  • 当前位置:我的异常网» VB»vb 怎的将文件以文件流的形式放于请求的POST内容中vb 怎的将文件以文件流的形式放于请求的POST内容www.myexceptions.net网友分享于:2015-08-26浏览:7次vb 怎样将文件以文件流的形式放...
  • VB中Execute的用法

    千次阅读 2016-11-07 19:27:32
    VB中Execute是指ADO命令之一:Execute 方法。 Execute 方法,执行在 CommandText 属性指定的查询、SQL 语句或存储过程。 语法 对于按行返回的 Command: Set recordset = command.Execute( ...
  • vb 读取网页数据

    2021-06-12 04:50:02
    Next Me.Timer1.Enabled = True Me.Label1.Caption = Me.List1.ListCount End Sub 'URL为网页地址 'URLS为网页代码的URL组 Function Url_In_Html(URL As String, ByRef URLS() As String, CodeType As String) Dim...
  • VB.NET通过Win32API完成访问共享文件夹功能 VB.NET实现访问网络共享文件夹,使用 WNetAddConnection2A 和 WNetCancelConnection2A。 Imports System Public Class clsNetworkConnect #Region "----- Win32API关联...
  • VB变量介绍(一)

    2021-12-15 21:36:34
    VB变量介绍(一)
  • VB中的数组

    千次阅读 2011-09-16 09:26:39
     求数组最大元素及下标,一般假设第一个元素及下标为最大,然后将该数与数组的其他元素逐一比较,若有比其大的就替换,同时替换下标。 6 . 交换数组各元素  交换的要求是将数组第一个元素与...
  • 我爱北京天安门天安门上太阳升伟大领袖毛主席指引我们向前进VB里面的结构体是一种WORD/DWORD对齐的结构体,这一点在编程尤其要注意,如果是纯VB编程,则结构体的各个域如何排列可以基本不用关心,而如果是调用API...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 59,992
精华内容 23,996
关键字:

vb中type