投稿日	： 2003/06/06(Fri) 19:54
投稿者	： Lantern
Ｅメール	：
ＵＲＬ	：
タイトル	： VB6でのスレッド作成について

いつも参考にさせていただいています。

VB６でスレッドの作成ができるのか試しています。
デバック環境では一応の動作をするのですが、
コンパイル（P-Code,ネイティブコード共）すると
メモリアクセスのエラーになります。

VBでのスレッド作成は不可能なのでしょうか？
環境：Win2000SP2 VB6.0SP5

試しているソースです。

'(Form1)
Option Explicit

Private Sub Command1_Click()

    Call Module1.CreateProcThread

End Sub

Private Sub Command2_Click()
    
    Call Module1.DeleteProcThread
    
End Sub

'(Module1)
Option Explicit
'=================================================
'=  WinAPI定義
'=================================================
Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
'構造体にNULLを遅れないのでLong型の0を送る
'Private Declare Function CreateThread Lib "kernel32" _
    (lpThreadAttributes As SECURITY_ATTRIBUTES, _
     ByVal dwStackSize As Long, _
     lpStartAddress As Long, _
     lpParameter As Any, _
     ByVal dwCreationFlags As Long, _
     lpThreadId As Long) As Long
Private Declare Function CreateThread Lib "kernel32.dll" _
    (ByVal lpThreadAttributes As Long, _
     ByVal dwStackSize As Long, _
     ByVal lpStartAddress As Long, _
     ByVal lpParameter As Long, _
     ByVal dwCreationFlags As Long, _
     lpThreadId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" _
    (ByVal hObject As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32.dll" _
    (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const WAIT_OBJECT_0  As Long = 0
Private hThread1 As Long    'スレッド１ハンドル
Private hThread2 As Long    'スレッド２ハンドル
Private dwThreadID1 As Long '
Private dwThreadID2 As Long '
Private bFlag As Boolean    'スレッド起動中のフラグ
'=================================================
'=
'=　関数　：CreateProcThread
'=　機能　：スレッドの作成
'=
'=================================================
Public Sub CreateProcThread()

    bFlag = True
    hThread1& = CreateThread(0&, 0&, AddressOf ProcThread1, 0&, 0&, dwT
hreadID1&)
    hThread2& = CreateThread(0&, 0&, AddressOf ProcThread2, 0&, 0&, dwT
hreadID2&)
    
End Sub
'=================================================
'=
'=　関数　：DeleteProcThread
'=　機能　：スレッドの破棄
'=
'=================================================
Public Sub DeleteProcThread()

    bFlag = False
    Call CloseHandle(hThread1&)
    Call CloseHandle(hThread2&)
    
End Sub
'=================================================
'=
'=　関数　：ProcThread1
'=　機能　：スレッド１
'=
'=================================================
Public Sub ProcThread1()

    Dim sx As Single, sy As Single
    Dim px As Single, py As Single
    Dim pr As Long, pg As Long, pb As Long
    
    sx! = Form1.Picture1.ScaleWidth
    sy! = Form1.Picture1.ScaleHeight
    Do
        px! = Rnd() * sx!
        py! = Rnd() * sy!
        pr& = Rnd() * 256
        pg& = Rnd() * 256
        pb& = Rnd() * 256
        Form1.Picture1.PSet (px!, py!), RGB(pr&, pg&, pb&)
    Loop While bFlag
    
End Sub
'=================================================
'=
'=　関数　：ProcThread2
'=　機能　：スレッド２
'=
'=================================================
Public Sub ProcThread2()

    Dim sx As Single, sy As Single
    Dim px1 As Single, py1 As Single
    Dim px2 As Single, py2 As Single
    Dim pr As Long, pg As Long, pb As Long

    sx! = Form1.Picture2.ScaleWidth
    sy! = Form1.Picture2.ScaleHeight
    Do
        px1! = Rnd() * sx!
        py1! = Rnd() * sy!
        px2! = Rnd() * sx!
        py2! = Rnd() * sy!
        pr& = Rnd() * 256
        pg& = Rnd() * 256
        pb& = Rnd() * 256
        Form1.Picture2.Line (px1!, py1!)-(px2!, py2!), RGB(pr&, pg&, pb&), B
    Loop While bFlag
    
End Sub

★ - VB6でのスレッド作成について - Lantern 06/06-19:54No.4297
• Re: VB6でのスレッド作成について - 花ちゃん 06/06-22:58 No.4302
  • Re^2: VB6でのスレッド作成について - Lantern 06/07-01:18 No.4303
    • Re: VB6でのスレッド作成について - K.J.K. 06/09-10:24 No.4312
      • Re^2: VB6でのスレッド作成について - Lantern 06/09-11:52 No.4313