社区
VB基础类
帖子详情
泰山,这个对不对? If xsc(i)(j)(k)=0 then
Bardo
2002-02-07 09:15:05
If xsc(i)(j)(k)=0 then
xsc(i)(j)(k)=128
end if
VB 中有这个吗?
...全文
51
22
打赏
收藏
泰山,这个对不对? If xsc(i)(j)(k)=0 then
If xsc(i)(j)(k)=0 then xsc(i)(j)(k)=128 end if VB 中有这个吗?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
22 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Bardo
2002-02-20
打赏
举报
回复
你可以多读两遍鲁迅的《孔乙己》!!
dbcontrols
2002-02-08
打赏
举报
回复
我确实不知道,正象我不知道"茴"字有几种写法.
Bardo
2002-02-07
打赏
举报
回复
wjying(葡萄)
i will give the score to u after the spring festival!
Bardo
2002-02-07
打赏
举报
回复
But it is not surport by the vbscript because in vbscript is not much the point than in vb.
Bardo
2002-02-07
打赏
举报
回复
infact, most of the people not is spert in the method:
Getstring()
if they use that....
Dim xsc() as varint
dim xcr as varint
dim scrs as string
scrs=Rs.GetString()
xsr=split(scrs,vbcrlf)
redim xsc(ubond(xsr))
for i=0 to ubound(xsr)
xsc(i)=split(xsr(i),vbtab)
next i
jett
2002-02-07
打赏
举报
回复
我想改往这方面考虑
jett
2002-02-07
打赏
举报
回复
3个也许也可以
jett
2002-02-07
打赏
举报
回复
Dim xsc() As Variant
Dim aa As String
ReDim xsc(4)
aa = "dfasf dfsdf"
xsc(4) = Split(aa, " ")
If xsc(4)(1) = 0 Then
xsc(4)(1) = 128
End If
Bardo
2002-02-07
打赏
举报
回复
yes, but i want to listen from guru.
Bardo
2002-02-07
打赏
举报
回复
回复人: fling_boy(男孩) ( ) 信誉:100 2002-2-7 21:59:17 得分:0
the array is can't.
are u sure??????????????????????????
fling_boy
2002-02-07
打赏
举报
回复
the array is can't.
Bardo
2002-02-07
打赏
举报
回复
回复人: lihanbing() ( ) 信誉:100 2002-2-7 21:44:40 得分:0
回复人: Bardo(巴顿) ( ) 信誉:100 2002-2-7 21:41:11 得分:0
......
这又不是指针,这是告诉你菜单的位置
thanks, i forgot it. but now i said that is about the array!!!
lihanbing
2002-02-07
打赏
举报
回复
回复人: Bardo(巴顿) ( ) 信誉:100 2002-2-7 21:41:11 得分:0
......
这又不是指针,这是告诉你菜单的位置
Bardo
2002-02-07
打赏
举报
回复
http://www.csdn.net/expert/topic/524/524659.xml
Bardo
2002-02-07
打赏
举报
回复
回复人: lihanbing() ( ) 信誉:100 2002-2-7 21:37:08 得分:0
我试了,可以的
tools->procedure attributes->advanced
把procedure ID选为default,在选上user interface default
是VB6吗?
如是,你这是何种指针?
lihanbing
2002-02-07
打赏
举报
回复
我试了,可以的
tools->procedure attributes->advanced
把procedure ID选为default,在选上user interface default
Bardo
2002-02-07
打赏
举报
回复
回复人: lihanbing() ( ) 信誉:100 2002-2-7 21:25:37 得分:0
把下面三个类的aaa属性都设置为默认属性就可以了
好象不行!!!!!!!!!!!!!!!!!!!!!
lihanbing
2002-02-07
打赏
举报
回复
把下面三个类的aaa属性都设置为默认属性就可以了
'form1
Option Explicit
Dim a As New Class1
Private Sub Form_Load()
a(1)(2)(3) = 5
If a(1)(2)(3) = 5 Then
a(1)(2)(3) = 14
End If
End Sub
'class1
Option Explicit
Dim a As New Class2
Public Property Get aaa(i As Long) As Class2
Set aaa = a
End Property
'class2
Option Explicit
Dim a As New Class3
Public Property Get aaa(i As Long) As Class3
Set aaa = a
End Property
'class3
Option Explicit
Dim a As Long
Public Property Get aaa(i As Long) As Long
aaa = a
End Property
Public Property Let aaa(i As Long, ByVal vNewValue As Long)
a = vNewValue
End Property
lihanbing
2002-02-07
打赏
举报
回复
如果是类对象就可以这样
fling_boy
2002-02-07
打赏
举报
回复
这个很简单,试下不就可以了吗?
加载更多回复(2)
XSC
销售与收款循环.xlsx
XSC
销售与收款循环
XSC
5系列PID调节器
XSC
5系列PID调节器使用广泛。详细说明书,安装方式参数等。。
苏州迅鹏SPB-
XSC
5系列PID智能调节仪.zip
苏州迅鹏SPB-
XSC
5系列PID智能调节仪zip,苏州迅鹏SPB-
XSC
5系列PID智能调节仪
XSC
.rvt
XSC
.rvt
XSC
销售与收款循环.xls
XSC
销售与收款循环
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章