关于 VB6.0 窗体类模块的使用问题 [问题点数:50分]

Bbs1
本版专家分:0
结帖率 88.24%
Bbs5
本版专家分:3761
Blank
红花 2019年7月 VB大版内专家分月排行榜第一
2019年5月 VB大版内专家分月排行榜第一
2019年3月 VB大版内专家分月排行榜第一
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs7
本版专家分:28725
Blank
蓝花 2010年9月 VB大版内专家分月排行榜第三
Bbs1
本版专家分:0
Bbs7
本版专家分:28725
Blank
蓝花 2010年9月 VB大版内专家分月排行榜第三
vb6.0关于窗体一个简单问题
<em>vb6.0</em>中怎样实现vb.net中<em>窗体</em>的form1.TopMost = True(该<em>窗体</em>始终显示在所有其他<em>窗体</em>之上)这个功能..
一个关于VB6.0的数据窗体向导的问题
你好!我是一个VB新手,想请教一个<em>关于</em>VB6.0中"数据<em>窗体</em>向导"的<em>问题</em>.rn我<em>使用</em>Visual basic6.0中文企业版(OS是中文WIN2000SERVER)的Data Form Wizard 生成一个数据库<em>窗体</em>,我<em>使用</em>VB提供的Nwind.mdb数据库,生成数据<em>窗体</em>后,在编译时总是提示“编译错误:过程声明与同名事件或过程的描述不匹配。”rn以下就是出错的过程:rnPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)rn '为这个 recordset 显示当前记录位置rn datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)rnEnd Subrn但是这个过程是VB6自己生成的,请问这是为什么?rn我的VB6.0 是企业版的,安装了VBSP5.rn由于我是一个VB新手,要在短时间内<em>使用</em>ADO技术完成数据库程序开发很难,所以才想用VB的“数据<em>窗体</em>向导”做一个简单的程序完成任务,可是这个<em>问题</em>不rn解决就无从谈起,所以我非常急切的需要您的帮助,谢谢!rn我的电邮是asia2158@yahoo.com.cnrn
VB6.0类参数的问题
背景:1,VB.60实现不了重载。rn 2,利用一个函数进行重载rn 3,就是实现一个object1=object2(在c++中是这样来表述)的意思rnrn代码:rnDim OldItem As ItemrnPrivate Sub Command1_Click()rn Dim NewItem As Itemrn Set NewItem = New Itemrn NewItem.Evaluate (OldItem)rn OldItem.cName = "TwoItem"rn MsgBox "Name of NewItem is" & NewItem.cNamern MsgBox "Name of OldItem is" & OldItem.cNamernEnd SubrnrnPrivate Sub Form_Load()rn Set OldItem = New Itemrn OldItem.cName = "OneItem"rnEnd SubrnrnDEFINE CLASS Itemrn public mvarcName As String rnrn Public Function Evaluate(oItem As Item) As Booleanrn Me.cName = oItem.cNamern End FunctionrnENDDEFINErn现象:1,系统显示“NewItem.Evaluate (OldItem)”错误rn<em>问题</em>:1,<em>问题</em>在哪?rn 2,怎么样用<em>vb6.0</em>实现重载?
VB6.0实现的神经网络输出类模块
BP神经网络输出部分实现。模型训练请用其它工具,例如Matlab的nntool。然后将模型按附件“神经网络输出组态.xlsx”格式保存即可
模块使用问题,请教!
我是VB新手,在<em>使用</em>类<em>模块</em>的时候遇到一些<em>问题</em>:rnrn我定义了一个类<em>模块</em>CClientSock,其中有一个成员变量wsClient,是这样声明的:rn Public wsClient As Winsockrnrn<em>使用</em>这个类<em>模块</em>时首先声明:rn Dim clsClientSock As CClientSockrnrn然后:rn Set clsClientSock = New CClientSockrn clsClientSock.wsClient.RemoteHost = "127.0.0.1"(这一句出错了!!)rn 提示:对象变量或 With 块变量没有设置(错误 91)rnrn难道CClientSock中的成员变量wsClient也要手动创建吗?rnrn
VB6.0 类listItem和控件listView 的使用问题
Set listItem = ListView1.ListItems.Add(, , "0X" + Hex(i)) '添加地址偏移rnlistItem.SubItems(i) = Hex(buff(i)) '添加数据rnrn第二句出现<em>问题</em>,提示“Run-Time error '380' Invalid property value”rnrn这两句是我从第三方提供的例子中复制过来的,其中buff是从下位机读出来的数据数组,listItem是个listItem对象rn我不明白这两句什么意思,我猜想是如同VB.NET中的ListView一样的用法,就是创建n个元素,每个元素下又有子元素,于是我重新写了一个form程序,如下所示rn以下是我的程序rn[code=VB]rnDim listItem As listItemrnDim buff(0 To 4) As IntegerrnDim DATASIZE As IntegerrnDim temp() As StringrnDim temp16() As StringrnDim bytelen As IntegerrnrnrnPrivate Sub Command1_Click()rnDim i As Integerrnbuff(0) = 12rnbuff(1) = 13rnbuff(2) = 14rnbuff(3) = 15rnbuff(4) = 16rnrnFor i = 0 To 4rnrnrnSet listItem = ListView1.ListItems.Add(, , "0X" + Hex(i)) rnlistItem.SubItems(i) = Hex(buff(i)) rnNext irnEnd Subrn[/code]rn每次运行都会弹出对话框,请大侠指教
插入数据使用模块模块
<em>使用</em>函数ExecSql运行sql语句,往数据库中插入数据,函数放入<em>模块</em>中运行时正常,但是放到类<em>模块</em>运行时就会出现错误为什么??rnPublic Function ExecSql(ByVal pSql As String) As BooleanrnOn Error GoTo ExecSql_Err:rn' Set AdoConnect = New ADODB.Connectionrn With AdoConnectrn .CommandTimeout = 10000rn .Execute (pSql), , 1rn .CommandTimeout = 5rn End Withrn ExecSql = Truern Exit FunctionrnExecSql_Err:rn End Functionrn再类<em>模块</em>中运行时,运行到.CommandTimeout = 10000 .Execute (pSql), , 1时,就会出现错误,是什么原因,在<em>模块</em>与类<em>模块</em>中<em>使用</em>时有什么区别?rn
vb6.0 关于类实例的最高限问题
请问,如果用<em>vb6.0</em>写一个程序,这个程序运行时要有200个类的实例,请问程序还能正常运行?
关于vb类模块问题
在开发一个系统时,用类<em>模块</em>和不用类<em>模块</em>有什么区别?rn请大侠指教一二rn
关于模块问题
看到了一段程序,想拿过来试一试 rn然后就copy过来 rn一个主程序和两个<em>模块</em> rn完全的copy, rn没有任何的改动, rn原程序可以顺利执行 rn但是当我拿来放到我的一个工程里边的时候 rn总是运行到一个地方会报告 rn一个对象不支持某个方法 rn后来我把我的工程中用到的控件的名字都改的 rn根原来的一样,但是运行还是照旧。 rn原程序却一点<em>问题</em>都没有。 rn rn这个对象是一个类<em>模块</em>定义的类。 rn有电不明白,怎么会产生这样的情况。 rn应该如何改正那?
关于模块问题请教
有个类<em>模块</em>我想用到我程序里,可是当我添加到我的工程里时,会出现“在该类型的工程中‘该类<em>模块</em>’不能为公共的。该项目已改为私有的。”然后在我的程序里就不能定义这个类<em>模块</em>的东西。另外我将这个类<em>模块</em>添加到我的工程里,其的属性Instancing、MTSTransactionMode和Persistable都没有了。请问我该怎样借用这个类<em>模块</em>?rn
一个关于模块问题
ActiveX DLL中的类<em>模块</em>rn怎样将一个类<em>模块</em>的过程(sub、function)隐藏起来,这样的话在对向浏览器中就无法看到了,是不是要在Private Sub的中间加入什么关键字?
学生信息管理 源程序 窗体 类类模块
利用VB制作的学生信息管理系统 提供源程序 <em>窗体</em> 基本控件
■■关于模块使用问题.
程序中用到了API .程序中有多个<em>窗体</em>.rn1.在form1的声明中 Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)rn则可以在form1中<em>使用</em>sleep (1000). 但是如果在其他<em>窗体</em>中也<em>使用</em>的话,则又要再次声明一次.rn如何将其写入到<em>模块</em>中<em>使用</em>? 用的时候应该如何呢?rn2.同样,有个函数过程.也要在很多<em>窗体</em>中频繁<em>使用</em>...如何将其写入到<em>模块</em>中.应当如何调用呢?rn例如:Public Function FirstCheckFiles()rn Dim A As Boolean rn A = Dir(App.Pach & "\123.txt") <> ""rn If A = True Thenrn '........rn End IfrnEnd Functionrn3.我在<em>窗体</em> Form1中定义一个变量 Q , Q = 10 ,如何在其他<em>窗体</em>中的事件中读取这个Q的值,和设置这个Q的值呢??? 最好能在<em>模块</em>中定义.rn求例子代码...谢谢.rn每问15 分 . 5 分为第一个有效回帖的得分. 分不多,恳请不吝赐教.
关于窗体模块的组合
我的程序根据需要,要建立多个<em>窗体</em>;为了调用方便,有部分函数需要在<em>模块</em>中定义为PUBLIC,从而被几个<em>窗体</em>都能调用。但是还有些<em>窗体</em>我不想让他们调用这些函数,或者是申明了同名的函数。我在一些程序中看见过把<em>窗体</em>和<em>模块</em>进行组合分组的。也就是说某个<em>模块</em>只能被组内的几个<em>窗体</em>掉用,而组外的<em>窗体</em>不能调用该<em>模块</em>中的函数。rn请教高手,我该怎么做啊~~~~~~~~~~~~~~~~~~~~~~~~~~~`
VB6.0关于状态栏的使用
打开<em>vb6.0</em>选择工程——部件——Microsoft windows commom controls 6.0 位 置:Microsoft Windows Common Controls 6.0 用 途:StatusBar控件提供了一个<em>窗体</em>,该<em>窗体</em>通常位于父<em>窗体</em>的底部,通过这一<em>窗体</em>,应用程序能显示各种状态数据。 StatusBar的窗格(panels)对象: StatusBar是由Pan...
关于窗体类与继承的问题??
请问一下<em>关于</em><em>窗体</em>类设计方面的经验,特别是<em>关于</em>数据<em>窗体</em>类设计的经验.rn另外不同的访问类型(public,friend....)对继承<em>窗体</em>的影响,基类的变量,方法设计大家一般怎么做.....等等,请大家尽量说,可以说的宽泛一些,<em>关于</em>类于继承,谢谢
关于类中窗体问题
我在类库中建立了一个<em>窗体</em>,我提供了一个显示接口,但是,为什么我能够看到<em>窗体</em>,而建立<em>窗体</em>变量后可以直接调用变量,建立的<em>窗体</em>就直接显示出来了。有没有办法。可以改变这种状态,就是直接将<em>窗体</em>隐藏起来,要他只能用提供的接口调出<em>窗体</em>。rn谢谢
关于窗体使用问题
我在<em>窗体</em>AForm里加了一个button,其中ButtonClick()定义为rnrn this->Close();rnrn在调用AForm时:rnAForm *afrm = new AForm(this);rn...//some other thingsrndelete afrm; //*rn运行时一点击该按钮,就在*处停下报错,说是“指针操作错误”rn为什么呢?rn
关于模块和类模块的教程
刚接触VB,对<em>模块</em>和类<em>模块</em>,教材上面一带而过,特别不理解。不清楚这两样东西的含义和用途,针对<em>模块</em>和类<em>模块</em>的请老师们给我讲解一下好嘛?如果有案例或者教程麻烦发到邮箱,不胜感激!!
请问vb6.0中的模块和类模块有什么区别?
欢迎留言指教!
VB类模块使用
VB类<em>模块</em>的<em>使用</em>简介,方便初学者学习<em>使用</em>
模块如何使用
请教:<em>模块</em>,类<em>模块</em><em>使用</em>的不同之处,什么时候<em>使用</em><em>模块</em>,什么时候<em>使用</em>类<em>模块</em>rn
在类库里使用窗体
我新建了一个类库项目,然后在项目里新建了一个<em>窗体</em>,我再类库的New写"Form1.Show"时,说对非共享先引用什么的,怎么回事?
使用类封装窗体
本季课程为基础强化篇,主要内容有:Python程序的异常处理、字符串案例讲解、正则表达式语法格式、Python中<em>使用</em>正则表达式、文件和目录管理 、读取文件数据、把数据写入到文件、Python的GUI界面设计、如何为GUI添加事件、GUI功能强化等内容。
VB 关于模块使用 (新手)
rn(1) 类<em>模块</em>中的 Sub 的参数 ???rnrnrnrn例子: rnrnrnrn<em>模块</em>中 - (定义个Type) rnrnType testtypern testname As Stringrn testnumber As IntegerrnEnd TypernrnPublic a As testtype (定义一个 TestType 类型的变量)rnrnrnrnrn类<em>模块</em>中 - rnPublic Sub test_sub(a As testtype) (<em>使用</em>这个Type类型的变量作为参数)rnrnrnrn结果出错了.... 请问一下 是否类<em>模块</em>里面的Sub 都不能用Type类型 作为参数??rnrnrnrnrnrnrnrn(2) Class类型数组的赋值 rnrn rn例子:rnrn Public a() As New Class1rn Public b() As New Class1rnrn a() = b() rnrn - VB里是否不能这样为Class数组赋值呢?rn - 如果能的话 又该怎样做呢?rnrnrnrnrnrn(3) Class类型数组的清空rnrnrn例子: rnrn Public a(10) As New Class1rnrn<em>问题</em>:rn rn 1.如何单独清除 a(7) 里面的数据呢?rn 2.如何完全清理这个数组呢? (是否也可以<em>使用</em> ReDim 语句呢?)rnrnrnrn刚学VB 已经看了3.4套网上的教程了 也用过MSDN了 还问一些不知所谓的菜鸟<em>问题</em> 唉~~~rnrn希望大家能帮帮忙解答一下 谢谢了 ~~~rnrnrnrnrn
关于使用模块定义事件
谁帮我看看代码的<em>问题</em> rn我现在在<em>窗体</em>中 有96个label 我现在希望能对这96个共同建立一个事件 就是当他们某个被点击时运行某个程序 rn但是按网上的教程的修改后 如下 rn运行后 点击那些label 没有任何反应 也不促发事件啊rnrn在<em>窗体</em>中的代码:rnDim co As CollectionrnPrivate Sub Form_Load()rn Set co = New Collection rn Me.查询 = ""rnrn Dim myc As cmdrn rn For i = 1 To 8rn For t = 1 To 12rn Me.Controls("Label" & i & t).Caption = ""rn Set myc = New cmdrn Set myc.cmd = Me.Controls("Label" & i & t)rn co.Add mycrn Next trn Next irn Me.com_up.Visible = Falsern Me.com_down.Visible = Falsern Set myc = NothingrnEnd Subrn在类<em>模块</em> cmd中代码rnrnOption ExplicitrnPublic WithEvents cmd As LabelrnPrivate Sub cmd_Click()rn rnrnrnrn If Not cmd.Caption = "" Thenrn X = Len(cmd.Name) - 6rn X = Mid(cmd.Name, 7, X)rn BM = Form("销售查询").Controls("Label1" & X).Captionrn DoCmd.Closern Call 返回宏rn rn End IfrnrnEnd Subrnrn
关于VB的类模块!
在类<em>模块</em>中,定义了一个枚举,却可以在另外一个类中直接将一个函数的类型定义为这个枚举.居然可以在不引用枚举所在的类的这个前提下就可以引用了.这是为什么?什么原理?这样的VB的面向对象叫什么?rnrn我知道在类中不能引用标准模中定义的枚举,只能在类模中定义枚举,然后可以在自已的<em>模块</em>中<em>使用</em>.rn但上面的<em>问题</em>?叫什么面向对象啊?rnrn也不是静态的,也没有定义类的实例,它居然可以直接被其它的类做为类型,我晕哦.rnrn代码:rncPublic.clsrnrn'表示部门新增结果的枚举rnPublic Enum gxcAddNewrn AddNewOK = 0rn AddNewFail = 1rn DuplicateName_AddNew = 2 '名称重复rn SuperNotExist = 3 '指定的上级部名不存在rnEnd EnumrnrncDetp.clsrnrn'新增一个部门rnpublic function Add(optional strName as String="", _rn optional lngSuperID as Long=-1) as gxcAddNewrn
关于模块
我加了个类<em>模块</em>(有界面),rn但其在部件中的图标是灰的,rn我要怎么才能<em>使用</em>这个类<em>模块</em>?
关于类与模块
1.<em>关于</em>类与<em>模块</em>的区别?rn2.在怎样的情况适合用<em>模块</em>,怎样的情况适合用类,比如下面的类与<em>模块</em>中都是返回一个DataSet,它用类好还是用<em>模块</em>好?rn谢谢!rnrnA.rn'类中的函数rnPublic Class Commonrn Public Shared Function CGetDataSet(ByVal strSql As String)rn Dim strCon As Stringrn strCon = "workstation id='TRAMP-XIA';packet size=4096;user id=sa;data source='.';persist security rnrninfo=True;initial catalog=ltt_account;password="rn Dim Da As New SqlDataAdapter(strSql, strCon)rn Dim dst As New DataSetrn Da.Fill(dst)rn Return dst.Tables(0)rn End FunctionrnrnEnd Classrnrn'对类中函数的引用rnSub cdgDatabind()rn Dim strsql As Stringrn Dim dst As New DataSetrn Dim t As New PublicClass.Commonrn strsql = "select * from test"rn DataGrid1.DataSource = t.CGetDataSet(strsql)rn DataGrid1.DataBind()rnEnd SubrnrnrnB.rn'<em>模块</em>中的函数rnModule ModMainrnPublic Function MGetDataSet(ByVal strSql As String) As DataTablern Dim strCon As Stringrn strCon = "workstation id='PCName';packet size=4096;user id=sa;data source='.';persist security info=True;initial rnrncatalog=DBName;password="rn Dim Da As New SqlDataAdapter(strSql, strCon)rn Dim dst As New DataSetrn Da.Fill(dst)rn Return dst.Tables(0)rn End FunctionrnEnd Modulernrn'对<em>模块</em>中函数的引用rnSub MdgDatabind()rn Dim strsql As Stringrn Dim dst As New DataSetrn strsql = "select * from test"rn DataGrid1.DataSource = MGetDataSet(strsql)rn DataGrid1.DataBind()rnEnd Sub
vb6.0界面美化模块
vb界面重绘,涉及大部分控件,包括SSTAB的重绘
关于类的使用问题
有两个类,一个是 功能类,普通C++类, 另一个是界面类,MFC类,继承自CPropertyPagern在两个类中都有用到对方,可是当我在两个头文件中分别包含另一个类时,出现编译错误.rn请问怎么解决?rn
关于类的问题(:和::的使用)
HardwareContext::HardwareContext()rn: m_InputDeviceContext(), m_OutputDeviceContext()rnrn InitializeCriticalSection(&m_Lock);rn InitializeCriticalSection(&m_I2CLock); rn m_Initialized=FALSE;rnrnrn::就不多说了!请大侠们详细说说:的<em>使用</em>方式.
易游vb6.0模块
易游 网络验证,可以通过网络进行软件验证,可以收费,充值,注册等功能。
窗体模块问题
access中读自己的函数(目标<em>模块</em>在设计模式)rn1.当是类<em>模块</em>和标准<em>模块</em>时rnSet obj = Modules(<em>模块</em>名)’就可以操作了rn2.当是<em>窗体</em><em>模块</em>时,一般命名为“Form_<em>窗体</em>名”rn上面的方法提示<em>模块</em>不存在!rn我试验:rnDoCmd.OpenForm <em>窗体</em>名, acDesignrnSet fobj = Forms(<em>窗体</em>名)rn<em>模块</em>名 = sobj.Module.Namern然后再rnSet obj = Modules(<em>模块</em>名)rn’是可以的rnrn但是,不方便,每次都要打开<em>窗体</em>!rn能否不打开<em>窗体</em>,直接在VBA中读到<em>窗体</em><em>模块</em>?ACCESS本身是可以的(只要不修改代码,access并不打开<em>窗体</em>)rn我问下,ACCESS是如何做到的?rn大侠可否想想办法?rnrn
vb6.0 关闭窗体
<em>vb6.0</em> 中,有两个<em>窗体</em>Form1和Form2,Form1为运行<em>窗体</em>,在任务栏可显示,Fomr2的ShowIntaskbar 设为False,在任务栏没有出现。当两个<em>窗体</em>同时出现时,在任务栏中关闭Form1,怎么让Fomr2一直显示在最前面,并且能一起关闭?
VB6.0中窗体显示
rn有一<em>问题</em>请教rndim a as longrndim lRet as longrnlRet=ActLLT1.GetDevice("D0",a) 'a为从D0取得的数值,比如1,2,3,........rn假如我新建了N个<em>窗体</em>,分别命名为P1,P2,P3.....rn如果a=1时则显示P1<em>窗体</em>,如果a=2时则显示P2<em>窗体</em>,依次类推,根据a的值显示相应的<em>窗体</em>,我是这样写的rn"P" & a.Showrn但会报语法错误,请教给位前辈们怎样写啊????rnrn
VB6.0使用正则表达式的问题
最近在学习用VB的XMLHTTP写爬虫,在分析网页源代码的时候遇到了这样一个<em>问题</em>:某些HTML标签是允许嵌套的,例如 ;我现在的需求是获取被嵌套的子标签直接的内容,为此,我花了好久(本人接触正则表达式不久,属于菜鸟级的水平)写并测试了一个表达式,如下面几个函数所示:rn'返回执行正则表达式后的匹配集合rnPublic Function RegExp(src As String, ptrn As String, Optional ic As Boolean = True, Optional gb As Boolean = True) As MatchCollectionrnDim re As RegExprn Set re = New RegExprn With rern .Pattern = ptrnrn .Global = gbrn .IgnoreCase = icrn End Withrn Set RegExp = re.Execute(src)rn Set re = NothingrnEnd Functionrn'非贪婪地获取成对出现的标签rnPublic Function GetSingleTagPair(tag As String, src As String) As MatchCollectionrn Set GetSingleTagPair = RegExp(src, [color=#FF0000]"([\s\S](?!))*?()")[/color]End Functionrnrn红色部分就是我写的表达式。rnrn我的测试文本是:rnrnrnrn rn 图书馆 v4.0 书目检索系统 我的图书馆rn rn rn rn rnrnrnrnrn rn rn 图书馆书目检索系统rn rn 我的书架 | 我的检索历史 rn rnrnrn rn rn 书目检索 分类浏览 期刊导航 新书通报 公共书架 信息发布 读者荐购 我的图书馆 rn rn xxx 注销rnrn rn rnrn rn rn rn rn rn rnrnrn rn rn rn 我的首页 证件信息 书刊借阅 违章缴款 预约信息 委托信息 书刊遗失 读者挂失 帐目清单 荐购历史 我的书评 系统推荐 我的书架 检索历史rn rn rn rn rn rn rn rn 我需要添加...rn 保存设置rn rn rn rn 提示:拖动您关注的内容的小图标到下面的页面域中。rn rn rn rn 添加外部RSS源: rn rn rn rn rn rn rn rn rn rn rnrn rn 版权所有©1999-2009 江苏汇文软件有限公司rnrn执行上面的函数返回的匹配集合是:rn[1] rn[2] rn 我的书架 | 我的检索历史 rn rn[3] rn 唐锦渊 注销rn[4] rn rn[5] rn rn 我的首页 证件信息 书刊借阅 违章缴款 预约信息 委托信息 书刊遗失 读者挂失 帐目清单 荐购历史 我的书评 系统推荐 我的书架 检索历史rn rn rn[6] rn rn 我需要添加...rn 保存设置rn rn rn[7] rn[8] 添加外部RSS源: rn[9] rn[10] rn[11] rn[12] 版权所有©1999-2009 江苏汇文软件有限公司rnrn观察结果:发现前11条记录符合要求,但是第12条记录理应被排除,但是却没有。这是为什么呢?
关于VB6.0使用MMControl时的溢出问题
小弟初学,那位大哥能给讲讲MMControl,或者给份资料871715712@qq.com
VB6.0无边框窗体移动
VB6.0无边框<em>窗体</em>移动
★类问题----关于窗体的重绘问题?
我用movewindow改变一<em>窗体</em>的大小 并将最后的参数设为true(重新绘制<em>窗体</em>)rn但<em>问题</em>来了rn如果<em>窗体</em>中有其它的控件比如有一个picturern用movewindow改变<em>窗体</em>时,<em>窗体</em>内的picture大小没有变(没有重绘)rn如何当<em>窗体</em>重绘时,<em>窗体</em>内的所有其它控件也重绘呢?rn
关于VB6.0的一个问题
.dsr文件怎么载入VB6.0????????????????rn他们分别是rptsprint.dsr,rptweek.dsr,rpttmonth.dsr,rptthreem.dsr,应该怎么载入VB6.0中去呢?rn还有actrpt,dll发给我!!!
vb6.0关于listview的问题
如何把listview的内容写入临时文件ini,下次打开时在读取比如这个listbox代码:rnPrivate Sub Form_Unload(Cancel As Integer)rn Dim i As Long, Temp As Stringrn For i = 0 To List1.ListCount - 1rn If Temp = "" Thenrn Temp = List1.List(i)rn Elsern Temp = Temp & vbNewLine & List1.List(i)rn End Ifrn Next irn Open IIf(Len(App.Path) = 3, App.Path, App.Path & "\") & "data.dat" For Output As #1rn Print #1, List1.ListCountrn Close #1rnEnd SubrnPrivate Sub Form_Load()rn Dim Path As String, Item As Long, Temp As String, i As Longrn Path = IIf(Len(App.Path) = 3, App.Path, App.Path & "\") & "data.dat"rn If Dir(Path, vbDirectory) = "" Then Exit Subrn Open Path For Input As #1rn Line Input #1, Temprn Item = Val(Temp)rn For i = 1 To Itemrn Line Input #1, Temprn List1.AddItem Temprn Next irn Close #1rnEnd Subrnrn求助啊!
关于VB6.0的一个问题
我<em>使用</em>VB6.0中的mmcontrol控件作了一个媒体播放器,但在运行时播放的影片的图像大小rn总是固定,不能够随着picutrebox的大小而改变请问如何改变影片图像的大小?rn因现在本人正在学习<em>vb6.0</em>。我愿与精通<em>vb6.0</em>的人士结为好友,如果哪位仁兄有意请与本人联系,在下真诚欢迎!!!rnEmail:menglijuan@eyou.com
vb6.0 关于CreateFileMapping的问题
程序有一500ms定时器每次都 rnhMap = CreateFileMapping(&HFFFFFFFF, Security, PAGE_READWRITE, 0, dataLen, mapFileName) rn每次都CloseHandle(hMap)(返回值1) rn可是HMap的值都不断的增加最后程序挂了!!~~ rn求助。怎样解决<em>问题</em>rn
关于vb6.0数组问题??
text1.textrntext2.textrncommand1三个控件。rnrn我想在text1.text中输入分数,text2.text输出优、良、中、差。rnrn优=90-100rn良=80-89rn中=60-79rn差=0-59rnrn请各位高手写个简短一点的代码给我,谢谢!
一个关于VB6.0的问题
请教老师;rn 请问如何在DATAGRID控件中增加组合框和列表框。rn 谢谢!!!!!!!!!!!
关于VB6.0和winsock的问题
本人用VB6.0调用winsock编写了一个通信组件,但是当把组件放在没有安装VB6.0的服务器上时,无法调用组件,错误提示是无法创建winsock的对象。所以向各位高手请教,是不是还缺什么支持的控件。
关于Nginx_Lua模块使用问题
看到一些高并发的应用场景,如淘宝等,直接利用nginx_lua<em>模块</em>,将一些业务逻辑写到了lua脚本中rnrn有一点不太明白,如果某一个业务比较耗时,那么不就也是阻塞执行了吗?rnrn我做了个简单的测试,nginx起一个worker,里面调用lua,在lua加一个sleep(60),就阻塞了,其它客户端的访问均阻塞了rnrn不知道,是不是我用的不对,还是我理解的不对,望高手指点,谢谢!rnrn location /lua2 rn set $test "hello, world, world.";rn content_by_lua 'rn os.execute("sleep " .. 60);rn ngx.header.content_type = "text/plain";rn ngx.say(ngx.var.test);rn ';rn rn
关于VB6.0中Richtextbox.savefile使用
因为Richtextbox.savefile的默认值是保存为一个.RTF文件,如何用Richtextbox.savefile保存一个.txt文件;rn对于Richtextbox.save的rtfRtf参数和rtfText参数该如何<em>使用</em>;rn为什么CommonDialog1.ShowSavern RichTextBox1.SaveFile (CommonDialog1.FileName,rtfText)rn会提示编译错误;rn望各位高手给予解答。谢谢!!!
关于使用grequest模块问题
Grequest是什么 Gevent 实现协程的基本思想是:遇到 IO 操作时,会自动切换到其他 Greenlet,等到 IO 操作完成时,再切换回来继续执行。有了自动切换协程,就保证总会有 Greenlet 在运行,而不是等待 IO 中。 Grequest允许你<em>使用</em>带有Gevent的请求,轻松的发出异步HTTP请求。 这就有点意思了,我们知道python的GIL锁会导致同一时间只能执行...
关于VB6.0串口通信的问题
[code=vb]Private Sub Timer1_Timer()rnDim strBuff As Stringrnflag = flag + 1rnIf (flag Mod 3 = 0) ThenrnLabel3.Caption = "请刷卡 >>>"rnElseIf (flag Mod 3 = 1) ThenrnLabel3.Caption = "请刷卡 >>>"rnElsernLabel3.Caption = "请刷卡>>>"rnEnd IfrnMSComm1.InputLen = 0rnstrBuff = MSComm1.InputrnIf (strBuff <> Null Or strBuff <> "") Thenrnresult = result + strBuffrnText2.Text = resultrnEnd IfrnEnd Sub[/code]rn这是我定时器的一段代码。串口打开之后开启定时器。但是我发现接收的缓存数据一直都是一摸一样的,没有清除掉。,应该怎么处理?
关于VB6.0串口通讯的问题
我用VB6.0写了一个串口通讯的程序,在XP上能正常运行,但到了WIN7上就不行了。<em>问题</em>出在对串口的查询上,在WIN7操作系统的资源管理器里只显示有COM1口,但是我写的查询程序查到有COM1和COM3(在XP系统没有这种情况),而且在用COM3口进行通讯时,COM3口自动的返回COM3口发送出去的数据。不知这是为什么?请各位指教。
关于VB6.0查询问题
请问如何在<em>vb6.0</em>中实现多个条件查询?rn例如:条件是年龄大于22岁的女生,在<em>vb6.0</em>自带的数据库中如何实现这个查询,请详细写出语句,万份感谢!!!rn我试过但只能实现单个条件查询也许是我的格式错误吧总是出<em>问题</em>请哪个高手给一下指点?
求助:关于VB6.0 的问题
我昨天看到一个程序,能够将其它程序中隐藏的控件显示出来!谁知道如何用VB6.0的代码实现这种功能?
关于vb6.0问题
请问我可不可以用rn select * from (select * from aa inner join bb where aa.aa=bb.bb)rn
关于VC++6.0使用CSplitterWnd类分割窗体,拆分窗体
最近在网上看到一篇文章是<em>关于</em>VC++6.0<em>使用</em>CSplitterWnd类分割<em>窗体</em>,拆分<em>窗体</em>的,就跟着做了一遍,但是最后老是出现两个错误.哪位高手能告诉我为什么???rn 程序很简单,就像求个明白,网址是http://hi.baidu.com/programpad/blog/item/2d9df70fa104b4c27acbe1a5.html
VB6.0关于CreateObject语句的使用
前面定义了对象是Obj类型,然后CreateObject,可以转换为新类型,那么如果新类型不存在呢?是不是就不转换了?
关于MDI窗体使用问题
[size=14px]做了一个MDI的<em>窗体</em>,做了两个子<em>窗体</em>,show时都是最大化,发现当点击菜单后显示form1,再点击菜单显示form2,点菜单回form1,发现还是一直显示form2。怎么样能做到子<em>窗体</em>随着菜单的点击切换显示呢?[/size][size=18px][/size]
关于Mdi窗体使用问题
<em>问题</em>对象:Mdi<em>窗体</em>rnrn描述:rn1.做一项目,打算用两个<em>窗体</em>,一各主<em>窗体</em>,一个子<em>窗体</em>rnrn2.想素有的功能公用一个子<em>窗体</em>,所有的功能界面全部手写,写在同一个子<em>窗体</em>上rnrn3.关闭子<em>窗体</em><em>使用</em>form。Hide()方法,rnrn<em>问题</em>:rn1.为什么关闭一个<em>窗体</em>,再打开同一个<em>窗体</em>(功能相同)时<em>窗体</em>在主<em>窗体</em>中的偏移量不断增大?rnrn2.在多个窗口间切换时出现事件不响应的<em>问题</em>,不知是何故rnrn请高手指教,谢谢rnrn相关代码:rnrn主<em>窗体</em>:rn此方法有菜单事件调用,其它功能类似rnprivate void Company_Reg()rn rn Common common = Common.GetInstance("CompanyReg",this);rn common.Show();rn rnrn公共子<em>窗体</em>rnprivate static Common common = null;rnpublic static Common GetInstance(String WindowCaption,MainForm main)rn rn if(null == common)rn rn common = new Common();rn common.MdiParent = main;rn rnrn switch(WindowCaption)rn rn case "Login":rn new Login(common);break;//绘制登陆界面rn case "CompanyReg":rn new CompanyReg(common);break;//绘制公司信息注册界面rn default:rn break;rn rn return common;rn rnrn子<em>窗体</em>的绘制代码rnpublic class CompanyRegrn rn Common obj = null;rn public CompanyReg(Form form)rn rn obj = (Common)form;rn InitializeForm();//具体的绘制窗口的代码和事件rn rn rnrn请问这个思路由没有<em>问题</em>,有没有更好的方法呢?
VB中如何使用模块和类模块
我在VB中建立一个标准EXE工程,想在里面<em>使用</em><em>模块</em>或者类<em>模块</em>,但是不知道如何编写和调用,能否告诉我,或者给个示例或相关的文章资料,谢谢给位了。
模块的方法读窗体数据
我写一个DLL,rnrn工程中有<em>窗体</em>from1、模板Module1、类<em>模块</em>class.cls三部份,在<em>窗体</em>中一个text和Command控件,当点击Command控件以后把text1.text的值传到 class.cls中test() 方法rnpublic sub test() rndim textval as string rn[color=#FF0000]textval=text1.text(意思这样)[/color]rnend sub
VB 类模块Timer(无窗体)
在别的<em>模块</em>调用时,Private WithEvents timer1 As clsTimer就行,Timer事件就是时间到了后被触发的事件.
C# 窗体的值传给类模块
在项目里面有一个form4,主要代码如下:rn public partial class Form4 : Formrn rn public static string uname;rn public static string pword;rn public static string server; rn public Form4()rn rn InitializeComponent();rn rn private void Form4_Load(object sender, EventArgs e)rn rn this.comboBox1.Items.AddRange(new string[] "ORCL", "TXYY" );rn this.comboBox1.SelectedIndex = 0;rn uname = textBox1.Text.Trim();rn pword = textBox2.Text.Trim();rn server = comboBox1.Text.Trim();rn rn private void button1_Click(object sender, EventArgs e)rn rn uname = textBox1.Text.Trim();rn pword = textBox2.Text.Trim();rn server = comboBox1.Text.Trim();rn rn OracleConnection conn = new OracleConnection(); rn conn.ConnectionString = "Data Source= " + Form4.server + ";User ID=" + Form4.uname + ";Password=" + Form4.pword + "";rn conn.Open();rn然后我在项目里面创建了一个类,代码如下rnnamespace WindowsFormsApplication3rnrn class DataBasern rn static string strConn = "Data Source= " + Form4.server + ";User ID=" + Form4.uname + ";Password=" + Form4.pword + "";rn static OracleConnection sqlcon=new OracleConnection (strConn);rn但是运行发现<em>窗体</em>的uname,pword,server 这三个值不能传到类里面。rn 后来又改了一下,在form4里面加 DataBase c = new DataBase();rn c.chuangZ(textBox1.Text.Trim(), textBox2.Text.Trim(), comboBox1.Text.Trim());rn在类里面加 public string chuangZ(string usename, string psdword, string server)rn rn string strConn;rn strConn = "Data Source ='" + server + "';User ID='" + usename + "';+PWD='" + psdword+ "';";rn return strConn;rn 还是不行rn希望各位帮忙解答,最好有参考的代码!因为比较急!所以不要给什么设置断点的建议。在线等,谢了!rnrnrn
如何将类模块装载到窗体
大家请帮忙:我在工程中有五个类<em>模块</em>,可是在我运行<em>窗体</em>的时候总会出现sub or function not define 的错误提示,调试时是指向我在类<em>模块</em>中的定义的成员函数,可是我决定我已经对类<em>模块</em>声明了 ,到底我应该怎么做呢?要是一条一条的把成员函数的语句加进去那我的类<em>模块</em>不是毫无意义了吗?希望那为好心人帮忙指点,谢谢!
vb6.0 自适应窗体模块怎样在usercontrol中调用?
全部代码如下,请老师看看怎么修改?rn<em>问题</em>出在红色和绿色代码部分:子控件的4个属性无法写入obj.tag,去掉纠错语句on error resume next 运行时提示:对象不支持该属性或方法(绿色语句)rn'<em>模块</em>中代码:rnOption ExplicitrnPrivate FormOldWidth As Longrn'保存<em>窗体</em>的原始宽度rnPrivate FormOldHeight As Longrn'保存<em>窗体</em>的原始高度rn rn'在调用ResizeForm前先调用本函数rnPublic Sub ResizeInit(FormName As VBControlExtender)rnDim Obj As ControlrnFormOldWidth = FormName.WidthrnFormOldHeight = FormName.Heightrn'On Error Resume Nextrn[color=#008000]For Each Obj In FormName[/color]'在这里报错,说对象不支持该属性或方法rn[color=#FF0000]Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "[/color]'记录不上这些属性值rn[color=#3366FF]debug.print obj.tag‘从立即窗口看:空值[/color]rnNext ObjrnOn Error GoTo 0rnEnd Subrn rn'按比例改变表单内各元件的大小,rn'在调用ReSizeForm前先调用ReSizeInit函数rnPublic Sub ResizeForm(FormName As VBControlExtender)rn'Debug.Print FormName.Width, FormName.HeightrnDim Pos(4) As DoublernDim i As Long, TempPos As Long, StartPos As LongrnDim Obj As ControlrnDim ScaleX As Double, ScaleY As DoublernIf FormOldWidth <> 0 And FormOldHeight <> 0 ThenrnScaleX = FormName.Width / FormOldWidthrn'保存<em>窗体</em>宽度缩放比例rnScaleY = FormName.Height / FormOldHeightrnEnd Ifrn'保存<em>窗体</em>高度缩放比例rnOn Error Resume NextrnFor Each Obj In FormNamernStartPos = 1rnFor i = 0 To 4rn'读取控件的原始位置与大小rn rnTempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)rnIf TempPos > 0 ThenrnPos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)rnStartPos = TempPos + 1rnElsernPos(i) = 0rnEnd Ifrn'根据控件的原始位置及<em>窗体</em>改变大小rn'的比例对控件重新定位与改变大小rnObj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleYrnNext irnNext ObjrnOn Error GoTo 0rnEnd Subrnrnrnrnusercontrol中代码:rnPrivate Sub UserControl_Initialize()rnCall ResizeInit(UserControl.Extender)rnEnd SubrnrnPrivate Sub UserControl_Resize()rnCall ResizeForm(UserControl.Extender)rnEnd Sub
关于vbs的组件中类模块问题
在同一组件中:一个类<em>模块</em>如何引用其它类<em>模块</em>的?rnrn'//rn比如有 systemrn showrn两个在show中可以不可以用rn set s=new system rn'//
关于模块中属性的问题
在类<em>模块</em>中定义了一个属性 ipaddress代码如下rnPublic Property Let ipAddress(ByVal vnewvalue As String)rn ipAddress = vnewvaluernEnd Propertyrn可是在程序中调用提示 “堆栈空间溢出”rn跟踪显示在 ipaddress = vnewvalue 处出错rnrnrn
关于模块中声明的常数问题
常看一些代码中声明了一些API函数,又声明了一些常数,rn如rn.......rn.......rnDeclare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long rnrnPrivate Const MF_OWNERDRAW = &H100&rnPrivate Const MF_BYPOSITION = &H400&rnPrivate Const GWL_WNDPROC = (-4)rnPrivate Const WM_DRAWITEM = &H2BrnPrivate Const WM_MEASUREITEM = &H2CrnPrivate Const WM_COMMAND = &H111rn......rn......rn不知这些常数是何用处?rn其值是多少,如何得到。rnrn请Email:sl5-098032@163.comrnrn rn
vb中关于模块的简单问题~
Option Explicitrn'DIYMouse类rnrn'获取鼠标指针在屏幕上的坐标rnPrivate Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Longrn'设置鼠标指针在屏幕上的坐标rnPrivate Declare Function SetCursorPos Lib "user32" (ByVal sPointX As Long, ByVal _rnsPointY As Long) As Longrn'鼠标事件rnPrivate Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx _rn As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)rnrnPrivate Const MouseEventF_LeftDown = &H2 '左键按下rnPrivate Const MouseEventF_LeftUp = &H4 '左键抬起rnPrivate Const MouseEventF_MiddleDown = &H20 '中键按下rnPrivate Const MouseEventF_MiddleUp = &H40 '中键抬起rnPrivate Const MouseEventF_Move = &H1 '鼠标移动rnPrivate Const MouseEventF_RightDown = &H8 '右键按下rnPrivate Const MOUSEEVENTF_RightUp = &H10 '右键抬起rnPrivate Const MouseEventF_ABSOLUTE = &H8000 'dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元rnrn'PointAPI数据类型rnPrivate Type PointAPIrn X As Long '鼠标指针位置的横坐标(单位:像素)rn Y As Long '鼠标指针位置的纵坐标(单位:像素)rnEnd TypernrnDim lResult As Long '临时存储执行结果rnDim lpPoint As PointAPI '指针类型rnDim lpEnabled As Boolean '是否启用鼠标状态检测事件(MouseMove事件、MouseClick事件)rn'功能待定rn'Public Event GetClicked(Button As Integer, Shift As Integer, X As Single, Y As Single) '检测到鼠标事件rnrn'指针跳转到屏幕的位置rnPublic Sub PointGoto(x1, y1)rn Call SetCursorPos(x1, y1) '调用SetCursorPos函数rnEnd Subrnrn'单击左键rnPublic Sub LeftClick()rn Call mouse_event(MouseEventF_LeftDown, 0, 0, 0, 0) '按下左键rn Call mouse_event(MouseEventF_LeftUp, 0, 0, 0, 0) '抬起左键rnEnd Subrnrn'单击右键rnPublic Sub RightClick()rn Call mouse_event(MouseEventF_RightDown, 0, 0, 0, 0) '按下右键rn Call mouse_event(MOUSEEVENTF_RightUp, 0, 0, 0, 0) '抬起右键rnEnd Subrnrn'单击中键rnPublic Sub MiddleClick()rn Call mouse_event(MouseEventF_MiddleDown, 0, 0, 0, 0) '按下中键rn Call mouse_event(MouseEventF_MiddleUp, 0, 0, 0, 0) '抬起中键rnEnd Subrnrn'双击左键rnPublic Sub DoubleClick(x1, y1)rn Call LeftClick '首次单击左键rn Call LeftClick '再次单击左键rnEnd Subrnrn'左键按下rnPublic Sub LeftDown()rn Call mouse_event(MouseEventF_LeftDown, 0, 0, 0, 0) '按下左键rnEnd Subrnrn'左键抬起rnPublic Sub LeftUp()rn Call mouse_event(MouseEventF_LeftUp, 0, 0, 0, 0) '抬起左键rnEnd Subrnrn'右键按下rnPublic Sub RightDown()rn Call mouse_event(MouseEventF_RightDown, 0, 0, 0, 0) '按下右键rnEnd Subrnrn'右键抬起rnPublic Sub RightUp()rn Call mouse_event(MOUSEEVENTF_RightUp, 0, 0, 0, 0) '抬起右键rnEnd Subrnrn'中键按下rnPublic Sub MiddleDown()rn Call mouse_event(MouseEventF_MiddleDown, 0, 0, 0, 0) '按下中键rnEnd Subrnrn'中键抬起rnPublic Sub MiddleUp()rn Call mouse_event(MouseEventF_MiddleUp, 0, 0, 0, 0) '抬起中键rnEnd Subrnrn'指针横坐标rnPublic Property Get CurrentX() As Longrn lResult = GetCursorPos(lpPoint) '调用GetCursorPos函数rn CurrentX = lpPoint.X '返回指针横坐标rnEnd Propertyrnrn'指针纵坐标rnPublic Property Get CurrentY() As Longrn lResult = GetCursorPos(lpPoint) '调用GetCursorPos函数rn CurrentY = lpPoint.Y '返回指针纵坐标rnEnd Propertyrnrn'是否启动检测功能rnPublic Property Get Enabled() As Booleanrn Enabled = lpEnabledrnEnd PropertyrnPublic Property Let Enabled(slpEnabled As Boolean)rn lpEnabled = slpEnabledrnEnd Propertyrnrn最后那两段到底什么意思?怎么用的??rn'是否启动检测功能rnPublic Property Get Enabled() As Booleanrn Enabled = lpEnabledrnEnd PropertyrnPublic Property Let Enabled(slpEnabled As Boolean)rn lpEnabled = slpEnabledrnEnd Propertyrn
关于VB类模块的一个问题
一个类<em>模块</em>里有两个数组,我如何对这两个数组进行赋值和取值?请给出详细例子,谢谢!
关于模块中的常量定义问题
我在类<em>模块</em>(A1.dll)中定义了系统中用到的一些常量,然后在另一个工程(A2.dll)中调用,却发现无法调用,这是为什么?rnrn常量定义如下:rnConst B1 = "hello"rnrn默认情况下作用范围应该是Private吧,我用Public是系统提示在类<em>模块</em>中定义常量不能用Public。请问要如何解决?rn
虚心请教:关于模块问题
我在动态链接库中类<em>模块</em>tools中定义一公共函数rnrnPublic Function PUB_C(data As Database) As Integerrn.....代码rnEnd Functionrnrn但是在调用的时候没有这个属性rn请教是怎么回事rn
窗体模块
n 计算机二级(VB)教程,全面、系统、细致地介绍了计算机二级(VB)的相关知识点。nnn 课程能够帮助学习者快速入门。nnn 该课程面向对象:nnn n 备考计算机二级(VB)的课程n n n 备课期末考试n n n 自学VB程序设计n n n 课程注意提高学习者实战技巧,授课过程中以实际操作演示为主,帮助学习者快速地掌握编程的实际方法和技巧。nnn 课程以2019年计算机二级大纲为主线,详细介绍了VB的相关知识点。nnn nn
模块问题
我在网上下载了一个程序,它在类<em>模块</em>里声明了两个变量 rnpublic mycon as new adodb.connectionrnpublic myrec as new adodb.recordsetrn这是什么意思呀?rnrn我怎么自己照着它这个做了一下为什么出错提示:”用户定义类型未定义“为什么呀?rnrn我对类<em>模块</em>不是很熟悉,能不能给讲一下,比如:在什么时候才用到类<em>模块</em>?rn与变通<em>模块</em>有什么区别?
有关类模块问题
请问谁有<em>关于</em>类<em>模块</em>的简单的源代码,或一些简单的说明文件。只要有就给分!
vb 类模块问题
rnPublic Property Get Count() As Singlern Count = UBound(m_List) + 1rnEnd PropertyrnrnPublic Property Get List(ByVal Index As Single) As Stringrn List = m_List(Index)rnEnd PropertyrnrnrnPublic Property Get GetString() As Stringrn GetString = Join(m_List, " ")rnEnd Propertyrnrn这是<em>vb6.0</em>环境下的,vb2008环境下怎么不支持呢rnrn 错误指在` Get 方法 , 怎么改呢
在类模块中如何使用控件中的类模块
如题,比如我要在一个类<em>模块</em>中用一个LABEL的类<em>模块</em>rnprivate withevents label1 as labelrn但这样只有控件的事件格式rn但label1不是一个对象rn我应该怎么做
模块使用例程,跪求!
那位大哥有类<em>模块</em>这方面的<em>使用</em>介绍,最好有例子!!!rn请发送邮箱 ljw0131@163.com 谢谢!!!!
关于窗体 和bitset类的两个问题
1。我建立一个用户登录主<em>窗体</em>,在登录完后动态建立程序运行的主界面,此时怎么删除登录<em>窗体</em>呀,有那些方法。rn 好象有一种方法是将主<em>窗体</em>转移成另外的<em>窗体</em>,又是怎么做的。rnrn2。我用了rn#includernbitsetbit_vec;rn怎么编译不能通过,这可是标准C++定义的啊。rnrn
关于vb中类与窗体结合的问题
有这么一段程序一直不懂请教高人rn在class modules里定义了 classa.cls,并在其中定义了一成员函数public function classa_a(参数1,参数2 ,...)rn在form1<em>窗体</em>中 声明 implements classa 并重写private function classa_a( 参数1,参数2 ,... )rn在form2 <em>窗体</em>中rn Dim frm As classarn Set IM = form1rn frm.classa 参数1,参数2 ,...rnrn既然用set IM=form1,为什么不能通过IM引用form1上的控件呢?rn这里frm究竟是<em>窗体</em>还是类,frm是不是form1的一个实例呢?rn
HELP ME !!! 关于创建窗体问题
with TForm1.Create(Application) dorn tryrn ShowModal;rn finallyrn Free;rn end;rnend;rnrn用什么方法能实现'TFORM1'以变量方式体现。我的<em>窗体</em>名称是存在数据库里rn例:rn V_FORMNAME := 'TForm1' // TForm1是字符rn with V_FORMNAME.Create(Application) dorn tryrn ShowModal;rn finallyrn Free;rn end;rn end;rnrnrnV_FORMNAME是如何定义的;rnwith V_FORMNAME.Create(Application) do 是如何实现的 ? rnrn
关于类中调用窗体方法的问题
offline类中有个ConnectionManagerConnectionStateChangedEvent事件,rn我想在这个事件中调用form<em>窗体</em>的zhuangtai()方法,以改变这个<em>窗体</em>中rn的状态栏显示的文字。rn应该怎么调用这个方法。谢谢。
VB中窗体模块、标准模块、类模块的区别
VB的代码存储在<em>模块</em>中。在VB中提供了三种类型的<em>模块</em>:<em>窗体</em><em>模块</em>、标准<em>模块</em>和类<em>模块</em>。   简单的应用程序可以只有一个<em>窗体</em>,所用的程序都驻留在<em>窗体</em><em>模块</em>中,而当应用程序庞大复杂时,就要另外附加<em>窗体</em>。最终可能有几个<em>窗体</em>中有一些共同都要执行的代码,为了在两个<em>窗体</em>中不产生重复代码,可创建一个独立的<em>模块</em>,用它实现代码公用。该独立<em>模块</em>即是标准<em>模块</em>。此外还可以建立包含共享代码与数据的类<em>模块</em>。  每个标准<em>模块</em>
VB6.0 关于窗体中按钮不显示的问题!!!!!!!!
子<em>窗体</em>中有两个按钮,在主<em>窗体</em>中点击某个按钮进入到子<em>窗体</em>后,rn我想让子<em>窗体</em>中其中一个按钮不显示出来,应该怎么做呢。rncmdOk.Enabled = False,不是像这种不可用的状态,rn而是消失的状态,这样可以实现么?rn
VBA中窗体模块、标准模块和类模块的区别
VBA中<em>窗体</em><em>模块</em>、标准<em>模块</em>和类<em>模块</em>的区别
窗体模块,标准模块,类模块各代表什么含义?
怎样新建标准<em>模块</em>,类<em>模块</em>?rn
java窗体类的问题
<em>问题</em>描述:rn 我需要通过<em>窗体</em>类的JTextField获取一些信息,对一个信息类(相当于一个结构体)初始化。rn 但是每次打开<em>窗体</em>后,没等我输入信息,程序就继续运行了。所以我无法获取信息了。rnrn<em>问题</em>: 有什么方法可以使程序处于等待状态,直到我自己手动关闭<em>窗体</em>,程序才能继续运行????rnrn请大家帮我看看,谢谢了[img=https://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/001/face/83.gif][/img]
vb6.0与.net窗体大小定义换算问题
现在正将一段<em>vb6.0</em>软件转换成.net,在定义<em>窗体</em>大小的时候,<em>vb6.0</em><em>窗体</em>大小属性是whith和height,.net<em>窗体</em>有个size属性,里面有whith和height,我将<em>vb6.0</em>里面的数值输入到.net里面,可是<em>窗体</em>大小明显与<em>vb6.0</em>不一样,这两者有换算关系吗?请大家指点啊,谢谢了
用VB6.0设计数据库登录窗体问题
这是我写的代码,可以实现登录,现在的<em>问题</em>是,我想在这些代码的基础上,增加用户类型,即系统管理员和普通用户,通过不同的用户类型登录,实现主<em>窗体</em>的功能限制rnOption ExplicitrnPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongrnPublic OK As Booleanrn'记录确定次数rnDim miCount As IntegerrnrnPrivate Sub Form_Activate()rn txtUserName.SetFocusrnEnd SubrnrnPrivate Sub Form_Load()rn Dim sBuffer As Stringrn Dim lSize As Longrn sBuffer = Space$(255)rn lSize = Len(sBuffer)rn Call GetUserName(sBuffer, lSize)rn If lSize > 0 Thenrn txtUserName.Text = ""rn Elsern txtUserName.Text = vbNullStringrn End Ifrn OK = Falsern miCount = 0rnEnd SubrnPrivate Sub cmdCancel_Click()rn OK = Falsern Me.HidernEnd SubrnPrivate Sub cmdOK_Click()rn '用来存放SQL语句rn Dim txtSQL As Stringrn '用来存放记录集对象rn Dim mrc As ADODB.Recordsetrn '用来存放返回信息rn Dim MsgText As Stringrn 'ToDo: create test for correct passwordrn 'check for correct passwordrn UserName = ""rn '判断输入用户名是否为空rn If Trim(txtUserName.Text = "") Thenrn MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"rn '执行查询语句rn Set mrc = ExecuteSQL(txtSQL, MsgText)rn If mrc.EOF = True Thenrn MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"rn txtUserName.SetFocusrn Elsern '判断输入密码是否正确rn If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenrn OK = Truern mrc.Closern Me.Hidern UserName = Trim(txtUserName.Text)rn Elsern MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"rn txtPassword.SetFocusrn txtPassword.Text = ""rn End Ifrn End Ifrn End Ifrn '记载输入密码次数rn miCount = miCount + 1rn If miCount = 3 Thenrn MsgBox "您已经连续输入三次错误的密码,请向系统管理员查询!", vbOKOnly, "警告"rn Me.Hidern End Ifrn Exit SubrnEnd Subrnrnrnrn
雷达探测器iptape.rar下载
可以查看聊天好友的IP,以及端口,轻松获取对方IP以及端口 相关下载链接:[url=//download.csdn.net/download/df725031/2535099?utm_source=bbsseo]//download.csdn.net/download/df725031/2535099?utm_source=bbsseo[/url]
医药商务系统需求分析下载
这个是上一个静态页面的补充,包括数据库表和需求设计说明书 相关下载链接:[url=//download.csdn.net/download/tyaolei/3166030?utm_source=bbsseo]//download.csdn.net/download/tyaolei/3166030?utm_source=bbsseo[/url]
Java 经典面试题下载
Java 经典面试题,几乎涵盖了,常见的HR会问到的知识点,这对于Java找工作的人来说简直是福音。 相关下载链接:[url=//download.csdn.net/download/varyall/3561655?utm_source=bbsseo]//download.csdn.net/download/varyall/3561655?utm_source=bbsseo[/url]
相关热词 c# gdi 占用内存 c#中遍历字典 c#控制台模拟dos c# 斜率 最小二乘法 c#进程延迟 c# mysql完整项目 c# grid 总行数 c# web浏览器插件 c# xml 生成xsd c# 操作sql视图
我们是很有底线的