泰山,这个对不对? 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 打赏 收藏 转发到动态 举报
写回复
用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)

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧