0

vb6でそれを可能にする方法。たとえば、Sub Action（）とBtn1_Click（）で結果を表示したいのですが、Form_Load（）で必要なすべてのオブジェクトと文字列を設定します。

Private Sub Form_Load()
Dim ObjFso As Object
Dim TheText As String
Set ObjFso = CreateObject("Scripting.FileSystemObject")
TheText = "Hello"
Call Action
End Sub

Public Sub Action()
ObjFso.CreateTextFile("Test.txt").WriteLine(TheText)
MsgBox TheText, 0, "This is the text"
End Sub

Private Sub Btn1_Click()
If ObjFso.OpenTextFile("Test.Txt",1).ReadLine = TheText Then
MsgBox "Success", 64, "Ok"
Else
MsgBox "Fail", 16, "Ouch"
End If
End Sub
  • スクリプトが「Hello」テキストを含むテキストファイル「Test.txt」を作成する可能性はありますか？
  • 「こんにちは」のテキストでMsgBoxを表示することは可能ですか？

  • Btn1を押すと、「成功」メッセージボックスが表示されますか？

  • 注：私はvb6の引数について知らないので、これを尋ねます。VBSの引数は知っているが、VB6Call TheSub(arguments)の引数は知らないので、この質問を閉じないでください:)

4

1 に答える 1

3

他の現代語との違いはありません。

フォームコードの先頭でグローバルにデカラレDim TheText As Stringすることができるので、フォームの任意のサブまたは関数でアクセスできます。

またCallAction(theText)、パラメータとして使用するようにCallActionを呼び出すこともできます。CallActionサブは次のようになります。

public sub CallAction(text as String)
msgbox text
end sub
于 2012-12-06T10:11:55.880 に答える