ＳＱＬの窓 イラストAC フリー素材
<< 老舗の VB.net <=> C# 変換のオン… | TOP | DAZ3D : 相変わらず DAZ クオリティ酷い… >>

2015年01月15日

VB.net : コンソールに表示する位置を指定する / バッチビルドキット付き

 
今日、ノーマルのパソコン確認したら普通にフレームワーク入ってました。なので、どんな PC であれビルド可能だと思います。



大昔から、MS-DOS では指定位置に表示できていました。ただ、Windows になってそのような事をする必要が無くなったので廃れたような気もしますが、何か使い道があるかもしれません。

バッチファイルでこんなふうにします

@echo off
cls
locate 30,1
echo あいうえお
locate 30,2
echo かきくけこ
locate 30,3
echo さしすせそ
locate 30,4
echo たちつてと
pause





Module MyModule

' **************************
' 実行
' x座標,y座標 で指定
' **************************
Sub Main()

	' 文字列の配列
	Dim argv As String()

	Dim Pos As String()
	Dim x As Integer
	Dim y As Integer

	' コマンドラインの取得
	argv = System.Environment.GetCommandLineArgs()

	' 引数が一つの場合( 例: 5,10 )
	if argv.Length = 2 then

		Pos = (argv(1)).Split(",")
		' カンマが無い場合、y座標は 0
		if Pos.Length <> 2 then
			y = 0
		end if

		' 数値で無い場合、x座標は 0
		Try
			x = Integer.Parse(Pos(0))
		Catch
			x = 0
		End Try

		' 数値で無い場合、y座標は 0
		Try
			y = Integer.Parse(Pos(1))
		Catch
			y = 0
		End Try

		' 位置設定
		Console.CursorLeft = x
		Console.CursorTop = y

	end if

End Sub

End Module



関連する記事
【VB.netの最新記事】
posted by at 2015-01-15 13:00 | VB.net | このブログの読者になる | 更新情報をチェックする


Powered by Seesaa