お世話になります。
以下のような構造の場合
Sub1内の処理1が完了してから
Sub2内の処理2が始まることは保証されるのでしょうか?
また、Declareで定義したDLL呼出をCALLする場合、
CALLしたDLLの処理が終了するまでVBは待つのでしょうか?
基本的なところと思うのですが、開発したプログラムが不安なので、もしやと思い質問しました。
Sub Main()
Sub1
Sub2
End
End Sub
Sub Sub1()
処理1
End Sub
Sub Sub2()
処理2
End Sub
現在、スクリーンキーボードを作っています。それに、予測機能も付けたいと思っています。今取り組んでいるプログラムは、テキストファイルにある程度の単語を入れておき、最初に"あ"と入力したら変数aに格納し、ピクチャーボックスに"あ"から始まる単語を表示します。次に"い"と入力したら、変数aは"あい"となるようにし、テキストファイルから"あい"から始まる単語を検索し表示するようにしたいと思っています。
keyの呼出は下のプログラムで行っています↓↓
private Sub Command1_Click()
Call sSetSendKeys(vbKeyI, 0, 0)
endif
予測機能のプログラムとしては、
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i As Integer:Dim result As Integer
a = a & Chr(KeyAscii)
Picture1.Print a
For i = 0 To 8
result = t(i) Like (a & "*")
If result = True Then
Picture1.Print t(i)
End If
Next i
End Sub
というプログラムを応用して作っていこうと考えています。教えていただきたいのは「Chr(Ascii)」の部分をvbkeyを使いたいのですが、「vbkeyA」と入れてみたら、値65が出てしまい、どのようなプログラムにすれば"あ"を表示させることが出来るでしょうか?よろしくお願いします。
現在、スクリーンキーボードを作っています。それに、予測機能も付けたいと思っています。今取り組んでいるプログラムは、テキストファイルにある程度の単語を入れておき、最初に"あ"と入力したら変数aに格納し、ピクチャーボックスに"あ"から始まる単語を表示します。次に"い"と入力したら、変数aは"あい"となるようにし、テキストファイルから"あい"から始まる単語を検索し表示するようにしたいと思っています。
keyの呼出は下のプログラムで行っています↓↓
private Sub Command1_Click()
Call sSetSendKeys(vbKeyI, 0, 0)
endif
予測機能のプログラムとしては、
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i As Integer:Dim result As Integer
a = a & Chr(KeyAscii)
Picture1.Print a
For i = 0 To 8
result = t(i) Like (a & "*")
If result = True Then
Picture1.Print t(i)
End If
Next i
End Sub
というプログラムを応用して作っていこうと考えています。教えていただきたいのは「Chr(Ascii)」の部分をvbkeyを使いたいのですが、「vbkeyA」と入れてみたら、値65が出てしまい、どのようなプログラムにすれば"あ"を表示させることが出来るでしょうか?よろしくお願いします。
現在、スクリーンキーボードを作っています。それに、予測機能も付けたいと思っています。今取り組んでいるプログラムは、テキストファイルにある程度の単語を入れておき、最初に"あ"と入力したら変数aに格納し、ピクチャーボックスに"あ"から始まる単語を表示します。次に"い"と入力したら、変数aは"あい"となるようにし、テキストファイルから"あい"から始まる単語を検索し表示するようにしたいと思っています。
keyの呼出は下のプログラムで行っています↓↓
private Sub Command1_Click()
Call sSetSendKeys(vbKeyI, 0, 0)
endif
予測機能のプログラムとしては、
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i As Integer:Dim result As Integer
a = a & Chr(KeyAscii)
Picture1.Print a
For i = 0 To 8
result = t(i) Like (a & "*")
If result = True Then
Picture1.Print t(i)
End If
Next i
End Sub
というプログラムを応用して作っていこうと考えています。教えていただきたいのは「Chr(Ascii)」の部分をvbkeyを使いたいのですが、「vbkeyA」と入れてみたら、値65が出てしまい、どのようなプログラムにすれば"あ"を表示させることが出来るでしょうか?よろしくお願いします。