VB/C#

特殊フォルダパスの比較

nakaP — Wed, 16 Feb 2011 14:52:00 GMT

久しぶりの更新です。

System.Environment.GetFolderPathで取得できる特殊フォルダパスの、Windows XPとWindows 7での比較を表にしました。

誰かの役に立てれば。

	Windows XP	Windows 7
CommonApplicationData	C:\Documents and Settings\All Users\Application Data	C:\ProgramData
CommonDesktopDirectory	C:\Documents and Settings\All Users\デスクトップ	C:\Users\Public\Desktop
CommonDocuments	C:\Documents and Settings\All Users\Documents	C:\Users\Public\Documents
CommonProgramFiles	C:\Program Files\Common Files	C:\Program Files\Common Files
CommonPrograms	C:\Documents and Settings\All Users\スタートメニュー\プログラム	C:\ProgramData\Microsoft\Windows\Start Menu\Programs
CommonStartMenu	C:\Documents and Settings\All Users\スタートメニュー	C:\ProgramData\Microsoft\Windows\Start Menu
CommonStartup	C:\Documents and Settings\All Users\スタートメニュー\プログラム\スタートアップ	C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup

ApplicationData	C:\Documents and Settings\(User)\Application Data	C:\Users\xxx\AppData\Roaming
Desktop	C:\Documents and Settings\(User)\デスクトップ	C:\Users\(User)\Desktop
MyDocuments	C:\Documents and Settings\(User)\My Documents	C:\Users\(User)\Documents
ProgramFiles	C:\Program Files	C:\Program Files
Programs	C:\Documents and Settings\(User)\スタートメニュー\プログラム	C:\Users\(User)\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
StartMenu	C:\Documents and Settings\(User)\スタートメニュー	C:\Users\(User)\AppData\Roaming\Microsoft\Windows\Start Menu
Startup	C:\Documents and Settings\(User)\スタートメニュー\プログラム\スタートアップ	C:\Users\(User)\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup
System	C:\Windows\System32	C:\Windows\System32
SystemX86	C:\Windows\System32	C:\Windows\System32
Windows	C:\Windows	C:\Windows

mからnの整数の総和を求める

nakaP — Sat, 10 Oct 2009 01:25:00 GMT

完全に乗り遅れてるけど気にしないでやってみる。

using System;
namespace ConsoleApplication1 {
    class Program {
        static void Main(string[] args) {
            int m = 1;
            int n = 10;
            Console.WriteLine("{0} to {1} the total is {2}", m, n, AddNumber(1, 10));
            Console.ReadKey();
        }
        static int AddNumber(int x, int y) {
            return (x < y ? x + AddNumber(x + 1, y) : y);
        }
    }
}

何か無駄が多いと思うけど今の自分の力じゃこんなもん。

.NET Framework 移行センター

nakaP — Tue, 25 Aug 2009 12:35:00 GMT

[Microsoft].NET Framework 移行センター

といっても他言語から.NET Frameworkへの移行ではなく、Windows 7に対応するための

1.0/1.1から3.5などへの移行だそうです。

速いところはもう準備に取り掛かってるんでしょうか。

.NET FrameworkのWindows OS対応表なんかもあります。

ちなみに、VB6からの移行はVB マイグレーションセンターを参考にしてください。

[Microsoft]VB マイグレーションセンター

代入演算子

nakaP — Thu, 20 Aug 2009 12:57:00 GMT

最近コードを書くどころか見ることも少なくなってます。

もうね、色々と忘れていってますｗ

で、リハビリ兼勉強として興味があるものをR.田中一郎さんが書いていたので考えてみました。

R.Tanaka.Ichiro's Blog：代入演算子の不思議

すでにコメント欄で回答が出ているようですので違う表現で。

x.A = x.B = x.C = 0;

MSDNによると代入演算子は右から左に実行されていくので

x.A = (x.B = (x.C = 0;))

となります。

ここが重要なのですが、x.Bにはx.C = 0のx.Cが代入されるわけではなく、0の方が代入されるのです。

つまり、上の式を分解して書くと以下のようになります。

x.C = 0
x.B = 0
x.A = 0

けして下のようになるわけではないですね。

x.C = 0
x.B = x.C
x.A = x.B

少しだけ賢くなれました。

[VB]最大化、最小化ボタンを無効にする

nakaP — Sat, 23 May 2009 00:19:00 GMT

某羽の人が困っていたので、少し調べてたらこんなのが出来上がった。

Public Class Form1
    'Windows Formで、最大化ボタン、最小化ボタンが押されても効かないようにする。
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_SYSCOMMAND As Integer = &H112
        Const SC_MINIMIZE As Integer = &HF020
        Const SC_MAXIMIZE As Integer = &HF030

        If m.Msg = WM_SYSCOMMAND Then
            Select Case m.WParam.ToInt32()
            Select Case &HFFF0 And m.WParam.ToInt32()
            Case SC_MINIMIZE, SC_MAXIMIZE
                Return
            End Select
        End If
        MyBase.WndProc(m)
    End Sub
End Class

まあ、こんな手間かけるなら、Maximize、Minimizeプロパティを操作するほうがいいと思う。

[追記]

タイトルを変更した。

調べていくと、最大化ボタンと最小化ボタンの両方をグレー表示することが出来ないんじゃないかと思えてきた。

[変更(2009/6/21)]

コメントいただいた情報よりソースを一部変更。

こちらが元の情報。

http://msdn.microsoft.com/en-us/library/ms646360(VS.85).aspx

In WM_SYSCOMMAND messages, the four low-order bits of the wParam parameter are used internally by the system. To obtain the correct result when testing the value of wParam, an application must combine the value 0xFFF0 with the wParam value by using the bitwise AND operator.

--Google訳

WM_SYSCOMMANDメッセージでは、 wParamパラメータの下位4ビットは内部では、システムで使用されています。正しい結果を得るときにwParamの値をテストするには、アプリケーションがwParam値で、ビットごとのAND演算子を使用して、値を0xFFF0組み合わせる必要があります。

Microsoft Win32 と Microsoft .NET Framework API との対応

nakaP — Sat, 20 Dec 2008 00:56:00 GMT

ネタ元：[＠ＩＴ]「Windows API呼び出しにおける NULL指定について」のよねKENさんの回答

その元：[Microsoft]Microsoft Win32 と Microsoft .NET Framework API との対応

このようなものがあったんですねー。

１．１と書かれてますけど２．０以降も対応しているものもあります。

なので、先日のコードで使用したDeviceCapabilitiesを探してみたらあったのでまた書いてみました。

Imports System
Imports System.Drawing.Printing

Module PaperList2
    Sub Main()
        Dim doc As PrintDocument = New PrintDocument()
        doc.PrinterSettings.PrinterName = "Printer Name"
        For Each size As PaperSize In doc.PrinterSettings.PaperSizes
            Console.WriteLine("Paper Name = {0}, {1}", size.PaperName, size.RawKind)
        Next
        Console.ReadKey()
    End Sub
End Module

・・・できるじゃないかorz

便利な世の中になったものです。

情報提供してくれたよねKENさんに多謝。

[VB.NET]プリンタの用紙サイズの番号の取得（２）

nakaP — Wed, 17 Dec 2008 00:21:00 GMT

[VB.NET]プリンタの用紙サイズの番号の取得

前回のコメントでUnicode版という宿題をいただいたので作ってみました。

なかなか倒せませんでしたが(^^;

DeviceCapabilitiesW関数でpOutputへの値をUnicodeで取得するために、DllImportAttribute属性を使うようにしました。

基本は前回と同じ動作となってます。

Imports System
Imports System.Text
Imports System.Runtime.InteropServices

Module Module1
    <DllImport("WINSPOOL.DRV", CharSet:=CharSet.Unicode, EntryPoint:="DeviceCapabilitiesW")> _
    Private Function DeviceCapabilitiesNames(ByVal pDevice As String, _
                                        ByVal pPort As String, _
                                        ByVal fwCapability As Integer, _
                                        ByVal pOutput As String, _
                                        ByVal pDevMode As IntPtr) As Integer
    End Function
    <DllImport("WINSPOOL.DRV", CharSet:=CharSet.Unicode, EntryPoint:="DeviceCapabilitiesW")> _
    Private Function DeviceCapabilitiesPapers(ByVal pDevice As String, _
                                        ByVal pPort As String, _
                                        ByVal fwCapability As Integer, _
                                        ByVal pOutput As Short(), _
                                        ByVal pDevMode As IntPtr) As Integer
    End Function
    Private Const DC_PAPERS As Integer = 2
    Private Const DC_PAPERNAMES As Integer = 16

    Sub Main()
        Dim PrinterName As String = "EPSON PM-G720 (M)"
        Dim PortName As String = "USB001"
        Dim paperName As String = "A3"
        Dim no As Short = GetPaperNumber(PrinterName, PortName, paperName)
        Console.WriteLine("プリンタ {0} の用紙 {1} の番号は {2} です。", PrinterName, paperName, no)
        Console.ReadKey()
    End Sub

    Private Function GetPaperNumber(ByVal PrinterName As String, ByVal PortName As String, ByVal PaperName As String) As Short
        Dim PaperNamesCount As Integer
        '用紙名のリストの数を取得
         PaperNamesCount = DeviceCapabilitiesNames(PrinterName, PortName, DC_PAPERNAMES, CType(Nothing, String), IntPtr.Zero)
        Dim PaperNames As String = New String(" "c, PaperNamesCount * 64)
        Call DeviceCapabilitiesNames(PrinterName, PortName, DC_PAPERNAMES, PaperNames, IntPtr.Zero)
        Dim paperIndex As Integer = 0
        For i As Integer = 0 To PaperNamesCount - 1
            Dim paper As String = PaperNames.Substring(i * 64, 64)
            paper = paper.Substring(0, paper.IndexOf(Nothing))
            If paper.Trim().CompareTo(PaperName) = 0 Then
                paperIndex = i
                Exit For
            End If
        Next

        Dim paperNumberCount As Integer
        '用紙サイズ番号のリストの数を取得
        paperNumberCount = DeviceCapabilitiesPapers(PrinterName, PortName, DC_PAPERS, CType(Nothing, Short()), IntPtr.Zero)
        Dim paperNumbers As Short()
        ReDim paperNumbers(paperNumberCount - 1)
        Call DeviceCapabilitiesPapers(PrinterName, PortName, DC_PAPERS, paperNumbers, IntPtr.Zero)

        Return paperNumbers(paperIndex)
    End Function
End Module

[VB.NET]プリンタの用紙サイズの番号の取得

nakaP — Wed, 10 Dec 2008 00:49:00 GMT

ネタ元：クリスタルレポートの用紙種類の列挙体の取得

多分将来的に必要になると思うので勉強も含め作ってみました。

一応動作確認はしてますが必要であろう処理がいくつか抜けていると思うので注意してください。

Imports System
Imports System.Runtime.InteropServices
Module Module1
    '用紙名のリストを取得するため
    Declare Function DeviceCapabilitiesNames Lib "winspool.drv" Alias "DeviceCapabilitiesA" ( _
                                        ByVal pDevice As String, _
                                        ByVal pPort As String, _
                                        ByVal fwCapability As Short, _
                                        ByVal pOutput As String, _
                                        ByVal pDevMode As IntPtr) As Integer
    '用紙番号のリストを取得するため
    Declare Function DeviceCapabilitiesPapers Lib "winspool.drv" Alias "DeviceCapabilitiesA" ( _
                                        ByVal pDevice As String, _
                                        ByVal pPort As String, _
                                        ByVal fwCapability As Short, _
                                        ByVal pOutput() As Short, _
                                        ByVal pDevMode As IntPtr) As Integer
    Const DC_PAPERS As Integer = 2
    Const DC_PAPERNAMES As Integer = 16


    Sub Main()
        Dim PrinterName As String = "EPSON PM-G720 (M)"
        Dim PortName As String = "USB001"
        Dim paperName As String = "A4"
        Dim no As Short = GetPaperNumber(PrinterName, PortName, paperName)
        Console.WriteLine("プリンタ {0} の用紙 {1} の番号は {2} です。", PrinterName, paperName, no)
        Console.ReadKey()
    End Sub

    Private Function GetPaperNumber(ByVal PrinterName As String, ByVal PortName As String, ByVal PaperName As String) As Short
        Dim PaperNamesCount As Integer
        '用紙名のリストの数を取得
        PaperNamesCount = DeviceCapabilitiesNames(PrinterName, PortName, DC_PAPERNAMES, Nothing, IntPtr.Zero)
        Dim PaperNames As String = New String(" "c, PaperNamesCount * 64)
        Call DeviceCapabilitiesNames(PrinterName, PortName, DC_PAPERNAMES, PaperNames, IntPtr.Zero)
        Dim paperIndex As Integer = 0
        For i As Integer = 0 To PaperNamesCount - 1
            Dim hEncoding As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift-JIS")
            Dim paper As String = hEncoding.GetString(hEncoding.GetBytes(PaperNames), i * 64, 64)
            If paper.Trim().CompareTo(PaperName) = 0 Then
                paperIndex = i
                Exit For
            End If
        Next

        Dim paperNumberCount As Integer
        '用紙サイズ番号のリストの数を取得
        paperNumberCount = DeviceCapabilitiesPapers(PrinterName, PortName, DC_PAPERS, Nothing, IntPtr.Zero)
        Dim paperNumbers As Short()
        ReDim paperNumbers(paperNumberCount - 1)
        Call DeviceCapabilitiesPapers(PrinterName, PortName, DC_PAPERS, paperNumbers, IntPtr.Zero)
        Return paperNumbers(paperIndex)
    End Function
End Module

ああかなりメンドクセ。

用紙サイズ名（Ａ４など）を元に用紙サイズ番号を取得するには、先に用紙サイズ名リストを取得しなければなりません。

そっちで該当の用紙サイズ名があれば、用紙サイズ番号リストを取得し、用紙サイズ名リスト側でのインデックス位置と同じ場所にある用紙サイズ番号リストのインデックス位置の用紙サイズ番号が該当する用紙サイズ番号となります。（なんか説明しててわかりにくいｗ）

このへんもちっと簡単に取得できたらいいんですけどねー。

MSDNをちらっと見たけど見つかんなかったです。

Visual Studio と他製品の連携

nakaP — Sat, 08 Nov 2008 17:52:00 GMT

Visual Studioも複数のバージョンが出てきて、どのバージョンが他製品のどのバージョンと連携できるのかがいまいち分かっていません。

なので少しまとめてみました。

・Microsoft Officeとの連携

Visual Studio	Visual Studio Tool for Office	Microsoft Office
2003	2003	2003
2005	2005	2003
	2005 SE	2003,2007
2008	2008	2003,2007

・Microsoft SQLServerとの連携

Visual Studio	SQLServer 7.0	SQLServer 2000	SQLServer 2005	SQLServer 2008
2003	○	○	-	-
2005	○	○	○	○※
2008	○	○	○	○

Visual Studio

SQLServer

7.0

SQLServer

2000

SQLServer

2005

SQLServer

2008

2003

○

2005

○

○※

2008

○

※ 更新プログラムが必要

以下のページを参考にしてます。間違ってたら指摘をお願いします(^^;

・Microsoft Office

[.NET Framework 2.0]製品の組み合わせごとに使用できる機能

[.NET Framework 3.5]アプリケーションおよびプロジェクトの種類別の使用可能な機能

・Microsoft SQLServer

[Visual Studio 2005].NET Framework Data Provider for SQL Server の使用

[Visual Studio 2008]SQLServerとADO.NET

空のIf文

nakaP — Wed, 05 Nov 2008 12:48:00 GMT

[@IT]空のIF文を書きますか？

If IsHoge() Then
Else
    '''処理
End If

If IsHoge() Then
    '何もせんでー
Else
    '''処理
End If

If Not IsHoge() Then
    '''処理
End If

If IsHoge() Then
    Return
End If

'''処理

個人的には下から順番に、という感じでしょうか。

インデントが深くなるのが一番イヤなので。

許容できないわけではないですが、せめてコメントは書いてほしいですね。