精华内容
下载资源
问答
  • 今晚帮一客户调试程序,VB6.0,运行报错:编译错误:用户定义类型未定义 原因:用到的库没有引用(看上去是Dictionary)。 解决方法: 工程-引用,把勾选需要引用的库。 问题解决。 ...

    今晚帮一客户调试程序,VB6.0,运行报错:编译错误:用户定义类型未定义

    原因:用到的库没有引用(看上去是Dictionary)。

    解决方法: 工程-引用,把勾选需要引用的库。

    问题解决。

     

     

    展开全文
  • 连接数据库问题用户定义类型未定义【vb6】0Dim cnnImage As NewADODB.ConnectionDim rsImage As New ADODB.RecordsetDim strSql As StringDim Chunk() As ByteDim lngLengh As LongDim intChunks As IntegerDim ...

    连接数据库问题用户定义类型未定义【vb6】0

    Dim cnnImage As NewADODB.Connection

    Dim rsImage As New ADODB.Recordset

    Dim strSql As String

    Dim Chunk() As Byte

    Dim lngLengh As Long

    Dim intChunks As Integer

    Dim intFragment As Integer

    Const ChunkSize = 1000

    Const lngDataFile = 1为什么这样会提示用户定义类型未定义‘-----------------------------------------------------------这是数据库存图的源代码,网上找来的能运行

    Dim cnnImage As New ADODB.Connection

    Dim rsImage As New ADODB.Recordset

    Dim strSql As StringDim Chunk() As Byte

    Dim lngLengh As Long

    Dim intChunks As Integer

    Dim intFragment As Integer

    Const ChunkSize = 1000

    Const lngDataFile = 1

    Private Sub cmdBrowse_Click()

    '选择 JPG OR Bmp 文件

    On Error Resume Next

    With cmdlFilePath

    .Filter = "JPG Files|*.JPG|Bitmaps|*.BMP|gif Files|*.gif"

    .ShowOpen

    txtFilePath.Text = .FileName

    End With

    End Sub

    Private Sub cmdExit_Click()

    End

    End Sub

    Private Sub cmdLast_Click()

    On Error Resume Next

    rsImage.MoveLast

    Call ShowPic

    End Sub

    Private Sub cmdNext_Click()

    On Error Resume Next

    rsImage.MoveNext

    Call ShowPic

    End Sub

    Private Sub cmdPrev_Click()

    On Error Resume Next

    rsImage.MovePrevious

    Call ShowPic

    End Sub

    Private Sub cmdSave_Click()

    '保存文件到数据库中

    If Trim(txtFilePath.Text) = "" Then

    MsgBox "未选择文件.!!", vbInformation + vbSystemModal, "保存出错"

    Exit Sub

    End If

    If (Dir(Trim(txtFilePath.Text)) = "") Then Exit Sub

    '以二进制方式打开文件

    Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile

    lngLengh = LOF(lngDataFile) ' 文件大小

    If lngLengh = 0 Then Close lngDataFile: Exit Sub

    intChunks = lngLengh \ ChunkSize

    intFragment = lngLengh Mod ChunkSize

    '新建记录

    rsImage.AddNew

    ReDim Chunk(intFragment)

    Get lngDataFile, , Chunk()

    rsImage!picImage.AppendChunk Chunk()

    ReDim Chunk(ChunkSize)

    For i = 1 To intChunks

    Get lngDataFile, , Chunk()

    rsImage!picImage.AppendChunk Chunk()

    Next i

    rsImage.Update

    Close lngDataFile

    Call ShowPic

    End Sub

    Private Sub cmdFirst_Click()

    On Error Resume Next

    rsImage.MoveFirst

    Call ShowPic

    End Sub

    Private Sub Form_Load()

    rsImage.LockType = adLockOptimistic

    rsImage.CursorType = adOpenKeyset

    cnnImage.Provider = "Microsoft.Jet.OLEDB.4.0"

    strSql = App.Path & "\Image.mdb"

    cnnImage.Open strSql

    strSql = "Select * From ImageStore"

    rsImage.Open strSql, cnnImage

    If (rsImage.BOF = True) And (rsImage.EOF = True) Then Exit Sub

    Call cmdFirst_Click

    End Sub

    Public Sub ShowPic()

    On Error Resume Next

    Open "pictemp" For Binary Access Write As lngDataFile

    lngLengh = rsImage!picImage.ActualSize

    intChunks = lngLengh \ ChunkSize

    intFragment = lngLengh Mod ChunkSize

    ReDim Chunk(intFragment)

    Chunk() = rsImage!picImage.GetChunk(intFragment)

    Put lngDataFile, , Chunk()

    For i = 1 To intChunks

    ReDim Buffer(ChunkSize)

    Chunk() = rsImage!picImage.GetChunk(ChunkSize)

    '建立图片临时文件

    Put lngDataFile, , Chunk()

    Next i

    Close lngDataFile

    FileName = "pictemp"Picture1.PaintPicture LoadPicture(FileName), 0, 0, Picture1.Width, Picture1.Height

    '----按照picture大小缩放End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Picture1_Paint()

    Picture1.PaintPicture mPic, 0, 0, Picture1.Width, Picture1.HeightEnd SubPrivate Sub txtFilePath_Change()End Sub

    ’--------------------------------------------------为什么我把这些声明粘贴上去却提示出错啊?

    展开全文
  • vb中定义如下: 类模块Class1中代码如下: Dim aa() As String Public Sub setName(ByRef str() As String) ...运行时怎么总是提示“类型不匹配,缺少数组或用户定义类型”啊?实在不知道错在哪里了??
  • vb数组的定义方法是什么发布时间:2020-04-26 15:04:14来源:亿速云阅读:179作者:小新vb数组的定义方法是什么?相信有很多人都不太了解,今天小编为了让大家更加了解vb数组,所以给大家总结了以下内容,一起往下看...

    vb数组的定义方法是什么

    发布时间:2020-04-26 15:04:14

    来源:亿速云

    阅读:179

    作者:小新

    vb数组的定义方法是什么?相信有很多人都不太了解,今天小编为了让大家更加了解vb数组,所以给大家总结了以下内容,一起往下看吧。

    vb数组怎么定义

    有两种方法定义数组:

    1、知道数组的元素个数,那么直接定义 dim a(9) as integer

    2、暂时不知道元素个数,或者该数组应用在多个地方 那么如下定义 dim a() as integer 在使用的时候,再重定义一下就可以了 ReDim a(9)

    数组的类型可以和变量的类型一样的。dim a(0 to 9) as string '表示定义了一个包含10个元素的字符串型的数组,数组名为:a

    扩展资料:

    1、Visual Basic源自于BASIC编程语言。

    2、VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件,用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

    关于vb数组的定义方法是什么就分享到这里了,希望以上内容可以对大家有一定的参考价值,可以学以致用。如果喜欢本篇文章,不妨把它分享出去让更多的人看到。

    展开全文
  • VB对象的事件和方法

    千次阅读 2020-09-15 12:44:45
    事件是Visual Basic预先编辑好的并且能够被对象识别的的动作,VB采用的是事件驱动机制,当用户触发了某个事件时,程序就会执行该事件过程下的代码。 例如,用户点击一次按钮,就会触发一次该按钮的单击事件,即...

    对象的事件:
    事件是指对象对于外部动作的响应,当对象发生了某个事件,就会执行相应的代码,这段代码被称为“事件过程”。

    事件是Visual Basic预先编辑好的并且能够被对象识别的的动作,VB采用的是事件驱动机制,当用户触发了某个事件时,程序就会执行该事件过程下的代码。

    例如,用户点击一次按钮,就会触发一次该按钮的单击事件,即Command1_Click事件。

    一个事件,就好比一个动作,用户单击按钮是一个事件,双击按钮也是一个事件,按下一个键盘的按键是一个事件,关闭某个窗口也是一个事件。实际上,VB编程的思想就是在于如何编写各种事件下的代码。

    事件过程的语法:

    Private Sub 对象名称_事件名称()  
         '响应事件的程序代码
    End Sub
    

    其中对象名称就是对象的Name属性

    例如:窗口Form1的双击事件过程为:

    Private Sub Form_DblClick()   
          '响应事件的程序代码
    End Sub
    

    注意:窗体的事件只要写Form_事件名称即可,不需要写窗体的名称,即不用写成Form1_DblClick()。

    通常事件过程的头尾不需要自己编写,只需要在代码区的上方选择相应的对象,再选择相应的事件后,即可自动产生。每个对象都有一个默认事件,在窗体设计界面双击该控件,会自动跳转到该对象的默认事件下,如果没有该事件,则系统会自动创建其默认事件。例如,按钮的默认事件是单击事件,窗体的默认事件是Form_Load()。

    对象事件练习:
    目标:设计一个应用程序,当单击窗体时,在窗体上随机位置打印一个五角星,当双击窗体时清除窗体上所有五角星。

    步骤一:新建一个工程
    步骤二:进入代码编辑区,写入以下代码:

    在这里插入图片描述

    步骤三:运行程序,查看效果。

    在这里插入图片描述

    本练习,通过对窗体的单击事件和双击事件编程,使学员可以清晰的了解如何创建事件过程,并对于同一个对象的不同事件过程有了初步的认知。

    每种对象都有很多事件,掌握它们的常用事件含义对于今后使用VB编程是会有很大的作用的,希望大家多去练习掌握。

    对象的方法:
    方法是对象所具有的动作,或者说该对象可以执行的功能。对象的方法是VB中已经定义封装好的通用子程序,用户可以直接调用。上面打印五角星的练习中,Form1.cls语句就是清除窗体的方法。

    使用方法的语句为:

    对象名称.方法名称
    

    例如,让文本框Text1获得焦点的方法为:

    Text1.SetFoucs
    

    对象方法的练习:
    目标:设计一个应用程序,当单击按钮1时,文本框无法输入内容,当单击按钮2时,文本框可以输入内容。

    步骤一:新建工程,并按下图所示创建控件。

    在这里插入图片描述

    步骤二:进入代码区,分别在按钮一和按钮二的单击事件过程中写入如下代码:

    在这里插入图片描述

    步骤三:运行程序,查看效果

    好啦,对象的事件和方法就讲到这里,通过这两节课程,相信大家对于VB的对象已经有了一个全面的认识,希望大家多加练习,如果还有疑问可以给我留言,我会及时回复的。

    接下来的课程会开始讲解VB的标准控件,大家敬请期待哦。

    展开全文
  • VB6中的对象事件事件过程(4)

    千次阅读 2020-04-07 20:46:21
    事件是什么 ...在VIsualBasice应用程序中,对象事件VisualBasic预先定义好的,能够被对象识别和响应的动作。 分类: 事件可分为系统事件用户事件两种 1、系统事件系统或对象自己产生的...
  • vb用户定义类型未定义

    千次阅读 2008-08-07 10:51:00
    用户定义类型未定义 解决办法: 工程--引用-添加Microsoft Remote Date Object 2.0 添加控件步骤: 1.让工具箱显示出来 2.在工具箱处点击右键,选择部件,添加你想要添加的控件 ...
  • VB对象及其属性、事件和方法

    千次阅读 2020-09-15 12:41:57
    应用程序的设计主要包括界面设计和代码设计两大部分。而界面设计实际就是对窗体和控件的设计。本节课程,我们开始学习VB6中的窗体及常用控件 。在学习控件之前,我们有必要先...在VB中,对象分为系统预定义对象和用户
  • <VB.NET>自定义控件传递事件

    千次阅读 2018-02-01 10:33:47
     WithEvents TextBoxPluss As TextBox 'WithEvent一个TextBox控件,因为自定义控件中需要传递的事件为TextBox的事件  Private Sub TextBoxPlus_KeyPress(ByVal sender As System.Object, ByVal e As System....
  • 下面是小编整理的vb试题及其参考答案,欢迎阅读!vb试题及其参考答案1.在代码中引用一个控件时,应使用控件的( b )属性。A.Caption B.Name C.Text D.Index2.设变量x = 4,y = -1,a = 7,b = -8,下面表达式( a )的值...
  • 如果是用户自定义控件继承自Inherits System.Windows.Forms.UserControl时,对于继承来的事件事件处理过程这样写,例如继承来的MouseMove事件事件处理过程如下: Private Sub GraphPane_MouseMove(ByVal ...
  • vb.net 用户自定义类型详解

    千次阅读 2017-08-10 16:58:40
    用户自定义类型在vb.net中称为“structure”(结构),包含有一个或多个不同种类的数据类型,尽管结构中的数据可以单独被访问,但是这些数据仍被认为是一个集合。 在vb 6.0中用户自定义类型的关键字是“Type”,之...
  • VB调用MATLAB时,显示错误:用户定义类型未定义 程序如下:Option ExplicitPrivate geneIndex(1 To 8, 1 To 3) As DoublePrivate genePlatform(1 To 2) As DoublePrivate MyGenetic As Genetic.GeneticPrivate Sub ...
  • 字典绑定就能解决,以下是两张解决方式 1.前期绑定 [工具]—[引用]–勾选 Microsoft Scripting Runtime 2.后期绑定 例如dim dic1 as new dictionary 替换成 Set dic1 = CreateObject(“scripting.dictionary”) ...
  • 使用vb6.0制作用户定义型的函数,怎么通过数组调用的方式向函数传值?怎么通过数组传带有变量名的数据作为参数呢?
  • vbvb.net事件机制

    千次阅读 2013-06-25 12:35:17
    学习java事件前,回顾了下vb6和vb.net的事件机制,总结在这里,供对比用。  事件是面对对象中对象间通信的方法。事件发生者(又叫事件源)发生一个事件时,通过发送一条消息,给事件接受者(事件处理者),事件...
  • VB 6.0 BitConverter

    2021-04-01 20:17:19
    利用内置的LSet语句以及用户定义的类型来实现一个类,以将二进制数据转换为简单数据类型或从简单数据类型转换为二进制数据
  • ‘********************************************************************** ...’ 1、定义一个该类型控件的实例对像 ’ 2、添加到父控件的Controls集合中(对于没有窗体界面的控件,2、3步可不要,如Timer控件) ...
  •  可以声明任何基本数据类型的数组,包括用户自定义类型(请参阅 “再论编程”中的“创建自己的数据类型”)和对象变量(请参阅“用对象编程”)。 在 Visual Basic 中有两种类型的数组:固定大小的数组— 它...
  • 新建一个用户窗体,在定义控件数组时,不能用Withevnets来定义数组 即使可以,为每一个数组成员编写事件也是非常麻烦的,考虑通过一个“中间人”来传递事件 “中间人” 用继承的方法为Button控件增加一些事件、属性...
  • 你没有启用ADODB的引用,或者加载ADODC控件, 在“工程|引用”中添加“Microsoft ActiveX Data Object [版本号,比如2.8等] Library”就可以了[用户定义类型未定义]
  • vb.net入门学习资料.doc

    2020-02-20 10:13:31
    vb.net基础教程 第一部分 Visual Basic.net基础 1.vb.... 2.vb.net的优点 3.新建一个vb.net项目 ...7.vb.net的用户自定义类型 8.vb.net的数组定义 9.vb.net的数组列表 10.vb.net的多维数组 。。。。。。
  • VB 2010 编写倒班表

    2018-09-01 16:11:06
    vb2010编写企业上运转班的,倒班表。根据不同的倒班方式。用户可以自行定义数组。
  • 有的高版Access(2016及以上)会提示“用户定义类型未定义”。解决方案是在VBA编辑器里选择“ 工具”——“引用”。 然后勾选"Microsoft Office 16.0 Object Library"。值得一提的是,这个工具跟“Microfoft Office ...
  • vb实现多用户登录

    千次阅读 热门讨论 2013-08-30 16:25:44
    利用vb实现多用户登录,主要是将vb与数据库实现链接,利用数据库存储用户和密码,提高了软件运行的速度!而且可以供更多的用户使用!
  • Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public CONN As New ADODB.Connection '定义数据连接字符串 Public RS As New ADODB.Recordset '定义记录集 ...
  • VB中用一个用户定义的函数去替换掉VB编程库当中的库函数的方法是什么?代码编写的步骤和方式是怎样的,怎么实现替换函数?
  • VB6.0 中使用ADODC 代码编译器打不开 提示用户定义类型未定义 最近维护一段很老的代码,是VB6.0写的。在虚拟机中安装好所有的环境(WIN7+VB6 SP6),包括添加好ADO 2.8, 但发现每次遇到ADODC控件,就提示“用户...
  • When compiling a Visual Basic 6 application the following error is generated when VB encounters the type "IUnknown": Compiler error: User-defined type not defined Cause: This err
  • 在标准模块顶部中用public关键词定义的变量,则可以在全局使用。 设计过程 1,建立form1窗体,如下图,该窗体中有2个标签,2个文本框,1个按钮。并将密码对应的文本框的PasswordChar属性设置为"*"。 2,建立form2...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 48,102
精华内容 19,240
关键字:

vb的事件由用户定义