コンソールの割り当て(VB)

キーワード:

AllocConsole, CreateFile, WriteFile, Sleep, CloseHandle, FreeConsole

サンプルコード:

Private Sub DoAllocCon()
	Dim hFile As Long
	Dim i As Long
	Dim S As String
	Dim WriteNum As Long

	'コンソールの割り当て
	AllocConsole

	'コンソールバッファのオープン
	hFile = CreateFile("CONOUT$", GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)

	'1秒に1回メッセージを表示
	For i = 1 To 5
		S = "count:" & i & vbCrLf
		WriteFile hFile, S, lstrlen(S), WriteNum, 0
		Sleep 1000
	Next

	'コンソールバッファのクローズ
	CloseHandle hFile

	'コンソールの開放
	FreeConsole

End Sub

(original text:1998/12/24 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。