VBcode

kbchong

大家好，我是VB的新手。很多code都不明白，也不会运用！
如果要开始，从哪学起？
谢谢

goatstudio

买本 VB 的书, 从 Hello World 开始学习.

jasonmun

万重高楼由地起..一点一点的学习..
你也会变成高手..

kbchong

但好多不明白也！！而且最好是华文版的

kbchong

在 code里面的

integer, string, double 等，要怎样区分呢？谢谢大家

goatstudio

原帖由 kbchong 于 19-5-2006 10:18 PM 发表
在 code里面的

integer, string, double 等，要怎样区分呢？谢谢大家

看这里:　http://theopensourcery.com/vb03tut.htm

这些资料我不需要 5 秒就在 google 里找到, 我想真正要学习的话, 应该更加用心吧.

kbchong

原帖由 goatstudio 于 21-5-2006 01:00 AM 发表


看这里:　http://theopensourcery.com/vb03tut.htm

这些资料我不需要 5 秒就在 google 里找到, 我想真正要学习的话, 应该更加用心吧.

谢谢！！！
如果有难题，可否再指教呢？

牛妈妈

原帖由 kbchong 于 21-5-2006 10:41 AM 发表




谢谢！！！
如果有难题，可否再指教呢？

如果你有难题，当然可以发问请教
但在这之前，你必须自己去尝试找答案(可以向谷哥老师先求救）
或者尝试把coding自己写出来
如果试了很多遍，都不行，在上来发问
如果对coding有疑问，
把你的coding放出来，这里的大大都会很乐意和你解释和纠正错误的

kbchong

Dim i As Integer



For i = 1 To 5
Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) + Sheets("sheet1").Cells(i, 2)

Next i

End If

我是用来做Excel的，我key in英文字母，就会有虫虫出现，要如何修改呢？

windfreeze

你都没开始 if statement 为什么有 End If 的？

kbchong

Dim i As Integer



For i = 1 To 5
Sheets("sheet1".Cells(i, 3) = Sheets("sheet1".Cells(i, 1) + Sheets("sheet1".Cells(i, 2)

Next i


打错啦！！
都说是新手啦

goatstudio

原帖由 kbchong 于 21-5-2006 12:50 PM 发表
Dim i As Integer



For i = 1 To 5
Sheets("sheet1".Cells(i, 3) = Sheets("sheet1".Cells(i, 1) + Sheets("sheet1".Cells(i, 2)

Next i

End If

我是用 ...

把问题解释好来吧... 你得告诉我们是怎么样的 bug, 怎么样的 data 会出现怎么样的 bug 呀... 这样才能对症下药呀.

meemee

原帖由 kbchong 于 21-5-2006 02:32 PM 发表
Dim i As Integer



For i = 1 To 5
Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) + Sheets("sheet1").Cells(i, 2)

Next i


打错啦！！:P
都说是新 ...

下一次，发问问题时尽量把问题解释清楚。。。单单说明key in英文就有bug。。。有谁知道那是什么bug??。。。出现在那里??。。。

我看到这个问题时，我就猜得到是什么error。。。不过。。。因为问题不清不楚。。。都不想帮了。。。

你试试看把 + 改成 & 。。。像这样：
[size=-1]Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) & Sheets("sheet1").Cells(i, 2)

[ 本帖最后由 meemee 于 22-5-2006 02:55 PM 编辑 ]

kbchong

Private Sub CommandButton1_Click()


Dim i As Integer


For i = 1 To 5

Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) + Sheets("sheet1").Cells(i, 2)




Next i

End Sub  

如果我打进英文字母就出现以下的东西：

run-time error '13'
type-mismatch

meemee

这样还差不多嘛。。。

Private Sub CommandButton1_Click()


Dim i As Integer


For i = 1 To 5

Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) & Sheets("sheet1").Cells(i, 2)




Next i

End Sub

kbchong

原帖由 meemee 于 24-5-2006 01:59 PM 发表
这样还差不多嘛。。。

Private Sub CommandButton1_Click()


Dim i As Integer


For i = 1 To 5

Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) & Sheets( ...

但是他得出来的答案是其他的。
譬如：  1＋1＝2

但根据你的方法，答案是 1＋1＝ 11

meemee

原帖由 kbchong 于 25-5-2006 07:33 PM 发表


但是他得出来的答案是其他的。
譬如：  1＋1＝2

但根据你的方法，答案是 1＋1＝ 11

vb的 + 有两个用途，一个是做加法。。。另一个是做字串联接(string concatenation)。。。我提供 & 是用来做字串联接。

字串联接就是，1＋1＝11。。。

哪你是想做加法还是字串联接？

如果，你想做加法，但是你又输入英文。。。当然有bug啦。。。

不然的话。。你是要阻止使用者输入英文，还是要做throw error的操作。。。

所谓的throw error，就是你的程序有error但是，你要忽略这个error。。。
如果要在vb里throw error，你可以用
On Error Resume Next
On Error GoTo

meemee

原帖由 牛妈妈 于 21-5-2006 11:12 AM 发表

如果你有难题，当然可以发问请教
但在这之前，你必须自己去尝试找答案(可以向谷哥老师先求救）
或者尝试把coding自己写出来
如果试了很多遍，都不行，在上来发问
如果对coding有疑问，
把你的coding放出来 ...

原帖由 goatstudio 于 21-5-2006 11:26 PM 发表


把问题解释好来吧... 你得告诉我们是怎么样的 bug, 怎么样的 data 会出现怎么样的 bug 呀... 这样才能对症下药呀.

你有什么问题，可以尽量放上，我们都很乐意帮你的。。。

不过，这里的人，有些有家庭，有些有自己的事要忙。。。所以也不能一一的帮你。。。
另外，问的问题需要够清楚，不然我们没办法对症下药，结果给错的解答。。。

kbchong

原帖由 meemee 于 26-5-2006 09:39 AM 发表




vb的 + 有两个用途，一个是做加法。。。另一个是做字串联接(string concatenation)。。。我提供 & 是用来做字串联接。

字串联接就是，1＋1＝11。。。

哪你是想做加法还是字串联接？ ...

请问 on error goto 怎样用呢？能给点例子吗？
on error resume next 我明白了，谢谢！

goatstudio

原帖由 kbchong 于 27-5-2006 02:00 AM 发表


请问 on error goto 怎样用呢？能给点例子吗？
on error resume next 我明白了，谢谢！

On Error Goto 很好用, 但应尽量少用, 因为会导致你的 code 乱七八糟.

例子:

Function DoSomething ()

  On Error GoTo ErrHandler1

    ' do something

  Exit Fucntion ' 一定要放这个, 否则 VB 不知道什么时候应该停止而接下来执行你的 ErrHandler1
  
  ErrHandler1:
  
    ' do something if error happen

End Function