SQLの窓

2009年12月03日


VB.net : アプリケーションディレクトリ

概要
exe が存在するディレクトリです。通常、設定ファイル等を開く時に必要になります。
上のほうは、VB として用意されているもので、下は同じものですが
Framework として取り出しています
' VB 的 アプリケーションディレクトリ
Console.WriteLine(My.Application.Info.DirectoryPath)

' Freamework 的 アプリケーションディレクトリ
Dim thisA As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim info As Microsoft.VisualBasic.ApplicationServices.AssemblyInfo = _
 New Microsoft.VisualBasic.ApplicationServices.AssemblyInfo(thisA)
Console.WriteLine(info.DirectoryPath)

以下は C# で書いたものです
// Freamework 的 アプリケーションディレクトリ 
System.Reflection.Assembly thisA = System.Reflection.Assembly.GetExecutingAssembly(); 
Microsoft.VisualBasic.ApplicationServices.AssemblyInfo info = 
	new Microsoft.VisualBasic.ApplicationServices.AssemblyInfo(thisA); 
System.Console.WriteLine(info.DirectoryPath); 

// ビルド例
// csc /r:%windir%\Microsoft.NET\Framework\v2.0.50727\Microsoft.VisualBasic.dll info.cs



関連する記事


タグ:VB.NET
posted by lightbox at 2009-12-03 05:52 | VB.NET : ベーシック | このブログの読者になる | 更新情報をチェックする

2009年12月01日


VB.NET : バッチファイル用ファイルの参照ダイアログ

2009/12/01 更新
1) OpenFileDialog.exe をビルドしてパッケージ化しました
2) サンプルパッチファイルを付加しています

ブラウザでダウンロード
概要
コマンドプロントベースでファイルの参照ダイアログを開き、標準出力に出力すると、
バッチファイルでファイルのパスを取り出す事が出来ます。
Imports System.Windows.Forms

Module Module1

	Sub Main()

		Dim ofd As OpenFileDialog = New OpenFileDialog()

		If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then

			Console.Out.WriteLine(ofd.FileName)

		Else

			Console.Out.WriteLine("")

		End If

	End Sub

End Module

@echo off
REM ここでセットされた環境変数は、このバッチファイル内でのみ有効
setlocal

REM 1回目のメモ帳起動
REM 選択してない場合は For 内には入らないので if の
REM 真の実行文は何でも良い
REM "delims=" は、区切り文字をデフォルトのスペースから無しに変更
For /F "delims=" %%i in ('OpenFileDialog.exe') do (
	if "%%i"=="" ( pause ) else ( notepad.exe "%%i" )
)

REM 2回目のメモ帳起動
REM 選択した場合のみ処理される( 前回と同じ )
For /F "delims=" %%i in ('OpenFileDialog.exe') do (
	if not "%%i"=="" ( notepad.exe "%%i" )
)

REM ファイル参照の結果を一旦変数にセット
For /F "delims=" %%i in ('OpenFileDialog.exe') do (
	set PATH01=%%i
)

REM ファイルが選択されなかった場合の処理は終了
if "%PATH01%"=="" ( goto ExitAction )

REM 3回目のメモ帳起動
notepad "%PATH01%"

REM 終了
:ExitAction
echo "%PATH01%"

関連するページ
Framework2.0 VB.NET バッチビルドセット


posted by lightbox at 2009-12-01 16:14 | VB.NET : ベーシック | このブログの読者になる | 更新情報をチェックする
Seesaa の各ページの表示について
Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定> 詳細設定> ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。

Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。

また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。

※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです

対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。


※ エキスパートモードで表示しています

アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります

<% if:page_name eq 'archive' -%>
アーカイブページでのみ表示される内容
<% /if %>

<% if:page_name eq 'category' -%>
カテゴリページでのみ表示される内容
<% /if %>

<% if:page_name eq 'tag' -%>
タグページでのみ表示される内容
<% /if %>
この記述は、以下の場所で使用します
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり