00问答网
所有问题
当前搜索:
VB6.0
VB 6.0
提取数字字符串!!~~求解答呀!!~
答:
写一个自定义函数,供调用:Dim arr (1000,3)Dim i as integer Private Sub splitString(s as String)Dim a As Variant a = Split(s, " ")arr(i, 0) = a(0)arr(i, 1) = a(1)arr(i, 2) = a(2)'MsgBox arr(0, 0)i = i + 1 End Sub 经测试,可用。
求
vb 6.0
打开文件对话框 操作控件和完整代码。
答:
Option Explicit Private Sub Command1_Click()' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|...
怎么用
VB6.0
编写病毒(要摸版)
答:
怎么用
VB6.0
编写病毒(要摸版) 我来答 首页 在问 全部问题 娱乐休闲 游戏 旅游 教育培训 金融财经 医疗健康 科技 家电数码 政策法规 文化历史 时尚美容 情感心理 汽车 生活 职业 母婴 三农 互联网 生产制造 其他 日报 日报精选 日报广场 用户 认证用户 视频作者 ...
VB6.0
加密与解密
答:
个人认为用时钟控件来实时读取较好,因为测试的时候发现读取时
VB
会没有响应很长时间 时钟控件:添加一个“Timer2”,Enabled设置为False 修改:把Text3改成了Text1 思路:设iv为读取行数(用于显示),yy为文件单行文字,然后时钟控件里用于读取文件,所以“打开”按钮里要添加开启时钟并去掉原来的读取方法...
vb6.0
FOR循环语句
答:
Dim I As Integer, D1 As Integer, D2 As Integer, D3 As Integer, D4 As Integer Dim Str1 As String Dim Str2() As String Private Sub Form_Load()Command1.Caption = "随机0,1字符"Command2.Caption = "计算"End Sub Private Sub Command1_Click() '随机出一个由0和1组成长度为...
vb6.0
sp6能直接升级到vs2010吗?
答:
VB6不能升级到VS任何一个版本。VB6代码不能转换成
VB
.NET代码。唯一的办法:手工转换成VS代码,实际上就是二次编程。
VB6.0
的标准数据类型有哪些
答:
Boolean数据类型 真假 Byte数据类型 字节 Currency数据类型 货币 Date数据类型 日期 Decimal数据类型 Double数据类型 双精度 Integer数据类型 短整型 Long数据类型 长整型 Object数据类型 对象 Single数据类型 String数据类型 单精度 用户定义数据类型 自定义 Variant数据类型 === 还有问题请补充,谢谢 ...
用
VB6.0
写出
答:
代码:Private Sub Command1_Click() Me.Caption = "Cycle number" Dim a() As Integer, b() As Integer, n As Integer n = InputBox("Pleace input number of people:", "Input box", 17) m = n ReDim a(1 To n) For i = 1 To n a(i) = i - 1 Print...
VB6.0
出现问题 实时错误 3705
答:
实时错误'3705',对象打开时,不允许操作 这句已经提示很明显了 你rs对象是打开了 if rs.state =1 then rs.close '这句话,就是在open前,先判断rs的状态 rs.Open sql, cn, 1, 1 '只读打开记录集 修改代码:Private Sub Command3_Click() '【保存】temp = Trim(Text5.Text)cn....
vb6.0
下enumwindows的具体例子
答:
模块代码 Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Public ...
首页
<上一页
6
7
8
9
11
12
13
14
10
15
下一页
尾页
其他人还搜