▼ VB.net ビルド用コマンドプロンプトセット
Imports System
Imports System.Diagnostics
Module MyModule
' ******************
' * 実行
' ******************
Sub Main(ByVal CmdArgs() As String)
Dim startInfo As New ProcessStartInfo("cmd.exe")
startInfo.WindowStyle = ProcessWindowStyle.Maximized
Dim w As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
Dim cols As String = ""
if w >= 1024 then
cols = "120"
end if
if w >= 1152 then
cols = "135"
end if
if w >= 1280 then
cols = "150"
end if
Dim strArg As String = "/k mode con: cols=" & cols
Dim idx As Integer = 0
if CmdArgs.GetUpperBound(0) <> -1 then
strArg &= " & "
For idx = 0 to CmdArgs.GetUpperBound(0)
strArg &= " " & CmdArgs(idx)
Next
end if
startInfo.Arguments = strArg
Process.Start(startInfo)
End Sub
End Module
ビルドしたものを使うのが嫌な人は、フレームワークがインストールされておれば、簡単にビルドできます。 __buildPath.txt
; Framework 4.0 %windir%\Microsoft.NET\Framework\v4.0.30319 ; Framework 2.0 %windir%\Microsoft.NET\Framework\v2.0.50727 ;C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin ; 行先頭にセミコロンはコメントです。 ; 記述されて有効なパスは全て読み込まれます ; なにも無い行は無視します
VBC_BUILD.wsf
<JOB> <RESOURCE id="commandList"> <![CDATA[ mode con: cols=120 set PATH=$BIN;%PATH% prompt vb.net$G title Microsoft Framework アプリケーションのビルド ]]> </RESOURCE> <OBJECT id="WshShell" progid="WScript.Shell" /> <OBJECT id="Fso" progid="Scripting.FileSystemObject" /> <SCRIPT language=VBScript> ' *********************************************** ' 処理開始( コマンドラインからビルドする為のスクリプトです ) ' *********************************************** strPath = WScript.ScriptFullName Set obj = Fso.GetFile( strPath ) Set obj = obj.ParentFolder WshShell.CurrentDirectory = obj.Path Set objHandle = Fso.OpenTextFile( obj.Path & "\__buildPath.txt", 1 ) Do While not objHandle.AtEndOfStream sLine = objHandle.ReadLine if Left( sLine, 1 ) <> ";" and sLine <> "" then if sPath <> "" then sPath = sPath & ";" end if sPath = sPath & sLine end if Loop objHandle.Close aData = Split( GetInline( "commandList" ), vbCrLf ) strCommand = "cmd.exe /k " & aData(0) For I = 1 to Ubound( aData ) if instr( aData(I), "$BIN" ) > 0 then aData(I) = Replace( aData(I), "$BIN", sPath ) end if strCommand = strCommand & "&" & aData(I) Next Call WshShell.Run( strCommand, 3 ) ' *********************************************** ' 関数 ' *********************************************** Function GetInline( strName ) GetInline = RegTrim( getResource( strName ) ) & vbCrLf End Function Function RegTrim( strValue ) Dim regEx, str Set regEx = New RegExp regEx.IgnoreCase = True regEx.Pattern = "^[ \s]+" str = regEx.Replace( strValue, "" ) regEx.Pattern = "[ \s]+$" RegTrim = regEx.Replace( str, "" ) End Function </SCRIPT> </JOB>
関連する記事
タグ：VB.NET
▼ パラメータダイアログ
元々は、結構有名な作者が『Michael Spunt』で 2000 年に作成されたものです。
▼ 改造版のソースコード( UTF-8N で保存する必要があります )
何故か公式サイトにそのような注意事項は無く、
やってる人間にしか解らないですが、もとより結構テキトーなソフトウェアで、問題は多いけれど確かに簡単に 3D でキャラクタやシーンを創作できてしまうのもたしかです。
DAZ3Dでは、生き残る必要があるので最新テクノロジーを投入するのが最近の趣向らしいのですが、そうなるたびに結構過去のリソースが無駄になる傾向があり、なかなか移行は難しいと思っています。そりゃあ、英語がバリバリでだれかに助けてもらえる環境があり、いくらでもパーツを購入できる財力があれば別ですが、イラスト作品のベースとして考えた場合、あまりにも高性能になってもらっても時間がいくらあっても足りないだけです。
イラストに仕上げるソフトにしても自分は GIMP 使っているのでこれもマイナーではあり、自力でいろいろ頑張る必要があります。しかし、自分はプログラマなので他の人に出来ない事をできるという部分で人と違うものができればと頑張ってますが・・・・
素人のイラストって、まあ、誰も見てくんないのが現実ですね。かろうじて、
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
