关于vb中的class应用

Question

Private Sub Command1_Click()
  Dim cls AS New Class1‘声明一次
  cls.ADD Command1
End Sub
Private Sub Command2_Click()
  Dim cls AS New Class1’又声明一次，是不是这里的问题，我不懂vb中的类的问题
                        ‘提个思路
  cls.ADD Command2
End Sub

Answer 1

在Public Sub ADD(ByRef myValue As CommandButton)中
去掉循环，在Private Sub Command2_Click()加入cls.ADD Command1
不行请回复，ok请加分

Answer 2

我也想看看，给我发一下吧，谢谢先！[email protected]

Answer 3

方便了给个吧，你知道我的信箱吗:[email protected]

Answer 4

你在编译的时候，设置一下。令其参数为complie to pc-code。试试怎么样哦

Answer 5

不要这样的，我不要pcode的，就是成功也不行，谢谢你，我们明天讨论吧

Answer 6

你的问题已经解决!!!
源码如下：
1.class1
Public i As Integer
Public Sub ADD(ByRef myValue As CommandButton, myTime As Timer)  Do Until i = 999
  i = i + 1
      myValue.Caption = CStr(i)
      DoEvents
      If (i Mod 2) = 0 Then
           i = i + 1
           myValue.Caption = CStr(i)
           Exit Do
        End If
    Loop
    If i = 999 Then
        myTime.Enabled = False
        i = 0
    End If
End Sub2.form1
Dim cls1 As New Class1
Dim cls2 As New Class1
Private Sub Command1_Click()
    Timer1.Enabled = True
  
 End Sub
Private Sub Command2_Click()
   Timer2.Enabled = True
End SubPrivate Sub Timer1_Timer()
    
    cls1.ADD Command1, Timer1
    
    
End SubPrivate Sub Timer2_Timer()
    
    cls2.ADD Command2, Timer2
    
End Sub

Answer 7

这是唯一的方法了，问题的关键不是多线程，而是多线程的并行，可对于单个cpu来说，是不可能的。记住！一个cpu在一个时间里只能执行一个线程，多线程是相对的，单线程是绝对的。当一个线程执行的时候另个一只能挂起。所谓的多线程不过是可以轮流共享cpu资源罢。
另外我还有个问题，想问大家，如果我以上的思路是对的，也请你们给我些帮助（让我有热情好继续帮助别人 :) ）。我想知道在vb中怎样向sql server的数据库中输入图片，并且此时我sql server中的数据类型是什么？最好是两种以上的方法，越简单越好，拜托了！
我的mail是[email protected]

Answer 8

你的这种方法也有参考价值，我想知道为什么在我给你的代码中的doevents不能让渡控制权

Answer 9

你不要钻牛角尖了,doevents已经让渡控制权给其他程序了.你要仔细看我在上面写的那句话."问题的关键不是多线程，而是多线程的并行",
"记住！一个cpu在一个时间里只能执行一个线程，多线程是相对的，单线程是绝对的。"

Answer 10

向sql server的数据库中输入图片的码我有的,不过是VC的源码

Answer 11

叮当兄的思路很巧妙呀！佩服佩服。
关于图片在sql server中的存储，应该是 binary 或 image两种，存储方法，一是可以用picture控件绑定到数据库，在更换图片时加以保存（我只试过access）；另一种方法是不绑定，将图片作为一个长的二进制数据，用getchunk和appendchunk方法读写数据。