- 博客(11)
- 资源 (2)
- 收藏
- 关注
原创 VB读取TXT,ini文件内的内容时,读出后中文内容为乱码
你的INI文件是什么编码。打开INI文件,另存为,下面选择编码。如果你的程序非UNICODE,就选择ANSI,如果你的程序时UNICODE就选择UNICODE,另存为以后再读取。UTF-8的编码在VC里面无法正常显示。需要转换为ANSI或UNICOD...
2019-11-27 19:59:48
5864
原创 byref参数类型不符 “变量声明”
Dim ResValue1 As StringDim ResValue2 As StringDim ResValue3 As String以上格式与下面不等价Dim ResValue1,ResValue2,ResValue3 As String第二种格式中只定义了,ResValue3为string 类型,而ResValue1,ResValue2,未定义有时会出现“byref参数类型不符...
2019-11-10 22:02:53
593
原创 solidworks VBA 中程序启动初始过程的设置
VB程序通常程序运行的启示过程为标准模块中的main(),但有时候也会重其它位置启动,这时可通过,“工程”>>“工程属性”中进行设置而在VBA中则无法通过此方式进行设置,它需要在宏按钮建立的过程中,通过下图所示下拉箭头中进行选择,选择程序运行的初始过程...
2019-06-18 08:15:34
2782
转载 VB6.0 Error: run-time error '91' object variable or with block variable not set 此文转载
vb6.0对我来说就是噩梦… (┬_┬)经理不知又从哪里弄出来的vb程序,让我修改… 我这个头晕…完全没有信心的研究了一下,最后居然真地搞定了… (┬_┬) 内牛~事实证明,很多时候,没什么是做不到的,只是你想不想做,肯不肯去做的问题。回过头说一下这个问题。网上查找了一下,一般说这个问题的产生是没有声明对象没有new我检查了一下,我的是有声明的,但是debug就一直说不识别该对象检查...
2019-06-14 19:42:05
9692
原创 VB程序打包,生成安装程序
(1)打开VB6.0 IDE,加载你的工程,单击“外接程序”菜单下的“外接程序管理器”。(2)在弹出的窗体中选择“打包和展开向导”(最后一项),在加载行为中选择“加载/卸载”,确定。(3)再次单击“外接程序”菜单项,单击“打包和展开向导”。(4)单击“打包”,选择“标准安装包”,一直单击下一步,最后点“完成”,点“关闭”。(5)此时你的工程文件夹下会有一个名为“包”的文件夹。(6)单击“...
2019-06-13 18:22:58
7395
原创 Visual Basic6.0生成EXE文件/及调用EXE文件宏程序,文尾
1.打开VB62.选择新建一个标准EXE3.做好程序4.点击“”文件“”菜单5.选择生成选项6.保存应用程序到自定义路径7.完成'调用EXE文件宏程序Dim Progpfad As StringSub main() Progpfad = "这里为EXE文件路径"MyAppID = Shell(Progpfad, 1)End Sub...
2019-06-13 17:53:13
2425
原创 过程的创建和使用
“过程”就是***一个功能相对独立***的程序逻辑单元,即一段独立的程序代码,VB应用程序一般都是由过程组成的VB过程分为事件过程和通用过程事件过程是当发生某个事件(如鼠标单击时间内等)时,对该事件作出响应的程序段;***通用***过程是供多个事件过程或其它过程调用的一段相同的程序代码,可以单独建立;***(关键词“通用”,他是供其它过程调用,单独建立,可以建立在一个库中(类模块)形成自己...
2019-06-13 09:27:56
479
原创 VB 清除数组中全部元素的值
程序运行时候此数组内容必须为空,所以需要在程序末尾增加一清空数组内所有元素值得动作Erase a以下来自帮助Erase 语句重新初始化大小固定的数组的元素,以及释放动态数组的存储空间。语法Erase arraylist所需的 arraylist 参数是一个或多个用逗号隔开的需要清除的数组变量。说明Erase 根据是固定大小(常规的)数组还是动态数组,来采取完全不同的行为。Eras...
2019-06-12 11:41:58
5422
原创 VB中,动态数组中输入数据
Private Sub Command1_Click()Text1.Text = “”Dim s As Long, i As LongDim a()DoReDim Preserve a(s)a(s) = InputBox(“请输入字符串,输入空串时结束”, “输入”)s = s + 1Loop Until a(s - 1) = “”For i = 0 To s - 2Text1...
2019-06-10 23:14:06
1718
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人