C# と VB.NET の質問掲示板

Azuleanさん

返信ありがとうございます。

おっしゃる通り、開発ＰＣではＶＳから実行していたため実行ファイルから起動させてみました。
それでもやはり開発ＰＣではうまく表示できています。

そこで、新たにプロジェクトを作成し再現性を確認しました。
難しいことはしてないのですが、やはりうまくいきません。
長文になりますが以下に作成した内容をはりつけます。（処理は作成していないので省略しています。）
下記の内容で、データピッカーはカレンダーの画像を表示してくれなくてボタンは丸くなってくれません。
作成をSurface Proで行っているのはなにか関係があるのでしょうか...


開発PC：Win8 64bit　Community 2013使用　
上手く表示しないPC(4.5FreamWorkインストール済)：Win7 SP1 32bit

＜手順＞
１．新しいプロジェクト作成（Windowsフォームアプリケーション）→デスクトップに「test」という名前で保存
２．ユーザコントロール作成（ボタン、データピッカー）
３．ビルド
４．フォーム1に作成したユーザコントロールを配置
５．起動クラス（クラス１）作成
６．ビルド
７．プロジェクトのプロパティを変更
　　アプリケーションフレームワークを有効にするをオフ
　　スタートアップオブジェクトを「Sub Main」に変更
８．ビルド

＜コーディング内容＞
■起動クラス
Public Class Class1
    Shared Sub main()

        Application.EnableVisualStyles()
        Application.DoEvents()
        Application.Run(New Form1)


    End Sub
End Class

■ユーザコントロール（データピッカー：継承しない）※作成したのみで内容はありません。デザインのみはりつけ
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class UserControl1
    Inherits System.Windows.Forms.UserControl

    'UserControl はコンポーネント一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
        Me.SuspendLayout()
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Location = New System.Drawing.Point(3, 3)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(200, 22)
        Me.DateTimePicker1.TabIndex = 0
        '
        'UserControl1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Controls.Add(Me.DateTimePicker1)
        Me.Name = "UserControl1"
        Me.Size = New System.Drawing.Size(209, 31)
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker

End Class

■ユーザコントロール（ボタン：継承する）※作成したのみで内容はありません。デザインのみはりつけ
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class UserControl2
    Inherits System.Windows.Forms.Button

    'UserControl はコンポーネント一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
        'Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    End Sub

End Class

■フォーム１（デザイン）
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Windows フォーム デザイナーで必要です。
    Private components As System.ComponentModel.IContainer

    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
    'Windows フォーム デザイナーを使用して変更できます。  
    'コード エディターを使って変更しないでください。
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.UserControl11 = New test.UserControl1()
        Me.UserControl21 = New test.UserControl2()
        Me.SuspendLayout()
        '
        'UserControl11
        '
        Me.UserControl11.Location = New System.Drawing.Point(54, 27)
        Me.UserControl11.Name = "UserControl11"
        Me.UserControl11.Size = New System.Drawing.Size(209, 31)
        Me.UserControl11.TabIndex = 0
        '
        'UserControl21
        '
        Me.UserControl21.Location = New System.Drawing.Point(54, 90)
        Me.UserControl21.Name = "UserControl21"
        Me.UserControl21.Size = New System.Drawing.Size(148, 71)
        Me.UserControl21.TabIndex = 1
        Me.UserControl21.Text = "UserControl21"
        Me.UserControl21.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(282, 253)
        Me.Controls.Add(Me.UserControl21)
        Me.Controls.Add(Me.UserControl11)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents UserControl11 As test.UserControl1
    Friend WithEvents UserControl21 As test.UserControl2

End Class