DoboWiki
Top
> .NETプログラミング研究/48 をテンプレートにして作成
.NETプログラミング研究/48 をテンプレートにして作成
開始行:
#title(.NETプログラミング研究 第48号)
#navi(.NETプログラミング研究)
#contents
*.NETプログラミング研究 第48号 [#ab0eb4fb]
**.NET質問箱 [#ebbfcc1e]
「.NET質問箱」では、「どぼん!のプログラミング掲示板」に...
-[[どぼん!のプログラミング掲示板>https://dobon.net/vb/bb...
***Windowsディレクトリを取得する [#y2ca3432]
#column(注意){{
この記事の最新版は「[[Windowsディレクトリを取得する>https...
}}
''【質問】''
Windowsディレクトリのパスを取得するにはどうしたらよいので...
''【回答】''
まず考えられるのは、環境変数で定義されている"windir"の値...
それぞれのメソッドを使ってWindowsディレクトリのパスを取得...
#code(vbnet){{
Dim windir As String
'GetEnvironmentVariableメソッドによりWindowsディレクトリ...
windir = System.Environment.GetEnvironmentVariable("windi...
Console.WriteLine(windir)
'ExpandEnvironmentVariablesメソッドによりWindowsディレク...
windir = System.Environment.ExpandEnvironmentVariables("%...
Console.WriteLine(windir)
}}
#code(csharp){{
string windir;
//GetEnvironmentVariableメソッドによりWindowsディレクトリ...
windir =
System.Environment.GetEnvironmentVariable("windir");
Console.WriteLine(windir);
//ExpandEnvironmentVariablesメソッドによりWindowsディレク...
windir =
System.Environment.ExpandEnvironmentVariables("%windi...
Console.WriteLine(windir);
}}
また、Windowsディレクトリはシステムディレクトリの親ディレ...
#code(vbnet){{
'システムディレクトリを取得
Dim sysdir As String = _
System.Environment.GetFolderPath( _
System.Environment.SpecialFolder.System)
'Windowsディレクトリを取得
Dim windir As String = _
System.IO.Path.GetDirectoryName(sysdir)
Console.WriteLine(windir)
}}
#code(csharp){{
//システムディレクトリを取得
string sysdir =
System.Environment.GetFolderPath(
System.Environment.SpecialFolder.System);
//Windowsディレクトリを取得
string windir =
System.IO.Path.GetDirectoryName(sysdir);
Console.WriteLine(windir);
}}
また、Win32 APIのGetWindowsDirectory関数を使用する方法も...
-[[GetWindowsDirectory>http://www.microsoft.com/japan/msd...
#code(vbnet){{
<DllImport("kernel32", CharSet:=CharSet.Auto, SetLastErro...
Private Shared Function GetWindowsDirectory( _
ByVal buffer As String, _
ByVal length As Integer) As Integer
End Function
'Windowsディレクトリを取得する
Public Shared Function GetWindowsDirectoryPath() As String
Dim buf As New String(" "c, 260)
Dim len As Integer = GetWindowsDirectory(buf, 260)
Return buf.Substring(0, len)
End Function
}}
#code(csharp){{
[DllImport("kernel32", CharSet=CharSet.Auto, SetLastError...
private static extern uint GetWindowsDirectory(
string buffer, uint length);
//Windowsディレクトリを取得する
public string GetWindowsDirectoryPath()
{
string buf = new string(' ', 260);
uint len = GetWindowsDirectory(buf, 260);
return buf.Substring(0, (int) len);
}
}}
裏技として、ニュースグループ「microsoft.public.dotnet.lan...
-[[Newsgroups:microsoft.public.dotnet.languages.vb | Subj...
この記事によると、Environment.SpecialFolder列挙体のメンバ...
#code(vbnet){{
Dim windir As String
'Windowsディレクトリを取得
windir = System.Environment.GetFolderPath( _
CType(&H24, System.Environment.SpecialFolder))
Console.WriteLine(windir)
}}
#code(csharp){{
string windir;
//Windowsディレクトリを取得
windir =
System.Environment.GetFolderPath(
(System.Environment.SpecialFolder) 0x24);
Console.WriteLine(windir);
}}
しかしこの方法は残念ながら私の環境では(.NET Framework 1.1...
○この記事の基になった掲示板のスレッド
-[[システムディレクトリーの取得 | 投稿者(敬称略) よしね, ...
***2つのフォルダの同期を行う [#afa63b4b]
#column(注意){{
この記事の最新版は「[[2つのフォルダの同期を行う>https://d...
}}
''【質問】''
フォルダをコピーする際に、コピー元のファイルがコピー先に...
''【回答】''
まずフォルダのコピーについては、私のサイトの「フォルダを...
-[[DOBON.NET .NET Tips - フォルダをコピーする>https://dob...
ここではこのコードに手を加えることにします。
まず、File.ExistsメソッドとFile.GetLastWriteTimeメソッド...
さらにミラーリングをするために、コピー先にあってコピー元...
このようにして作成された新たなCopyDirectoryメソッドは次の...
#code(vbnet){{
''' <summary>
''' ディレクトリをコピーする
''' </summary>
''' <param name="sourceDirName">コピーするディレクトリ</p...
''' <param name="destDirName">コピー先のディレクトリ</par...
''' <param name="newerOnly">新しいファイルのみコピーする<...
''' <param name="sync">sourceDirNameにないファイルを削除...
Public Shared Sub CopyDirectory(ByVal sourceDirName As St...
ByVal destDirName As String, ByVal newerOnly As B...
ByVal sync As Boolean)
'コピー先のディレクトリがないときは作る
If Not Directory.Exists(destDirName) Then
Directory.CreateDirectory(destDirName)
'属性もコピー
File.SetAttributes(destDirName, File.GetAttribute...
End If
'コピー先のディレクトリ名の末尾に"\"をつける
If destDirName.Chars((destDirName.Length - 1)) <> _
Path.DirectorySeparatorChar Then
destDirName = destDirName + Path.DirectorySeparat...
End If
'コピー元のディレクトリにあるファイルをコピー
Dim files As String() = Directory.GetFiles(sourceDirN...
Dim f As String
For Each f In files
Dim destFileName As String = destDirName + Path.G...
'コピー先にファイルが存在し、
'コピー元より更新日時が古い時はコピーする
If Not newerOnly Or _
Not File.Exists(destFileName) Or _
File.GetLastWriteTime(destFileName) < _
File.GetLastWriteTime(f) Then
File.Copy(f, destFileName, True)
End If
Next f
'コピー先にあってコピー元にないファイルを削除
If sync Then
DeleteNotExistFiles(sourceDirName, destDirName)
End If
'コピー元のディレクトリにあるディレクトリについて、
'再帰的に呼び出す
Dim dirs As String() = Directory.GetDirectories(sourc...
Dim dir As String
For Each dir In dirs
CopyDirectory(dir, destDirName + Path.GetFileName...
newerOnly, sync)
Next dir
End Sub
''' <summary>
''' destDirNameにありsourceDirNameにないファイルを削除する
''' </summary>
''' <param name="sourceDirName">比較先のフォルダ</param>
''' <param name="destDirName">比較もとのフォルダ</param>
Private Shared Sub DeleteNotExistFiles( _
ByVal sourceDirName As String, ByVal destDirName ...
'destDirNameにありsourceDirNameにないファイルを削除する
Dim files As String() = Directory.GetFiles(destDirName)
Dim f As String
For Each f In files
If Not File.Exists(Path.Combine( _
sourceDirName, Path.GetFileName(f))) Then
File.Delete(f)
End If
Next f
'destDirNameにありsourceDirNameにないフォルダを削除する
Dim folders As String() = Directory.GetDirectories(de...
Dim folder As String
For Each folder In folders
If Not Directory.Exists(Path.Combine( _
sourceDirName, Path.GetFileName(folder)))...
Directory.Delete(folder, True)
End If
Next folder
End Sub
}}
#code(csharp){{
/// <summary>
/// ディレクトリをコピーする
/// </summary>
/// <param name="sourceDirName">コピーするディレクトリ</p...
/// <param name="destDirName">コピー先のディレクトリ</par...
/// <param name="newerOnly">新しいファイルのみコピーする<...
/// <param name="sync">sourceDirNameにないファイルを削除...
public static void CopyDirectory(
string sourceDirName, string destDirName,
bool newerOnly, bool sync)
{
//コピー先のディレクトリがないときは作る
if (!Directory.Exists(destDirName))
{
Directory.CreateDirectory(destDirName);
//属性もコピー
File.SetAttributes(destDirName,
File.GetAttributes(sourceDirName));
}
//コピー先のディレクトリ名の末尾に"\"をつける
if (destDirName[destDirName.Length - 1] !=
Path.DirectorySeparatorChar)
destDirName = destDirName + Path.DirectorySeparat...
//コピー元のディレクトリにあるファイルをコピー
string[] files = Directory.GetFiles(sourceDirName);
foreach (string file in files)
{
string destFileName = destDirName + Path.GetFileN...
//コピー先にファイルが存在し、
//コピー元より更新日時が古い時はコピーする
if (!newerOnly ||
!File.Exists(destFileName) ||
File.GetLastWriteTime(destFileName) <
File.GetLastWriteTime(file))
{
File.Copy(file, destFileName, true);
}
}
//コピー先にあってコピー元にないファイルを削除
if (sync)
DeleteNotExistFiles(
sourceDirName, destDirName);
//コピー元のディレクトリにあるディレクトリについて、
//再帰的に呼び出す
string[] dirs = Directory.GetDirectories(sourceDirNam...
foreach (string dir in dirs)
CopyDirectory(dir, destDirName + Path.GetFileName...
newerOnly, sync);
}
/// <summary>
/// destDirNameにありsourceDirNameにないファイルを削除する
/// </summary>
/// <param name="sourceDirName">比較先のフォルダ</param>
/// <param name="destDirName">比較もとのフォルダ</param>
private static void DeleteNotExistFiles(
string sourceDirName, string destDirName)
{
//destDirNameにありsourceDirNameにないファイルを削除...
string[] files = Directory.GetFiles(destDirName);
foreach (string file in files)
{
if (!File.Exists(Path.Combine(
sourceDirName, Path.GetFileName(file))))
File.Delete(file);
}
//destDirNameにありsourceDirNameにないフォルダを削除...
string[] folders = Directory.GetDirectories(destDirNa...
foreach (string folder in folders)
{
if (!Directory.Exists(Path.Combine(
sourceDirName, Path.GetFileName(folder))))
Directory.Delete(folder, true);
}
}
}}
次に使用法を示します。フォルダ"C:\test1"内の更新されたフ...
#code(vbnet){{
CopyDirectory("C:\test1", "C:\test2", True, True)
}}
#code(csharp){{
CopyDirectory("C:\\test1", "C:\\test2", true, true);
}}
○この記事の基になった掲示板のスレッド
-[[更新されたファイルのみコピーするには? | 投稿者(敬称略...
***Visual Basic .NET, Visual C# Standard Editionでクラス...
#column(注意){{
この記事の最新版は「[[Visual Basic .NET, Visual C# Standa...
}}
''【質問】''
Visual Basic .NET Standard Edition(または、Visual C# Sta...
''【回答】''
(注:私はStandard Editionを使用したことがありませんので...
Visual Basic .NET Standard Edition(または、Visual C# Sta...
具体的な方法は、まずプロジェクトのプロジェクトファイル("*...
OutputType = "???"
("???"は"WinExe"や"Exe"など)となっているところを
OutputType = "Library"
と書き換えるだけです。
また、この書き換えを行うためのマクロが「Planet Source Cod...
-[[Create libraries (.dll) with VB.NET - Standard Edition...
このような書き換えが製品のライセンス等に違反しないかにつ...
○この記事の基になった掲示板のスレッド
-[[自作のコントロールを別のプロジェクトで使用するには? |...
***印刷プレビューダイアログの表示位置や表示倍率を指定する...
#column(注意){{
この記事の最新版は「[[印刷プレビューダイアログの表示位置...
}}
''【質問】''
PrintPreviewDialogクラスにより印刷プレビューダイアログを...
''【回答】''
PrintPreviewDialogクラスはFormクラスから派生していますの...
-[[フォームの位置と大きさを変更する>https://dobon.net/vb/...
また表示倍率は、PrintPreviewDialogで使われているPrintPrev...
表示位置(及びサイズ)と表示倍率を指定して印刷プレビュー...
-[[印刷プレビューを表示する>https://dobon.net/vb/dotnet/g...
#code(vbnet){{
'PrintDocumentオブジェクトの作成
Dim pd As New System.Drawing.Printing.PrintDocument
'PrintPageイベントハンドラの追加
AddHandler pd.PrintPage, AddressOf pd_PrintPage
'PrintPreviewDialogオブジェクトの作成
Dim ppd As New PrintPreviewDialog
'はじめの表示位置を指定する
ppd.StartPosition = FormStartPosition.Manual
ppd.SetBounds(0, 0, 400, 400)
'表示倍率を2倍にする
ppd.PrintPreviewControl.Zoom = 2
'プレビューするPrintDocumentを設定
ppd.Document = pd
'印刷プレビューダイアログを表示する
ppd.ShowDialog()
}}
#code(csharp){{
//PrintDocumentオブジェクトの作成
System.Drawing.Printing.PrintDocument pd =
new System.Drawing.Printing.PrintDocument();
//PrintPageイベントハンドラの追加
pd.PrintPage +=
new System.Drawing.Printing.PrintPageEventHandler(pd_...
//PrintPreviewDialogオブジェクトの作成
PrintPreviewDialog ppd = new PrintPreviewDialog();
//はじめの表示位置を指定する
ppd.StartPosition = FormStartPosition.Manual;
ppd.SetBounds(0, 0, 400, 400);
//表示倍率を2倍にする
ppd.PrintPreviewControl.Zoom = 2;
//プレビューするPrintDocumentを設定
ppd.Document = pd;
//印刷プレビューダイアログを表示する
ppd.ShowDialog();
}}
○この記事の基になった掲示板のスレッド
-[[印刷プレビュー画面のサイズについて | 投稿者(敬称略) り...
-[[標準の印刷プレビューダイアログについて | 投稿者(敬称略...
**コメント [#ze153180]
#comment
//これより下は編集しないでください
#pageinfo([[:Category/.NET]],2004-12-20 (月) 06:00:00,DOB...
終了行:
#title(.NETプログラミング研究 第48号)
#navi(.NETプログラミング研究)
#contents
*.NETプログラミング研究 第48号 [#ab0eb4fb]
**.NET質問箱 [#ebbfcc1e]
「.NET質問箱」では、「どぼん!のプログラミング掲示板」に...
-[[どぼん!のプログラミング掲示板>https://dobon.net/vb/bb...
***Windowsディレクトリを取得する [#y2ca3432]
#column(注意){{
この記事の最新版は「[[Windowsディレクトリを取得する>https...
}}
''【質問】''
Windowsディレクトリのパスを取得するにはどうしたらよいので...
''【回答】''
まず考えられるのは、環境変数で定義されている"windir"の値...
それぞれのメソッドを使ってWindowsディレクトリのパスを取得...
#code(vbnet){{
Dim windir As String
'GetEnvironmentVariableメソッドによりWindowsディレクトリ...
windir = System.Environment.GetEnvironmentVariable("windi...
Console.WriteLine(windir)
'ExpandEnvironmentVariablesメソッドによりWindowsディレク...
windir = System.Environment.ExpandEnvironmentVariables("%...
Console.WriteLine(windir)
}}
#code(csharp){{
string windir;
//GetEnvironmentVariableメソッドによりWindowsディレクトリ...
windir =
System.Environment.GetEnvironmentVariable("windir");
Console.WriteLine(windir);
//ExpandEnvironmentVariablesメソッドによりWindowsディレク...
windir =
System.Environment.ExpandEnvironmentVariables("%windi...
Console.WriteLine(windir);
}}
また、Windowsディレクトリはシステムディレクトリの親ディレ...
#code(vbnet){{
'システムディレクトリを取得
Dim sysdir As String = _
System.Environment.GetFolderPath( _
System.Environment.SpecialFolder.System)
'Windowsディレクトリを取得
Dim windir As String = _
System.IO.Path.GetDirectoryName(sysdir)
Console.WriteLine(windir)
}}
#code(csharp){{
//システムディレクトリを取得
string sysdir =
System.Environment.GetFolderPath(
System.Environment.SpecialFolder.System);
//Windowsディレクトリを取得
string windir =
System.IO.Path.GetDirectoryName(sysdir);
Console.WriteLine(windir);
}}
また、Win32 APIのGetWindowsDirectory関数を使用する方法も...
-[[GetWindowsDirectory>http://www.microsoft.com/japan/msd...
#code(vbnet){{
<DllImport("kernel32", CharSet:=CharSet.Auto, SetLastErro...
Private Shared Function GetWindowsDirectory( _
ByVal buffer As String, _
ByVal length As Integer) As Integer
End Function
'Windowsディレクトリを取得する
Public Shared Function GetWindowsDirectoryPath() As String
Dim buf As New String(" "c, 260)
Dim len As Integer = GetWindowsDirectory(buf, 260)
Return buf.Substring(0, len)
End Function
}}
#code(csharp){{
[DllImport("kernel32", CharSet=CharSet.Auto, SetLastError...
private static extern uint GetWindowsDirectory(
string buffer, uint length);
//Windowsディレクトリを取得する
public string GetWindowsDirectoryPath()
{
string buf = new string(' ', 260);
uint len = GetWindowsDirectory(buf, 260);
return buf.Substring(0, (int) len);
}
}}
裏技として、ニュースグループ「microsoft.public.dotnet.lan...
-[[Newsgroups:microsoft.public.dotnet.languages.vb | Subj...
この記事によると、Environment.SpecialFolder列挙体のメンバ...
#code(vbnet){{
Dim windir As String
'Windowsディレクトリを取得
windir = System.Environment.GetFolderPath( _
CType(&H24, System.Environment.SpecialFolder))
Console.WriteLine(windir)
}}
#code(csharp){{
string windir;
//Windowsディレクトリを取得
windir =
System.Environment.GetFolderPath(
(System.Environment.SpecialFolder) 0x24);
Console.WriteLine(windir);
}}
しかしこの方法は残念ながら私の環境では(.NET Framework 1.1...
○この記事の基になった掲示板のスレッド
-[[システムディレクトリーの取得 | 投稿者(敬称略) よしね, ...
***2つのフォルダの同期を行う [#afa63b4b]
#column(注意){{
この記事の最新版は「[[2つのフォルダの同期を行う>https://d...
}}
''【質問】''
フォルダをコピーする際に、コピー元のファイルがコピー先に...
''【回答】''
まずフォルダのコピーについては、私のサイトの「フォルダを...
-[[DOBON.NET .NET Tips - フォルダをコピーする>https://dob...
ここではこのコードに手を加えることにします。
まず、File.ExistsメソッドとFile.GetLastWriteTimeメソッド...
さらにミラーリングをするために、コピー先にあってコピー元...
このようにして作成された新たなCopyDirectoryメソッドは次の...
#code(vbnet){{
''' <summary>
''' ディレクトリをコピーする
''' </summary>
''' <param name="sourceDirName">コピーするディレクトリ</p...
''' <param name="destDirName">コピー先のディレクトリ</par...
''' <param name="newerOnly">新しいファイルのみコピーする<...
''' <param name="sync">sourceDirNameにないファイルを削除...
Public Shared Sub CopyDirectory(ByVal sourceDirName As St...
ByVal destDirName As String, ByVal newerOnly As B...
ByVal sync As Boolean)
'コピー先のディレクトリがないときは作る
If Not Directory.Exists(destDirName) Then
Directory.CreateDirectory(destDirName)
'属性もコピー
File.SetAttributes(destDirName, File.GetAttribute...
End If
'コピー先のディレクトリ名の末尾に"\"をつける
If destDirName.Chars((destDirName.Length - 1)) <> _
Path.DirectorySeparatorChar Then
destDirName = destDirName + Path.DirectorySeparat...
End If
'コピー元のディレクトリにあるファイルをコピー
Dim files As String() = Directory.GetFiles(sourceDirN...
Dim f As String
For Each f In files
Dim destFileName As String = destDirName + Path.G...
'コピー先にファイルが存在し、
'コピー元より更新日時が古い時はコピーする
If Not newerOnly Or _
Not File.Exists(destFileName) Or _
File.GetLastWriteTime(destFileName) < _
File.GetLastWriteTime(f) Then
File.Copy(f, destFileName, True)
End If
Next f
'コピー先にあってコピー元にないファイルを削除
If sync Then
DeleteNotExistFiles(sourceDirName, destDirName)
End If
'コピー元のディレクトリにあるディレクトリについて、
'再帰的に呼び出す
Dim dirs As String() = Directory.GetDirectories(sourc...
Dim dir As String
For Each dir In dirs
CopyDirectory(dir, destDirName + Path.GetFileName...
newerOnly, sync)
Next dir
End Sub
''' <summary>
''' destDirNameにありsourceDirNameにないファイルを削除する
''' </summary>
''' <param name="sourceDirName">比較先のフォルダ</param>
''' <param name="destDirName">比較もとのフォルダ</param>
Private Shared Sub DeleteNotExistFiles( _
ByVal sourceDirName As String, ByVal destDirName ...
'destDirNameにありsourceDirNameにないファイルを削除する
Dim files As String() = Directory.GetFiles(destDirName)
Dim f As String
For Each f In files
If Not File.Exists(Path.Combine( _
sourceDirName, Path.GetFileName(f))) Then
File.Delete(f)
End If
Next f
'destDirNameにありsourceDirNameにないフォルダを削除する
Dim folders As String() = Directory.GetDirectories(de...
Dim folder As String
For Each folder In folders
If Not Directory.Exists(Path.Combine( _
sourceDirName, Path.GetFileName(folder)))...
Directory.Delete(folder, True)
End If
Next folder
End Sub
}}
#code(csharp){{
/// <summary>
/// ディレクトリをコピーする
/// </summary>
/// <param name="sourceDirName">コピーするディレクトリ</p...
/// <param name="destDirName">コピー先のディレクトリ</par...
/// <param name="newerOnly">新しいファイルのみコピーする<...
/// <param name="sync">sourceDirNameにないファイルを削除...
public static void CopyDirectory(
string sourceDirName, string destDirName,
bool newerOnly, bool sync)
{
//コピー先のディレクトリがないときは作る
if (!Directory.Exists(destDirName))
{
Directory.CreateDirectory(destDirName);
//属性もコピー
File.SetAttributes(destDirName,
File.GetAttributes(sourceDirName));
}
//コピー先のディレクトリ名の末尾に"\"をつける
if (destDirName[destDirName.Length - 1] !=
Path.DirectorySeparatorChar)
destDirName = destDirName + Path.DirectorySeparat...
//コピー元のディレクトリにあるファイルをコピー
string[] files = Directory.GetFiles(sourceDirName);
foreach (string file in files)
{
string destFileName = destDirName + Path.GetFileN...
//コピー先にファイルが存在し、
//コピー元より更新日時が古い時はコピーする
if (!newerOnly ||
!File.Exists(destFileName) ||
File.GetLastWriteTime(destFileName) <
File.GetLastWriteTime(file))
{
File.Copy(file, destFileName, true);
}
}
//コピー先にあってコピー元にないファイルを削除
if (sync)
DeleteNotExistFiles(
sourceDirName, destDirName);
//コピー元のディレクトリにあるディレクトリについて、
//再帰的に呼び出す
string[] dirs = Directory.GetDirectories(sourceDirNam...
foreach (string dir in dirs)
CopyDirectory(dir, destDirName + Path.GetFileName...
newerOnly, sync);
}
/// <summary>
/// destDirNameにありsourceDirNameにないファイルを削除する
/// </summary>
/// <param name="sourceDirName">比較先のフォルダ</param>
/// <param name="destDirName">比較もとのフォルダ</param>
private static void DeleteNotExistFiles(
string sourceDirName, string destDirName)
{
//destDirNameにありsourceDirNameにないファイルを削除...
string[] files = Directory.GetFiles(destDirName);
foreach (string file in files)
{
if (!File.Exists(Path.Combine(
sourceDirName, Path.GetFileName(file))))
File.Delete(file);
}
//destDirNameにありsourceDirNameにないフォルダを削除...
string[] folders = Directory.GetDirectories(destDirNa...
foreach (string folder in folders)
{
if (!Directory.Exists(Path.Combine(
sourceDirName, Path.GetFileName(folder))))
Directory.Delete(folder, true);
}
}
}}
次に使用法を示します。フォルダ"C:\test1"内の更新されたフ...
#code(vbnet){{
CopyDirectory("C:\test1", "C:\test2", True, True)
}}
#code(csharp){{
CopyDirectory("C:\\test1", "C:\\test2", true, true);
}}
○この記事の基になった掲示板のスレッド
-[[更新されたファイルのみコピーするには? | 投稿者(敬称略...
***Visual Basic .NET, Visual C# Standard Editionでクラス...
#column(注意){{
この記事の最新版は「[[Visual Basic .NET, Visual C# Standa...
}}
''【質問】''
Visual Basic .NET Standard Edition(または、Visual C# Sta...
''【回答】''
(注:私はStandard Editionを使用したことがありませんので...
Visual Basic .NET Standard Edition(または、Visual C# Sta...
具体的な方法は、まずプロジェクトのプロジェクトファイル("*...
OutputType = "???"
("???"は"WinExe"や"Exe"など)となっているところを
OutputType = "Library"
と書き換えるだけです。
また、この書き換えを行うためのマクロが「Planet Source Cod...
-[[Create libraries (.dll) with VB.NET - Standard Edition...
このような書き換えが製品のライセンス等に違反しないかにつ...
○この記事の基になった掲示板のスレッド
-[[自作のコントロールを別のプロジェクトで使用するには? |...
***印刷プレビューダイアログの表示位置や表示倍率を指定する...
#column(注意){{
この記事の最新版は「[[印刷プレビューダイアログの表示位置...
}}
''【質問】''
PrintPreviewDialogクラスにより印刷プレビューダイアログを...
''【回答】''
PrintPreviewDialogクラスはFormクラスから派生していますの...
-[[フォームの位置と大きさを変更する>https://dobon.net/vb/...
また表示倍率は、PrintPreviewDialogで使われているPrintPrev...
表示位置(及びサイズ)と表示倍率を指定して印刷プレビュー...
-[[印刷プレビューを表示する>https://dobon.net/vb/dotnet/g...
#code(vbnet){{
'PrintDocumentオブジェクトの作成
Dim pd As New System.Drawing.Printing.PrintDocument
'PrintPageイベントハンドラの追加
AddHandler pd.PrintPage, AddressOf pd_PrintPage
'PrintPreviewDialogオブジェクトの作成
Dim ppd As New PrintPreviewDialog
'はじめの表示位置を指定する
ppd.StartPosition = FormStartPosition.Manual
ppd.SetBounds(0, 0, 400, 400)
'表示倍率を2倍にする
ppd.PrintPreviewControl.Zoom = 2
'プレビューするPrintDocumentを設定
ppd.Document = pd
'印刷プレビューダイアログを表示する
ppd.ShowDialog()
}}
#code(csharp){{
//PrintDocumentオブジェクトの作成
System.Drawing.Printing.PrintDocument pd =
new System.Drawing.Printing.PrintDocument();
//PrintPageイベントハンドラの追加
pd.PrintPage +=
new System.Drawing.Printing.PrintPageEventHandler(pd_...
//PrintPreviewDialogオブジェクトの作成
PrintPreviewDialog ppd = new PrintPreviewDialog();
//はじめの表示位置を指定する
ppd.StartPosition = FormStartPosition.Manual;
ppd.SetBounds(0, 0, 400, 400);
//表示倍率を2倍にする
ppd.PrintPreviewControl.Zoom = 2;
//プレビューするPrintDocumentを設定
ppd.Document = pd;
//印刷プレビューダイアログを表示する
ppd.ShowDialog();
}}
○この記事の基になった掲示板のスレッド
-[[印刷プレビュー画面のサイズについて | 投稿者(敬称略) り...
-[[標準の印刷プレビューダイアログについて | 投稿者(敬称略...
**コメント [#ze153180]
#comment
//これより下は編集しないでください
#pageinfo([[:Category/.NET]],2004-12-20 (月) 06:00:00,DOB...
ページ名:
▲
▼
[
トップ
] [
新規
|
子ページ作成
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]