Eclipseの起動時の「ワークスペース・ランチャー」ウィンドウで 「この選択をデフォルトとして使用し、今後この質問を表示しない」に
チェックをいれると、
次回起動時には「ワークスペース・ランチャー」は表示されなくなります。
※英語版の場合、チェックの表記は 「Use this as the default and do not ask again」になります。
手順(英語版Eclipseの場合)
①メニューから「Window」→ 「Preferences」を選択して、 「General」→「Start up and shutdown」→ 「Workspaces」を選択する。
②「Prompt for workspace on start up」をチェックして、 「Apply」ボタンをクリックすると、
次回起動時に「Workspace Lancher」ダイアログが
表示されるようになります。
(1)ASP.NET Web Form
.NET Framework1.0リリース時の頃から導入 (2)ASP.NET MVC
.NET Framework4以降に導入
5年前まではASP.NETといえば、ASP.NET Web Formが主流でしたが、
他のWeb系の言語(Java、PHP、Ruby等)と比べて異色な仕組みの為、
初めてASP.NETを学ぶ人にとってはとっつきにくいものがありました。
最近のWeb開発はMVCが主流になりつつあり、.NETもそれに合わせて ASP.NET MVCの仕組みが追加されました。
''' <summary>
''' テキストを出力する。
''' </summary>
''' <param name="strText">出力テキスト</param>
''' <param name="useBuffer">バッファの利用有無(※省略時はTrue)</param>
''' <remarks></remarks>
Public Sub WriteText( _
ByVal strText As String, _
Optional ByVal useBuffer As Boolean = True)
colTraget.Add strText
If useBuffer = True Then
'バッファ有効の場合は、
'一旦、バッファに溜めておき、
'特定サイズを越えてからファイル出力する。
If colTraget.Count > BUF_SIZE Then
Me.Flush
End If
Else
'バッファ無効の場合は、ファイルに出力
Me.Flush
End If
End Sub
''' <summary>
''' バッファーの内容をテキストに出力する。
''' </summary>
''' <remarks></remarks>
Public Sub Flush()
'ファイルが既に存在する場合は、全テキストを読込む。
'※追記書込みができないので、
' 既存テキストをメモリ上に取込んでから上書きする。
If objFs.FileExists(targetFilePath) Then
.LoadFromFile targetFilePath
.Position = .Size
End If
For i = 1 To colTraget.Count
.WriteText colTraget(i)
Next
''' <summary>
''' 出力ディレクトリを取得する。
''' </summary>
''' <returns>出力ディレクトリ(デフォルト:ThisWorkbook.path)</returns>
''' <remarks></remarks>
Private Function GetTargetDirectory() As String
If Me.TargetDirectory = "" Then
GetTargetDirectory = ThisWorkbook.path
Exit Function
End If
GetTargetDirectory = Me.TargetDirectory
End Function
''' <summary>
''' 出力ファイルパスを設定する。
''' </summary>
''' <param name="targetFilePath">出力ファイルパス</param>
''' <remarks></remarks>
Public Sub SetFilePath(ByVal targetFilePath As String)
With objFs
Me.TargetDirectory = _
.GetParentFolderName(targetFilePath)
Me.TargetFileName = _
objFs.GetFileName(targetFilePath)
End With
End Sub
''' <summary>
''' バッファーをクリアする。
''' </summary>
''' <remarks></remarks>
Public Sub ClearBuffer()
Dim i As Long
For i = colTraget.Count To 1 Step -1
colTraget.Remove i
Next
''' <summary>
''' ログを出力する。[Information]
''' </summary>
''' <param name="msg">出力メッセージ</param>
''' <param name="useBuffer">バッファの利用有無</param>
''' <remarks></remarks>
Public Sub OutputInfo( _
ByVal msg As String, _
Optional ByVal useBuffer As Boolean = False)
Call OutputLog("Informaton", msg, useBuffer)
End Sub
''' <summary>
''' ログを出力する。[Warning]
''' </summary>
''' <param name="msg">出力メッセージ</param>
''' <param name="useBuffer">バッファの利用有無</param>
''' <remarks></remarks>
Public Sub OutputWarn( _
ByVal msg As String, _
Optional ByVal useBuffer As Boolean = False)
Call OutputLog("Warning", msg, useBuffer)
End Sub
''' <summary>
''' ログを出力する。[Error]
''' </summary>
''' <param name="msg">出力メッセージ</param>
''' <param name="objErr">エラーオブジェクト</param>
''' <param name="useBuffer">バッファの利用有無</param>
''' <remarks></remarks>
Public Sub OutputError( _
ByVal msg As String, _
Optional ByVal objErr As ErrObject = Nothing, _
Optional ByVal useBuffer As Boolean = False)
Dim strMsg As String
strMsg = msg
If Not (objErr Is Nothing) Then
strMsg = strMsg & ":" & _
"Err.Number:[" & objErr.Number & "]," & _
"Err.Description:[" & objErr.Description & "]:"
End If
Call OutputLog("Error", strMsg, useBuffer)
End Sub
''' <summary>
''' ログを出力する。
''' </summary>
''' <param name="logType">ログ種別</param>
''' <param name="msg">出力メッセージ</param>
''' <param name="useBuffer">バッファの利用有無</param>
''' <remarks></remarks>
Private Sub OutputLog( _
ByVal logType As String, _
ByVal msg As String, _
ByVal useBuffer As Boolean)
''' <summary>
''' ログ出力ディレクトリを取得する。
''' </summary>
''' <returns>ログ出力ディレクトリ(デフォルト:ThisWorkbook.path)</returns>
''' <remarks></remarks>
Private Function GetLogDirectory() As String
If Me.LogDirectory = "" Then
GetLogDirectory = ThisWorkbook.Path
Exit Function
End If
GetLogDirectory = Me.LogDirectory
End Function
''' <summary>
''' バッファーをクリアする。
''' </summary>
''' <remarks></remarks>
Public Sub ClearLog()
Dim i As Long
For i = colTraget.Count To 1 Step -1
colTraget.Remove i
Next
'タイトル
Public Title As String
'初期ディレクトリ
Public InitialDirectory As String
'初期ファイル名
Public InitialFileName As String
'[ファイルの種類]の選択肢
Public Filter As String
'[ファイルの種類]の選択値
Public FilterIndex As Integer
'選択したファイル名
Private m_FileName As String
''' <summary>
''' Initializeイベント(コンストラクタ)
''' </summary>
''' <remarks></remarks>
Private Sub Class_Initialize()
Set objFs = CreateObject("Scripting.FileSystemObject")
Call Clear
End Sub
''' <summary>
''' Terminateイベント(デストラクタ)
''' </summary>
''' <remarks></remarks>
Private Sub Class_Terminate()
Set objFs = Nothing
End Sub
''' <summary>
''' 初期化
''' </summary>
''' <remarks></remarks>
Public Sub Clear()
''' <summary>
''' フィルターを設定
''' </summary>
''' <param name="filterArray">フィルター文字列</param>
''' <remarks></remarks>
Public Sub SetFilterList(ParamArray filterArray() As Variant)
Filter = Join(filterArray, ",")
End Sub
''' <summary>
''' 選択したファイル名を取得する。
''' </summary>
''' <remarks></remarks>
Public Function GetSelectedFileName() As String
GetSelectedFileName = m_FileName
End Function
''' <summary>
''' パスとファイル名を結合する。
''' </summary>
''' <param name="path">パス</param>
''' <param name="fileName">ファイル名</param>
''' <returns>結合後のフルパス</returns>
''' <remarks></remarks>
Private Function BuildPath( _
ByVal path As String, _
ByVal fileName As String) As String
BuildPath = objFs.BuildPath(path, fileName)
End Function
''' <summary>
''' ファイル保存ダイアログを開く
''' </summary>
''' <returns>vbOK:ファイル選択、vbCancel:キャンセル</returns>
''' <remarks></remarks>
Public Function ShowDialog() As VbMsgBoxResult
Dim resDlg As Variant
Dim initDir As String
'初期ディレクトリの存在チェック
' 存在しない場合は、Excelブックの配置ディレクトリに置き換える。
If objFs.FolderExists(Me.InitialDirectory) = False Then
Me.InitialDirectory = ThisWorkbook.path
End If
'FileSystemPbject
Private objFs As Object
'WScript.Shell
Private objWs As Object
'タイトル
Public Title As String
'初期ディレクトリ
Public InitialDirectory As String
'[ファイルの種類]の選択肢
Public Filter As String
'[ファイルの種類]の選択値
Public FilterIndex As Integer
'複数選択の可否
Public MultiSelect As Boolean
'選択したファイル名
Private m_FileNames() As String
''' <summary>
''' Initializeイベント(コンストラクタ)
''' </summary>
''' <remarks></remarks>
Private Sub Class_Initialize()
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objWs = CreateObject("WScript.Shell")
Call Clear
End Sub
''' <summary>
''' Terminateイベント(デストラクタ)
''' </summary>
''' <remarks></remarks>
Private Sub Class_Terminate()
Set objFs = Nothing
Set objWs = Nothing
End Sub
''' <summary>
''' 初期化
''' </summary>
''' <remarks></remarks>
Public Sub Clear()
''' <summary>
''' フィルターを設定
''' </summary>
''' <param name="filterArray">フィルター文字列</param>
''' <remarks></remarks>
Public Sub SetFilterList(ParamArray filterArray() As Variant)
Filter = Join(filterArray, ",")
End Sub
''' <summary>
''' 選択したファイル名を取得する。
''' </summary>
''' <remarks></remarks>
Public Function GetSelectedFileNames() As String()
GetSelectedFileNames = m_FileNames
End Function
''' <summary>
''' ファイル選択ダイアログを開く
''' </summary>
''' <returns>vbOK:ファイル選択、vbCancel:キャンセル</returns>
''' <remarks></remarks>
Public Function ShowDialog() As VbMsgBoxResult